From f4c461d73ad3e73a9feb2290e38217cb013ab8b0 Mon Sep 17 00:00:00 2001 From: mattias Date: Mon, 19 Aug 2002 15:15:14 +0000 Subject: [PATCH] implemented installing components in component palette git-svn-id: trunk@3198 - --- lcl/extctrls.pp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lcl/extctrls.pp b/lcl/extctrls.pp index e02913ff4c..48465b8bcc 100644 --- a/lcl/extctrls.pp +++ b/lcl/extctrls.pp @@ -140,12 +140,14 @@ type procedure DoSendShowTabs; procedure DoSendTabPosition; function GetActivePage: String; + function GetActivePageComponent: TPage; function GetPage(aIndex: Integer): TPage; function GetPageCount : integer; function GetPageIndex: Integer; function IsStoredActivePage: boolean; //function InternalSetMultiLine(Value: boolean): boolean; procedure SetActivePage(const Value: String); + procedure SetActivePageComponent(const AValue: TPage); procedure SetImages(const AValue: TImageList); procedure SetOptions(const AValue: TNoteBookOptions); //procedure SetMultiLine(Value: boolean); @@ -169,7 +171,10 @@ type destructor Destroy; override; function TabIndexAtClientPos(ClientPos: TPoint): integer; public - property ActivePage: String read GetActivePage write SetActivePage stored IsStoredActivePage; + property ActivePage: String read GetActivePage write SetActivePage + stored IsStoredActivePage; + property ActivePageComponent: TPage read GetActivePageComponent + write SetActivePageComponent; //property MultiLine: boolean read fMultiLine write SetMultiLine default false; property Page[Index: Integer]: TPage read GetPage; property PageCount : integer read GetPageCount; @@ -634,6 +639,9 @@ end. { $Log$ + Revision 1.57 2003/04/22 13:27:10 mattias + implemented installing components in component palette + Revision 1.56 2003/04/04 16:35:24 mattias started package registration