paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 15:39:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@21677 -
This commit is contained in:
paul 2009-09-13 08:01:32 +00:00
parent 1a4af6d743
commit df40d0e347
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/extctrls.pp
View File

@ -217,15 +217,15 @@ type
write FOnCloseTabClicked; write FOnCloseTabClicked;
property OnGetImageIndex: TTabGetImageEvent read FOnGetImageIndex property OnGetImageIndex: TTabGetImageEvent read FOnGetImageIndex
write FOnGetImageIndex; write FOnGetImageIndex;
property OnPageChanged: TNotifyEvent read fOnPageChanged write fOnPageChanged; property OnPageChanged: TNotifyEvent read FOnPageChanged write FOnPageChanged;
property Options: TNoteBookOptions read FOptions write SetOptions default []; property Options: TNoteBookOptions read FOptions write SetOptions default [];
property Page[Index: Integer]: TCustomPage read GetPage; property Page[Index: Integer]: TCustomPage read GetPage;
property PageCount: integer read GetPageCount; property PageCount: integer read GetPageCount;
property PageIndex: Integer read GetPageIndex write SetPageIndex default -1; property PageIndex: Integer read GetPageIndex write SetPageIndex default -1;
property PageList: TList read fPageList; property PageList: TList read FPageList;
property Pages: TStrings read fAccess write SetPages; property Pages: TStrings read FAccess write SetPages;
property ShowTabs: Boolean read fShowTabs write SetShowTabs default True; property ShowTabs: Boolean read FShowTabs write SetShowTabs default True;
property TabPosition: TTabPosition read fTabPosition write SetTabPosition default tpTop; property TabPosition: TTabPosition read FTabPosition write SetTabPosition default tpTop;
published published
property TabStop default true; property TabStop default true;
end; end;