paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 19:13:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

anchordocking: options dlg: fixed enable/disable header options

Browse Source 
git-svn-id: trunk@46636 -
This commit is contained in:
mattias 2014-10-21 19:01:50 +00:00
parent caf2e07a74
commit 30ba201a13
2 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/anchordocking/anchordockoptionsdlg.pas
View File

@ -84,8 +84,10 @@ type
procedure UpdateHeaderAlignTopLabel;
procedure UpdateHeaderAlignLeftLabel;
procedure UpdateSplitterWidthLabel;
procedure UpdateHeaderOptions;
procedure ApplyFlags;
public
constructor Create(TheOwner: TComponent); override;
procedure SaveToMaster;
procedure LoadFromMaster;
procedure SaveToSettings(TheSettings: TAnchorDockSettings);
@ -95,6 +97,9 @@ type
property Flags: TAnchorDockOptionsFlags read FFlags write SetFlags;
end;
var
DefaultAnchorDockOptionFlags: TAnchorDockOptionsFlags = [];
function ShowAnchorDockOptions(ADockMaster: TAnchorDockMaster): TModalResult;
implementation
@ -144,7 +149,7 @@ end;
procedure TAnchorDockOptionsFrame.ShowHeaderCheckBoxChange(Sender: TObject);
begin
ApplyFlags;
UpdateHeaderOptions;
end;
procedure TAnchorDockOptionsFrame.SplitterWidthTrackBarChange(Sender: TObject);
@ -189,6 +194,7 @@ begin
if FFlags=AValue then Exit;
FFlags:=AValue;
ApplyFlags;
UpdateHeaderOptions;
end;
procedure TAnchorDockOptionsFrame.SetSettings(AValue: TAnchorDockSettings);
@ -223,9 +229,18 @@ begin
+' ('+IntToStr(SplitterWidthTrackBar.Position)+')';
end;
procedure TAnchorDockOptionsFrame.ApplyFlags;
procedure TAnchorDockOptionsFrame.UpdateHeaderOptions;
var
HasHeaders: Boolean;
begin
HasHeaders:=ShowHeaderCheckBox.Checked;
ShowHeaderCaptionCheckBox.Enabled:=HasHeaders;
HideHeaderCaptionForFloatingCheckBox.Enabled:=HasHeaders;
FlattenHeaders.Enabled:=HasHeaders;
FilledHeaders.Enabled:=HasHeaders;
end;
procedure TAnchorDockOptionsFrame.ApplyFlags;
begin
ShowHeaderCheckBox.Visible:=adofShow_ShowHeader in Flags;
if ShowHeaderCheckBox.Visible then
@ -233,12 +248,12 @@ begin
else
ShowHeaderCaptionCheckBox.BorderSpacing.Left:=0;
SaveLayoutOnCloseCheckBox.Visible:=adofShow_ShowSaveOnClose in Flags;
end;
HasHeaders:=ShowHeaderCheckBox.Checked;
ShowHeaderCaptionCheckBox.Enabled:=HasHeaders;
HideHeaderCaptionForFloatingCheckBox.Enabled:=HasHeaders;
FlattenHeaders.Enabled:=HasHeaders;
FilledHeaders.Enabled:=HasHeaders;
constructor TAnchorDockOptionsFrame.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
FFlags:=DefaultAnchorDockOptionFlags;
end;
procedure TAnchorDockOptionsFrame.SaveToMaster;
@ -332,6 +347,7 @@ begin
ShowHeaderCheckBox.Hint:=
adrsEachDockedWindowHasAHeaderThatAllowsDraggingHasACo;
ShowHeaderCheckBox.Checked:=TheSettings.ShowHeader;
UpdateHeaderOptions;
ShowHeaderCaptionCheckBox.Caption:=adrsShowHeaderCaptions;
ShowHeaderCaptionCheckBox.Hint:=adrsShowCaptionsOfDockedControlsInTheHeader;

3
components/anchordocking/design/registeranchordocking.pas
View File

@ -234,6 +234,8 @@ end;
constructor TIDEAnchorDockMaster.Create;
begin
inherited Create;
DefaultAnchorDockOptionFlags:=[adofShow_ShowHeader,adofShow_ShowSaveOnClose];
FSaveOnClose:=true;
IDEAnchorDockMaster:=Self;
DockMaster.OnCreateControl:=@DockMasterCreateControl;
@ -657,7 +659,6 @@ begin
OptionsFrame:=TAnchorDockOptionsFrame.Create(Self);
with OptionsFrame do begin
Name:='OptionsFrame';
Flags:=[adofShow_ShowHeader,adofShow_ShowSaveOnClose];
end;
end;