paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 04:13:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: set default values for TListView.ParentColor and TCustomImageList.Masked

Browse Source 
git-svn-id: trunk@18930 -
This commit is contained in:
paul 2009-03-09 15:34:43 +00:00
parent 9c1c4073f2
commit b0938be4da
2 changed files with 2 additions and 2 deletions

2
lcl/comctrls.pp
View File

@ -1096,7 +1096,7 @@ type
property MultiSelect;
// property OwnerData;
// property OwnerDraw;
property ParentColor;
property ParentColor default False;
property ParentFont;
property ParentShowHint;
property PopupMenu;

2
lcl/imglist.pp
View File

@ -196,7 +196,7 @@ type
property Height: Integer read FHeight write SetHeight default 16;
property Width: Integer read FWidth write SetWidth default 16;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property Masked: boolean read FMasked write SetMasked;
property Masked: boolean read FMasked write SetMasked default False;
property Reference: TWSCustomImageListReference read GetReference;
property ShareImages: Boolean read FShareImages write SetShareImages default False;
property ImageType: TImageType read FImageType write FImageType default itImage;