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

fix, docking options, checkboxes 

- were grayed when changing the style
- were not applied in live
This commit is contained in:
Basile Burg 2015-05-03 09:20:32 +02:00
parent 01cd367c0c
commit ba739df7c2
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/ce_dockoptions.pas
View File

@ -44,6 +44,11 @@ begin
DragThresholdTrackBar.OnChange := @doChanged;
SplitterWidthTrackBar.OnChange := @doChanged;
//
ShowHeaderCaptionCheckBox.OnChange := @doChanged;
HideHeaderCaptionForFloatingCheckBox.OnChange := @doChanged;
FlattenHeaders.OnChange := @doChanged;
FilledHeaders.OnChange := @doChanged;
//
HeaderStyleComboBox.OnChange := @doChanged;
//
EntitiesConnector.addObserver(self);
@ -82,9 +87,9 @@ begin
LoadFromMaster;
fBackup.Clear;
DockMaster.SaveSettingsToConfig(fBackup);
end;
end
// accept and new backup
if anEvent = oeeAccept then
else if anEvent = oeeAccept then
begin
SaveToMaster;
fBackup.Clear;
@ -106,6 +111,8 @@ begin
end;
procedure TDockOptionsEditor.doChanged(Sender: TObject);
var
hasHeaders: boolean;
begin
DragThresholdLabel.Caption := adrsDragThreshold +
' (' + IntToStr(DragThresholdTrackBar.Position) + ')';
@ -115,11 +122,17 @@ begin
' (' + IntToStr(HeaderAlignLeftTrackBar.Position) + ')';
SplitterWidthLabel.Caption := adrsSplitterWidth +
' (' + IntToStr(SplitterWidthTrackBar.Position) + ')';
FlattenHeaders.Enabled := adofShow_ShowHeader in Flags;
FilledHeaders.Enabled := adofShow_ShowHeader in Flags;
ShowHeaderCaptionCheckBox.Enabled := adofShow_ShowHeader in Flags;
HideHeaderCaptionForFloatingCheckBox.Enabled := adofShow_ShowHeader in Flags;
//
hasHeaders:=ShowHeaderCheckBox.Checked;
ShowHeaderCaptionCheckBox.Enabled:=HasHeaders;
HideHeaderCaptionForFloatingCheckBox.Enabled:=HasHeaders;
FlattenHeaders.Enabled:=HasHeaders;
FilledHeaders.Enabled:=HasHeaders;
//
DockMaster.HeaderFilled := FilledHeaders.Checked;
DockMaster.HeaderFlatten:= FlattenHeaders.Checked;
DockMaster.ShowHeaderCaption:= ShowHeaderCaptionCheckBox.Checked;
DockMaster.HideHeaderCaptionFloatingControl:= HideHeaderCaptionForFloatingCheckBox.Checked;
//
SaveToMaster;
end;