diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2025-01-04 20:41:26 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2025-11-27 21:42:57 +0100 |
| commit | 90db8b6652f73ddc335922d3a7c593878d83c45e (patch) | |
| tree | 6b3f8ed57d4dc3358c2965bf41f6e613b8b80bf0 /UPreferences.pas | |
| parent | 63ff1bea9bb1e87a7e2643f680d04f2b9c00d072 (diff) | |
| download | tuxcmd-90db8b6652f73ddc335922d3a7c593878d83c45e.tar.xz | |
Basic ListView CSS styling
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); |