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