paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 16:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set default values for properties of TMenuItem

Browse Source 
git-svn-id: trunk@18012 -
This commit is contained in:
paul 2009-01-01 17:00:54 +00:00
parent 5f3e254b15
commit bbd473e2ef
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/menuitem.inc
View File

@ -101,6 +101,8 @@ begin
FCommand := UniqueCommand;
FImageIndex := -1;
FBitmapIsValid := True;
FRightJustify := False;
FShowAlwaysCheckable := False;
FImageChangeLink := TChangeLink.Create;
FImageChangeLink.OnChange := @ImageListChange;

4
lcl/menus.pp
View File

@ -258,11 +258,11 @@ type
stored IsImageIndexStored default -1;
property RadioItem: Boolean read FRadioItem write SetRadioItem
default False;
property RightJustify: boolean read FRightJustify write SetRightJustify;
property RightJustify: boolean read FRightJustify write SetRightJustify default False;
property ShortCut: TShortCut read FShortCut write SetShortCut
stored IsShortCutStored default 0;
property ShowAlwaysCheckable: boolean read FShowAlwaysCheckable
write SetShowAlwaysCheckable;
write SetShowAlwaysCheckable default False;
property SubMenuImages: TCustomImageList read FSubMenuImages
write SetSubMenuImages;
property Visible: Boolean read FVisible write SetVisible