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