paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 15:40:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControls: TExtendedTabControl added pages (runtime only)

Browse Source 
git-svn-id: trunk@42609 -
This commit is contained in:
martin 2013-09-05 11:56:16 +00:00
parent 2046de2324
commit 51470268ac
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/lazcontrols/extendedtabcontrols.pas
View File

@ -79,6 +79,7 @@ type
procedure SetWrapable(AValue: Boolean);
public
constructor Create(AnAdvTabControl: TCustomExtendedTabControl);
procedure AcceptButton(AToolButton: TExtendedTabToolButton);
property ButtonCount: Integer read GetButtonCount;
property Buttons[Index: Integer]: TToolButton read GetButton;
property ButtonList: TList read GetButtonList;
@ -160,6 +161,7 @@ type
protected
property InternalTabPage: TExtendedInternalCustomPage read FInternalTabPage write SetInternalTabPage;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
//property TabControl: TCustomExtendedTabControl read GetTabControl write SetTabControl;
//property TabIndex: Integer read GetTabIndex;
@ -209,8 +211,11 @@ type
TCustomExtendedTabControl = class(TTabControl)
private
FToolBarWrapper: TToolbarWrapper;
function GetActiveTabSheet: TExtendedTabSheet;
function GetShowToolBar: TTabControlToolBarSide;
function GetTabSheet(Index: Integer): TExtendedTabSheet;
procedure SetActivePageComponent(AValue: TCustomPage);
procedure SetActiveTabSheet(AValue: TExtendedTabSheet);
procedure SetShowToolBar(AValue: TTabControlToolBarSide);
protected
function AdvTabs: TExtendedTabControlNoteBookStrings;
@ -233,8 +238,11 @@ type
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
property ActivePage: TExtendedTabSheet read GetActiveTabSheet write SetActiveTabSheet;
property Pages[Index: Integer]: TExtendedTabSheet read GetTabSheet;
property ShowToolBar: TTabControlToolBarSide read GetShowToolBar write SetShowToolBar;
property ToolBar: TToolbarWrapper read FToolBarWrapper;
property OnChange; // Only pages // TODO: activate for tabs
end;
{ TExtendedTabControl }
@ -268,6 +276,12 @@ begin
FInternalTabPage.RealPage := Self;
end;
constructor TCustomExtendedTabSheet.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
BorderSpacing.Around := 3;
end;
destructor TCustomExtendedTabSheet.Destroy;
begin
SetParent(nil);
@ -523,6 +537,11 @@ begin
ToolBar;
end;
procedure TToolbarWrapper.AcceptButton(AToolButton: TExtendedTabToolButton);
begin
AToolButton.Parent := FOwner.AdvTabs.ToolBar;
end;
{ TExtendedTabControlNoteBookStrings }
procedure TExtendedTabControlNoteBookStrings.ToolbarResized(Sender: TObject);
@ -714,6 +733,16 @@ begin
Result := AdvTabs.ShowToolBar;
end;
function TCustomExtendedTabControl.GetTabSheet(Index: Integer): TExtendedTabSheet;
begin
Result:=TExtendedTabSheet(inherited Page[Index]);
end;
function TCustomExtendedTabControl.GetActiveTabSheet: TExtendedTabSheet;
begin
Result:=TExtendedTabSheet(inherited ActivePageComponent);
end;
procedure TCustomExtendedTabControl.SetActivePageComponent(AValue: TCustomPage);
var
i: Integer;
@ -723,6 +752,11 @@ begin
Page[i].Visible := Page[i] = AValue;
end;
procedure TCustomExtendedTabControl.SetActiveTabSheet(AValue: TExtendedTabSheet);
begin
ActivePageComponent := AValue;
end;
procedure TCustomExtendedTabControl.SetShowToolBar(AValue: TTabControlToolBarSide);
begin
AdvTabs.ShowToolBar := AValue;