ADD: SyncDirs - selected color option

This commit is contained in:
Alexander Koblov 2026-03-29 17:09:33 +03:00
commit 067161fc93
3 changed files with 20 additions and 0 deletions

View file

@ -350,6 +350,21 @@ inherited frmOptionsColors: TfrmOptionsColors
Width = 125
TabOrder = 2
end
object lblSelection: TLabel
Left = 12
Height = 25
Top = 111
Width = 62
Caption = 'Selection:'
Layout = tlCenter
end
object cbSelection: TKASColorBoxButton
Left = 82
Height = 25
Top = 111
Width = 127
TabOrder = 3
end
end
object pgDriveFreeInd: TPage
ChildSizing.LeftRightSpacing = 12

View file

@ -17,6 +17,7 @@
{"hash":5422458,"name":"tfrmoptionscolors.lblleft.caption","sourcebytes":[76,101,102,116,58],"value":"Left:"},
{"hash":93314938,"name":"tfrmoptionscolors.lblright.caption","sourcebytes":[82,105,103,104,116,58],"value":"Right:"},
{"hash":86338010,"name":"tfrmoptionscolors.lblunknown.caption","sourcebytes":[85,110,107,110,111,119,110,58],"value":"Unknown:"},
{"hash":196049466,"name":"tfrmoptionscolors.lblselection.caption","sourcebytes":[83,101,108,101,99,116,105,111,110,58],"value":"Selection:"},
{"hash":135998194,"name":"tfrmoptionscolors.cbbusegradientind.caption","sourcebytes":[85,115,101,32,38,71,114,97,100,105,101,110,116,32,73,110,100,105,99,97,116,111,114],"value":"Use &Gradient Indicator"},
{"hash":171869450,"name":"tfrmoptionscolors.lblindcolor.caption","sourcebytes":[38,73,110,100,105,99,97,116,111,114,32,70,111,114,101,32,67,111,108,111,114,58],"value":"&Indicator Fore Color:"},
{"hash":115941530,"name":"tfrmoptionscolors.lblindthresholdcolor.caption","sourcebytes":[73,110,100,105,99,97,116,111,114,32,38,84,104,114,101,115,104,111,108,100,32,67,111,108,111,114,58],"value":"Indicator &Threshold Color:"},

View file

@ -34,6 +34,7 @@ type
cbRight: TKASColorBoxButton;
cbSuccess: TKASColorBoxButton;
cbUnknown: TKASColorBoxButton;
cbSelection: TKASColorBoxButton;
cmbGroup: TComboBox;
cbModified: TKASColorBoxButton;
dbBookMode: TDividerBevel;
@ -62,6 +63,7 @@ type
lblRight: TLabel;
lblSuccess: TLabel;
lblUnknown: TLabel;
lblSelection: TLabel;
nbColors: TNotebook;
pgDriveFreeInd: TPage;
pbxFakeDrive: TPaintBox;
@ -201,6 +203,7 @@ begin
cbLeft.Selected:= LeftColor;
cbRight.Selected:= RightColor;
cbUnknown.Selected:= UnknownColor;
cbSelection.Selected:= SelectedColor;
end;
with gColors.FreeSpaceInd^ do
begin
@ -301,6 +304,7 @@ begin
LeftColor:= cbLeft.Selected;
RightColor:= cbRight.Selected;
UnknownColor:= cbUnknown.Selected;
SelectedColor:= cbSelection.Selected;
end;
gIndUseGradient:= cbbUseGradientInd.Checked;
with gColors.FreeSpaceInd^ do