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

MG: TNoteBook now starts with no Page and TPage has no auto names

Browse Source 
git-svn-id: trunk@3169 -
This commit is contained in:
lazarus 2002-08-19 15:14:45 +00:00
parent 0193a0daf3
commit 3609c3cda9
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lcl/extctrls.pp
View File

@ -77,11 +77,12 @@ type
procedure AdjustClientRect(var ARect: TRect); override; procedure AdjustClientRect(var ARect: TRect); override;
published published
property Caption; property Caption;
//property Height;
property ImageIndex: integer read FImageIndex write SetImageIndex default -1; property ImageIndex: integer read FImageIndex write SetImageIndex default -1;
// property TabOrder; This property needs to be created in TWinControl // property TabOrder; This property needs to be created in TWinControl
property Visible; property Height stored False;
//property Width; property TabOrder stored False;
property Visible stored False;
property Width stored False;
end; end;
TCustomNotebook = class; TCustomNotebook = class;
@ -115,7 +116,7 @@ type
@abstract(Base class for TNotebook and TTabbedNotebook.) @abstract(Base class for TNotebook and TTabbedNotebook.)
Introduced by Curtis White Introduced by Curtis White
} }
TNoteBookOption = (nboShowCloseButtons); TNoteBookOption = (nboShowCloseButtons, nboMultiLine);
TNoteBookOptions = set of TNoteBookOption; TNoteBookOptions = set of TNoteBookOption;
TCustomNotebook = class(TCustomControl) TCustomNotebook = class(TCustomControl)
@ -132,6 +133,9 @@ type
fTabPosition: TTabPosition; fTabPosition: TTabPosition;
Procedure CNNotify(var Message : TLMNotify); message CN_NOTIFY; Procedure CNNotify(var Message : TLMNotify); message CN_NOTIFY;
procedure DoSendPageIndex;
procedure DoSendShowTabs;
procedure DoSendTabPosition;
function GetActivePage: String; function GetActivePage: String;
function GetPage(aIndex: Integer): TPage; function GetPage(aIndex: Integer): TPage;
function GetPageCount : integer; function GetPageCount : integer;
@ -143,7 +147,7 @@ type
//procedure SetMultiLine(Value: boolean); //procedure SetMultiLine(Value: boolean);
procedure SetPageIndex(Value: Integer); procedure SetPageIndex(Value: Integer);
procedure SetPages(Value: TStrings); procedure SetPages(Value: TStrings);
procedure SetShowTabs(Value: Boolean); procedure SetShowTabs(AValue: Boolean);
procedure SetTabPosition(tabPos: TTabPosition); procedure SetTabPosition(tabPos: TTabPosition);
protected protected
procedure CreateParams(var Params: TCreateParams);override; procedure CreateParams(var Params: TCreateParams);override;
@ -152,9 +156,12 @@ type
function GetChildOwner: TComponent; override; function GetChildOwner: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
procedure ReadState(Reader: TAbstractReader); override; procedure ReadState(Reader: TAbstractReader); override;
procedure ShowControl(AControl: TControl); override; procedure ShowControl(APage: TControl); override;
procedure UpdateTabProperties; virtual; procedure UpdateTabProperties; virtual;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property ActivePage: String read GetActivePage write SetActivePage; property ActivePage: String read GetActivePage write SetActivePage;
//property MultiLine: boolean read fMultiLine write SetMultiLine default false; //property MultiLine: boolean read fMultiLine write SetMultiLine default false;
property Page[Index: Integer]: TPage read GetPage; property Page[Index: Integer]: TPage read GetPage;
@ -165,9 +172,6 @@ type
property OnPageChanged: TNotifyEvent read fOnPageChanged write fOnPageChanged; property OnPageChanged: TNotifyEvent read fOnPageChanged write fOnPageChanged;
property ShowTabs: Boolean read fShowTabs write SetShowTabs; property ShowTabs: Boolean read fShowTabs write SetShowTabs;
property TabPosition: TTabPosition read fTabPosition write SetTabPosition; property TabPosition: TTabPosition read fTabPosition write SetTabPosition;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure DoCloseTabClicked(APage: TPage); virtual; procedure DoCloseTabClicked(APage: TPage); virtual;
property Images: TImageList read FImages write SetImages; property Images: TImageList read FImages write SetImages;
property Name; property Name;
@ -466,6 +470,9 @@ end.
{ {
$Log$ $Log$
Revision 1.28 2002/09/02 19:10:28 lazarus
MG: TNoteBook now starts with no Page and TPage has no auto names
Revision 1.27 2002/08/28 11:41:53 lazarus Revision 1.27 2002/08/28 11:41:53 lazarus
MG: activated environment opts in debugger MG: activated environment opts in debugger