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

lcl: set default values for some component properties

Browse Source 
git-svn-id: trunk@17725 -
This commit is contained in:
paul 2008-12-08 09:48:25 +00:00
parent f4b0e4ce40
commit 910cfc5b20
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/buttonpanel.pas
View File

@ -84,9 +84,9 @@ type
property HelpButton: TPanelBitBtn read FHelpButton stored False;
property CloseButton: TPanelBitBtn read FCloseButton stored False;
property CancelButton: TPanelBitBtn read FCancelButton stored False;
property ButtonOrder: TButtonOrder read FButtonOrder write SetButtonOrder;
property ButtonOrder: TButtonOrder read FButtonOrder write SetButtonOrder default boDefault;
property DefaultButton: TPanelButton read FDefaultButton write SetDefaultButton;
property DefaultButton: TPanelButton read FDefaultButton write SetDefaultButton default pbOK;
property ShowButtons: TPanelButtons read FShowButtons write SetShowButtons default DefShowButtons;
property ShowGlyphs: TPanelButtons read FShowGlyphs write SetShowGlyphs default DefShowGlyphs;
published

4
lcl/dialogs.pp
View File

@ -94,8 +94,8 @@ type
property OnCanClose: TCloseQueryEvent read FOnCanClose write FOnCanClose;
property OnShow: TNotifyEvent read FOnShow write FOnShow;
property HelpContext: THelpContext read FHelpContext write FHelpContext default 0;
property Width: integer read FWidth write SetWidth;
property Height: integer read FHeight write SetHeight;
property Width: integer read FWidth write SetWidth default 0;
property Height: integer read FHeight write SetHeight default 0;
property Title: string read FTitle write FTitle stored IsTitleStored;
end;

2
lcl/extctrls.pp
View File

@ -217,7 +217,7 @@ type
property OnGetImageIndex: TTabGetImageEvent read FOnGetImageIndex
write FOnGetImageIndex;
property OnPageChanged: TNotifyEvent read fOnPageChanged write fOnPageChanged;
property Options: TNoteBookOptions read FOptions write SetOptions;
property Options: TNoteBookOptions read FOptions write SetOptions default [];
property Page[Index: Integer]: TCustomPage read GetPage;
property PageCount: integer read GetPageCount;
property PageIndex: Integer read GetPageIndex write SetPageIndex default -1;