diff options
Diffstat (limited to 'UPreferences.pas')
| -rw-r--r-- | UPreferences.pas | 26 |
1 files changed, 8 insertions, 18 deletions
diff --git a/UPreferences.pas b/UPreferences.pas index f66c1eb..81eecdb 100644 --- a/UPreferences.pas +++ b/UPreferences.pas @@ -1094,24 +1094,14 @@ end; procedure TFPreferences.ColorButtonDefaultsToggled(Sender: TObject); begin -{ - if NormalItemFGColorDefault.Checked then NormalItemFGColorButton.SetDefaultColor - else NormalItemFGColorButton.UnsetDefaultColor; - if NormalItemFGColorDefault.Checked then NormalItemBGColorButton.SetDefaultColor - else NormalItemBGColorButton.UnsetDefaultColor; - if ActiveItemFGColorDefault.Checked then ActiveItemFGColorButton.SetDefaultColor - else ActiveItemFGColorButton.UnsetDefaultColor; - if ActiveItemFGColorDefault.Checked then ActiveItemBGColorButton.SetDefaultColor - else ActiveItemBGColorButton.UnsetDefaultColor; - if InactiveItemFGColorDefault.Checked then InactiveItemFGColorButton.SetDefaultColor - else InactiveItemFGColorButton.UnsetDefaultColor; - if InactiveItemFGColorDefault.Checked then InactiveItemBGColorButton.SetDefaultColor - else InactiveItemBGColorButton.UnsetDefaultColor; - if LinkItemFGColorDefault.Checked then LinkItemFGColorButton.SetDefaultColor - else LinkItemFGColorButton.UnsetDefaultColor; - if DotFileItemFGColorDefault.Checked then DotFileItemFGColorButton.SetDefaultColor - else DotFileItemFGColorButton.UnsetDefaultColor; -} + NormalItemFGColorButton.Enabled := not NormalItemFGColorDefault.Checked; + NormalItemBGColorButton.Enabled := not NormalItemFGColorDefault.Checked; + ActiveItemFGColorButton.Enabled := not ActiveItemFGColorDefault.Checked; + ActiveItemBGColorButton.Enabled := not ActiveItemFGColorDefault.Checked; + InactiveItemFGColorButton.Enabled := not InactiveItemFGColorDefault.Checked; + InactiveItemBGColorButton.Enabled := not InactiveItemFGColorDefault.Checked; + LinkItemFGColorButton.Enabled := not LinkItemFGColorDefault.Checked; + DotFileItemFGColorButton.Enabled := not DotFileItemFGColorDefault.Checked; end; procedure TFPreferences.DefaultRowHeightCheckBoxToggled(Sender: TObject); |