forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

page control, add option to display the tabs at the bottom

This commit is contained in:
Basile Burg 2016-04-23 17:29:39 +02:00
parent fbbdc1dbc1
commit 3862018b5d
1 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_controls.pas
View File

@ -26,7 +26,7 @@ type
property index: integer read getIndex;
end;
TCEPagesOption = (poPageHistory);
TCEPagesOption = (poPageHistory, poBottomHeader);
TCEPagesOptions = set of TCEPagesOption;
const
@ -90,6 +90,7 @@ type
procedure setOnDragOver(value: TDragOverEvent);
procedure setOnDragDrop(value: TDragDropEvent);
procedure setPagesOptions(value: TCEPagesOptions);
procedure setHeaderPosition(bottom: boolean);
public
constructor Create(aowner: TComponent); override;
@ -152,8 +153,6 @@ constructor TCEPageControl.Create(aowner: TComponent);
begin
inherited;
fOptions := defPagesOpt;
fHeader := TWinControl.Create(self);
fHeader.Parent:= self;
fHeader.Align := alTop;
@ -231,6 +230,8 @@ begin
fPagesHistory := TFPList.Create;
fPageIndex := -1;
setPagesOptions(defPagesOpt);
fButtons:= CEPageControlDefaultButtons;
updateButtonsState;
end;
@ -268,6 +269,20 @@ begin
exit;
fOptions := value;
fPagesHistory.Clear;
setHeaderPosition(poBottomHeader in fOptions);
end;
procedure TCEPageControl.setHeaderPosition(bottom: boolean);
begin
if bottom then
begin
fTabs.TabPosition:= tpBottom;
fHeader.Align:= alBottom;
end else
begin
fTabs.TabPosition:= tpTop;
fHeader.Align:= alTop;
end;
end;
procedure TCEPageControl.changedNotify;