fix, docking options checkbox hidden

This commit is contained in:
Basile Burg 2015-02-24 12:18:43 +01:00
parent fa92f10491
commit 6a14439507
1 changed files with 5 additions and 8 deletions

View File

@ -44,13 +44,6 @@ begin
DragThresholdTrackBar.OnChange := @doChanged;
SplitterWidthTrackBar.OnChange := @doChanged;
//
FlattenHeaders.OnChange := @doChanged;
FilledHeaders.OnChange := @doChanged;
HideHeaderCaptionForFloatingCheckBox.OnChange := @doChanged;
ScaleOnResizeCheckBox.OnChange := @doChanged;
ShowHeaderCaptionCheckBox.OnChange := @doChanged;
ShowHeaderCheckBox.OnChange := @doChanged;
//
HeaderStyleComboBox.OnChange:= @doChanged;
//
EntitiesConnector.addObserver(self);
@ -109,7 +102,11 @@ begin
' ('+IntToStr(HeaderAlignLeftTrackBar.Position) +')';
SplitterWidthLabel.Caption:=adrsSplitterWidth +
' ('+IntToStr(SplitterWidthTrackBar.Position) +')';
ShowHeaderCheckBox.Visible:=adofShow_ShowHeader in Flags;
FlattenHeaders.Enabled := adofShow_ShowHeader in Flags;
FilledHeaders.Enabled := adofShow_ShowHeader in Flags;
ShowHeaderCaptionCheckBox.Enabled := adofShow_ShowHeader in Flags;
HideHeaderCaptionForFloatingCheckBox.Enabled := adofShow_ShowHeader in Flags;
//
SaveToMaster;
end;