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; DragThresholdTrackBar.OnChange := @doChanged;
SplitterWidthTrackBar.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; HeaderStyleComboBox.OnChange:= @doChanged;
// //
EntitiesConnector.addObserver(self); EntitiesConnector.addObserver(self);
@ -109,7 +102,11 @@ begin
' ('+IntToStr(HeaderAlignLeftTrackBar.Position) +')'; ' ('+IntToStr(HeaderAlignLeftTrackBar.Position) +')';
SplitterWidthLabel.Caption:=adrsSplitterWidth + SplitterWidthLabel.Caption:=adrsSplitterWidth +
' ('+IntToStr(SplitterWidthTrackBar.Position) +')'; ' ('+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; SaveToMaster;
end; end;