ADD: Capability to change drive free space indicator colors (patch by Rustem with small modifications)

src/doublecmd.lpi

@@ -234,33 +234,37 @@
         <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
-    <RequiredPackages Count="7">
+    <RequiredPackages Count="8">
       <Item1>
-        <PackageName Value="ZVDateTimeCtrls"/>
-        <MinVersion Major="1" Minor="2" Valid="True"/>
+        <PackageName Value="LazControls"/>
+        <MinVersion Valid="True"/>
       </Item1>
       <Item2>
-        <PackageName Value="pkg_gifanim"/>
-        <MinVersion Major="1" Minor="4" Valid="True"/>
+        <PackageName Value="ZVDateTimeCtrls"/>
+        <MinVersion Major="1" Minor="2" Valid="True"/>
       </Item2>
       <Item3>
-        <PackageName Value="cmdbox"/>
+        <PackageName Value="pkg_gifanim"/>
+        <MinVersion Major="1" Minor="4" Valid="True"/>
       </Item3>
       <Item4>
-        <PackageName Value="KASComp"/>
-        <MinVersion Major="1" Release="1" Build="1" Valid="True"/>
+        <PackageName Value="cmdbox"/>
       </Item4>
       <Item5>
-        <PackageName Value="LCL"/>
-        <MinVersion Major="1" Valid="True"/>
+        <PackageName Value="KASComp"/>
+        <MinVersion Major="1" Release="1" Build="1" Valid="True"/>
       </Item5>
       <Item6>
-        <PackageName Value="SynEdit"/>
+        <PackageName Value="LCL"/>
         <MinVersion Major="1" Valid="True"/>
       </Item6>
       <Item7>
-        <PackageName Value="viewerpackage"/>
+        <PackageName Value="SynEdit"/>
+        <MinVersion Major="1" Valid="True"/>
       </Item7>
+      <Item8>
+        <PackageName Value="viewerpackage"/>
+      </Item8>
     </RequiredPackages>
     <Units Count="157">
       <Unit0>

src/fmain.pas

@@ -2917,24 +2917,36 @@ begin
     pbxDrive.Canvas.FillRect(2, 0, pbxDrive.Width - 2, pbxDrive.Height - 1);
 
     ARect:= Rect(3, 1, pbxDrive.Width - 3, pbxDrive.Height - 2);
-    pbxDrive.Canvas.GradientFill(ARect, clSilver, clWhite, gdVertical);
 
-    for i:= 0 to IndexColor - 1 do
-    begin
-      if i <= 50 then
-        pbxDrive.Canvas.Brush.Color:= RGB(0 + 5 * i, 255, 0)
-      else
-        pbxDrive.Canvas.Brush.Color:= RGB(255, 255 - 5 * (i - 50), 0);
+    if not gIndUseGradient then
+      begin
+        AColor := gIndBackColor;
+        pbxDrive.Canvas.GradientFill(ARect, DarkColor(AColor, 25), LightColor(AColor, 25), gdVertical);
+        ARect := Rect(3, 1, 3+indexColor * (pbxDrive.Width - 6) div 100, pbxDrive.Height - 2);
+        AColor := gIndForeColor;
+        pbxDrive.Canvas.GradientFill(ARect, LightColor(AColor, 25), DarkColor(AColor, 25), gdVertical);
+      end
+    else
+      begin
+        pbxDrive.Canvas.GradientFill(ARect, clSilver, clWhite, gdVertical);
 
-      AColor:= DarkColor(pbxDrive.Canvas.Brush.Color, 50);
+        for i:= 0 to IndexColor - 1 do
+        begin
+          if i <= 50 then
+            pbxDrive.Canvas.Brush.Color:= RGB(0 + 5 * i, 255, 0)
+          else
+            pbxDrive.Canvas.Brush.Color:= RGB(255, 255 - 5 * (i - 50), 0);
 
-      ARect:= Rect(3 + i * (pbxDrive.Width - 6) div 100, 1,
-                   3 + (i + 1) * (pbxDrive.Width - 6) div 100,
-                   pbxDrive.Height - 2);
+          AColor:= DarkColor(pbxDrive.Canvas.Brush.Color, 50);
 
-      pbxDrive.Canvas.GradientFill(ARect, pbxDrive.Canvas.Brush.Color,
+          ARect:= Rect(3 + i * (pbxDrive.Width - 6) div 100, 1,
+                       3 + (i + 1) * (pbxDrive.Width - 6) div 100,
+                       pbxDrive.Height - 2);
+
+           pbxDrive.Canvas.GradientFill(ARect, pbxDrive.Canvas.Brush.Color,
                                    AColor, gdVertical);
-    end;
+        end;
+      end;
   end;
 end;
 
@@ -4908,4 +4920,4 @@ initialization
   TFormCommands.RegisterCommandsForm(TfrmMain, HotkeysCategory, @rsHotkeyCategoryMain);
 
 end.
-
+

src/frames/foptionsfilepanelscolors.lfm

@@ -1,15 +1,15 @@
 inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
-  Height = 288
-  Width = 599
-  ClientHeight = 288
-  ClientWidth = 599
+  Height = 493
+  Width = 644
+  ClientHeight = 493
+  ClientWidth = 644
   object lblTextColor: TLabel[0]
     AnchorSideTop.Control = cbTextColor
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 8
-    Width = 71
+    Height = 14
+    Top = 12
+    Width = 55
     Caption = 'Text Color:'
     ParentColor = False
   end
@@ -17,9 +17,9 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbBackColor
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 38
-    Width = 86
+    Height = 14
+    Top = 42
+    Width = 61
     Caption = 'Background:'
     ParentColor = False
   end
@@ -27,9 +27,9 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbBackColor2
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 68
-    Width = 99
+    Height = 14
+    Top = 72
+    Width = 70
     Caption = 'Background 2:'
     ParentColor = False
   end
@@ -37,9 +37,9 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbMarkColor
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 98
-    Width = 77
+    Height = 14
+    Top = 102
+    Width = 56
     Caption = 'Mark Color:'
     ParentColor = False
   end
@@ -47,9 +47,9 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbCursorColor
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 128
-    Width = 86
+    Height = 14
+    Top = 132
+    Width = 65
     Caption = 'Cursor Color:'
     ParentColor = False
   end
@@ -57,14 +57,14 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbCursorText
     AnchorSideTop.Side = asrCenter
     Left = 6
-    Height = 22
-    Top = 158
-    Width = 80
+    Height = 14
+    Top = 162
+    Width = 62
     Caption = 'Cursor Text:'
     ParentColor = False
   end
   object cbTextColor: TColorBox[6]
-    Left = 152
+    Left = 160
     Height = 22
     Top = 8
     Width = 200
@@ -80,7 +80,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = cbTextColor
     AnchorSideRight.Side = asrBottom
-    Left = 152
+    Left = 160
     Height = 22
     Top = 38
     Width = 200
@@ -97,7 +97,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbTextColor
     AnchorSideBottom.Control = cbTextColor
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 8
     Width = 28
@@ -113,7 +113,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbBackColor
     AnchorSideBottom.Control = cbBackColor
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 38
     Width = 28
@@ -130,7 +130,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = cbTextColor
     AnchorSideRight.Side = asrBottom
-    Left = 152
+    Left = 160
     Height = 22
     Top = 68
     Width = 200
@@ -147,7 +147,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = cbTextColor
     AnchorSideRight.Side = asrBottom
-    Left = 152
+    Left = 160
     Height = 22
     Top = 98
     Width = 200
@@ -164,7 +164,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = cbTextColor
     AnchorSideRight.Side = asrBottom
-    Left = 152
+    Left = 160
     Height = 22
     Top = 128
     Width = 200
@@ -181,7 +181,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Side = asrBottom
     AnchorSideRight.Control = cbTextColor
     AnchorSideRight.Side = asrBottom
-    Left = 152
+    Left = 160
     Height = 22
     Top = 158
     Width = 200
@@ -190,14 +190,14 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     BorderSpacing.Top = 8
     ItemHeight = 16
     OnChange = cbColorBoxChange
-    TabOrder = 10
+    TabOrder = 11
   end
   object btnMarkColor: TButton[14]
     AnchorSideLeft.Control = btnForeColor
     AnchorSideTop.Control = cbMarkColor
     AnchorSideBottom.Control = cbMarkColor
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 98
     Width = 28
@@ -213,7 +213,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbCursorColor
     AnchorSideBottom.Control = cbCursorColor
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 128
     Width = 28
@@ -229,7 +229,7 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbCursorText
     AnchorSideBottom.Control = cbCursorText
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 158
     Width = 28
@@ -238,14 +238,14 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     BorderSpacing.InnerBorder = 4
     Caption = '>>'
     OnClick = btnCursorTextClick
-    TabOrder = 11
+    TabOrder = 12
   end
   object btnBackColor2: TButton[17]
     AnchorSideLeft.Control = btnForeColor
     AnchorSideTop.Control = cbBackColor2
     AnchorSideBottom.Control = cbBackColor2
     AnchorSideBottom.Side = asrBottom
-    Left = 358
+    Left = 366
     Height = 22
     Top = 68
     Width = 28
@@ -262,48 +262,48 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = btnForeColor
     AnchorSideRight.Control = Owner
     AnchorSideRight.Side = asrBottom
-    Left = 396
-    Height = 139
+    Left = 404
+    Height = 135
     Top = 8
-    Width = 197
+    Width = 234
     Anchors = [akTop, akLeft, akRight]
     AutoSize = True
     BorderSpacing.Left = 10
     BorderSpacing.Right = 6
     Caption = 'Example'
     ClientHeight = 117
-    ClientWidth = 193
-    TabOrder = 12
+    ClientWidth = 230
+    TabOrder = 13
     object pbExample: TPaintBox
       Left = 6
       Height = 105
       Top = 6
-      Width = 181
+      Width = 218
       Align = alClient
       BorderSpacing.Around = 6
       OnPaint = pbExamplePaint
     end
   end
   object cbbUseInvertedSelection: TCheckBox[19]
-    AnchorSideTop.Control = cbCursorText
+    AnchorSideTop.Control = dbOptions
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 25
-    Top = 192
-    Width = 178
-    BorderSpacing.Top = 12
+    Height = 17
+    Top = 211
+    Width = 129
+    BorderSpacing.Top = 6
     Caption = 'Use Inverted Selection'
     OnChange = cbColorBoxChange
-    TabOrder = 13
+    TabOrder = 14
   end
   object tbInactivePanelBrightness: TTrackBar[20]
     AnchorSideLeft.Control = lblInactivePanelBrightness
     AnchorSideLeft.Side = asrBottom
     AnchorSideTop.Control = lblInactivePanelBrightness
     AnchorSideTop.Side = asrCenter
-    Left = 237
-    Height = 34
-    Top = 246
+    Left = 172
+    Height = 42
+    Top = 241
     Width = 200
     Max = 100
     PageSize = 10
@@ -312,16 +312,16 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     TickStyle = tsNone
     BorderSpacing.Left = 8
     BorderSpacing.Top = 6
-    TabOrder = 14
+    TabOrder = 15
   end
   object lblInactivePanelBrightness: TLabel[21]
     AnchorSideLeft.Control = cbbUseFrameCursor
     AnchorSideTop.Control = cbbUseFrameCursor
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 22
-    Top = 252
-    Width = 223
+    Height = 14
+    Top = 255
+    Width = 158
     BorderSpacing.Top = 5
     Caption = 'Brightness level of inactive panel'
     ParentColor = False
@@ -331,15 +331,142 @@ inherited frmOptionsFilePanelsColors: TfrmOptionsFilePanelsColors
     AnchorSideTop.Control = cbbUseInvertedSelection
     AnchorSideTop.Side = asrBottom
     Left = 6
-    Height = 25
-    Top = 222
-    Width = 146
+    Height = 17
+    Top = 233
+    Width = 106
     BorderSpacing.Top = 5
     Caption = 'Use Frame Cursor'
     OnChange = cbColorBoxChange
-    TabOrder = 15
+    TabOrder = 16
   end
-  object optColorDialog: TColorDialog[23]
+  object lblIndColor: TLabel[23]
+    AnchorSideLeft.Control = cbbUseGradientInd
+    AnchorSideTop.Control = cbIndColor
+    AnchorSideTop.Side = asrCenter
+    AnchorSideRight.Side = asrCenter
+    Left = 6
+    Height = 14
+    Top = 336
+    Width = 101
+    Caption = 'Indicator Fore Color:'
+    ParentColor = False
+  end
+  object lblIndBackColor: TLabel[24]
+    AnchorSideLeft.Control = lblIndColor
+    AnchorSideTop.Control = cbIndBackColor
+    AnchorSideTop.Side = asrCenter
+    Left = 6
+    Height = 14
+    Top = 366
+    Width = 101
+    Caption = 'Indicator Back Color:'
+    ParentColor = False
+  end
+  object cbIndColor: TColorBox[25]
+    AnchorSideLeft.Control = cbCursorText
+    AnchorSideTop.Control = cbbUseGradientInd
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = cbCursorText
+    AnchorSideRight.Side = asrBottom
+    Left = 160
+    Height = 22
+    Top = 332
+    Width = 200
+    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 5
+    ItemHeight = 16
+    TabOrder = 10
+  end
+  object cbIndBackColor: TColorBox[26]
+    AnchorSideLeft.Control = cbIndColor
+    AnchorSideTop.Control = cbIndColor
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = cbIndColor
+    AnchorSideRight.Side = asrBottom
+    Left = 160
+    Height = 24
+    Top = 361
+    Width = 200
+    Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbPrettyNames]
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 7
+    ItemHeight = 16
+    TabOrder = 17
+  end
+  object btnIndColor: TButton[27]
+    AnchorSideLeft.Control = btnCursorText
+    AnchorSideTop.Control = cbIndColor
+    AnchorSideRight.Control = btnCursorText
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = cbIndColor
+    AnchorSideBottom.Side = asrBottom
+    Left = 366
+    Height = 22
+    Top = 332
+    Width = 28
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Caption = '>>'
+    OnClick = btnIndColorClick
+    TabOrder = 18
+  end
+  object btnIndBackColor: TButton[28]
+    AnchorSideLeft.Control = btnIndColor
+    AnchorSideTop.Control = cbIndBackColor
+    AnchorSideRight.Control = btnIndColor
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = cbIndBackColor
+    AnchorSideBottom.Side = asrBottom
+    Left = 366
+    Height = 24
+    Top = 361
+    Width = 28
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    Caption = '>>'
+    OnClick = btnIndBackColorClick
+    TabOrder = 19
+  end
+  object cbbUseGradientInd: TCheckBox[29]
+    AnchorSideLeft.Control = lblInactivePanelBrightness
+    AnchorSideTop.Control = dbFreeSpaceIndicator
+    AnchorSideTop.Side = asrBottom
+    Left = 6
+    Height = 17
+    Top = 310
+    Width = 128
+    BorderSpacing.Top = 6
+    Caption = 'Use Gradient Indicator'
+    OnChange = cbbUseGradientIndChange
+    TabOrder = 20
+  end
+  object dbFreeSpaceIndicator: TDividerBevel[30]
+    AnchorSideLeft.Control = lblInactivePanelBrightness
+    AnchorSideTop.Control = tbInactivePanelBrightness
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = btnIndColor
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 17
+    Top = 287
+    Width = 388
+    Caption = 'Drive Free Space Indicator'
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 4
+  end
+  object dbOptions: TDividerBevel[31]
+    AnchorSideLeft.Control = lblCursorText
+    AnchorSideTop.Control = cbCursorText
+    AnchorSideTop.Side = asrBottom
+    AnchorSideRight.Control = btnCursorText
+    AnchorSideRight.Side = asrBottom
+    Left = 6
+    Height = 17
+    Top = 188
+    Width = 388
+    Anchors = [akTop, akLeft, akRight]
+    BorderSpacing.Top = 8
+  end
+  object optColorDialog: TColorDialog[32]
     Color = clBlack
     CustomColors.Strings = (
       'ColorA=000000'

src/frames/foptionsfilepanelscolors.lrt

@@ -14,3 +14,9 @@ TFRMOPTIONSFILEPANELSCOLORS.GBEXAMPLE.CAPTION=Example
 TFRMOPTIONSFILEPANELSCOLORS.CBBUSEINVERTEDSELECTION.CAPTION=Use Inverted Selection
 TFRMOPTIONSFILEPANELSCOLORS.LBLINACTIVEPANELBRIGHTNESS.CAPTION=Brightness level of inactive panel
 TFRMOPTIONSFILEPANELSCOLORS.CBBUSEFRAMECURSOR.CAPTION=Use Frame Cursor
+TFRMOPTIONSFILEPANELSCOLORS.LBLINDCOLOR.CAPTION=Indicator Fore Color:
+TFRMOPTIONSFILEPANELSCOLORS.LBLINDBACKCOLOR.CAPTION=Indicator Back Color:
+TFRMOPTIONSFILEPANELSCOLORS.BTNINDCOLOR.CAPTION=>>
+TFRMOPTIONSFILEPANELSCOLORS.BTNINDBACKCOLOR.CAPTION=>>
+TFRMOPTIONSFILEPANELSCOLORS.CBBUSEGRADIENTIND.CAPTION=Use Gradient Indicator
+TFRMOPTIONSFILEPANELSCOLORS.DBFREESPACEINDICATOR.CAPTION=Drive Free Space Indicator

src/frames/foptionsfilepanelscolors.pas

@@ -28,7 +28,7 @@ interface
 
 uses
   Classes, SysUtils, ComCtrls, StdCtrls, ColorBox, ExtCtrls, Dialogs,
-  fOptionsFrame;
+  DividerBevel, fOptionsFrame;
 
 type
 
@@ -41,6 +41,8 @@ type
     btnCursorText: TButton;
     btnForeColor: TButton;
     btnMarkColor: TButton;
+    btnIndColor: TButton;
+    btnIndBackColor: TButton;
     cbBackColor: TColorBox;
     cbBackColor2: TColorBox;
     cbbUseFrameCursor: TCheckBox;
@@ -49,7 +51,14 @@ type
     cbCursorText: TColorBox;
     cbMarkColor: TColorBox;
     cbTextColor: TColorBox;
+    cbIndColor: TColorBox;
+    cbIndBackColor: TColorBox;
+    cbbUseGradientInd: TCheckBox;
+    dbFreeSpaceIndicator: TDividerBevel;
+    dbOptions: TDividerBevel;
     gbExample: TGroupBox;
+    lblIndBackColor: TLabel;
+    lblIndColor: TLabel;
     lblBackgroundColor: TLabel;
     lblBackgroundColor2: TLabel;
     lblCursorColor: TLabel;
@@ -65,7 +74,10 @@ type
     procedure btnCursorColorClick(Sender: TObject);
     procedure btnCursorTextClick(Sender: TObject);
     procedure btnForeColorClick(Sender: TObject);
+    procedure btnIndBackColorClick(Sender: TObject);
+    procedure btnIndColorClick(Sender: TObject);
     procedure btnMarkColorClick(Sender: TObject);
+    procedure cbbUseGradientIndChange(Sender: TObject);
     procedure cbColorBoxChange(Sender: TObject);
     procedure pbExamplePaint(Sender: TObject);
   protected
@@ -104,8 +116,11 @@ begin
   SetColorInColorBox(cbMarkColor, gMarkColor);
   SetColorInColorBox(cbCursorColor, gCursorColor);
   SetColorInColorBox(cbCursorText, gCursorText);
+  SetColorInColorBox(cbIndColor, gIndForeColor);
+  SetColorInColorBox(cbIndBackColor, gIndBackColor);
   cbbUseInvertedSelection.Checked:= gUseInvertedSelection;
   cbbUseFrameCursor.Checked:= gUseFrameCursor;
+  cbbUseGradientInd.Checked := gIndUseGradient;
   tbInactivePanelBrightness.Position:= gInactivePanelBrightness;
 end;
 
@@ -117,9 +132,12 @@ begin
   gMarkColor := cbMarkColor.Selected;
   gCursorColor := cbCursorColor.Selected;
   gCursorText := cbCursorText.Selected;
+  gIndForeColor :=  cbIndColor.Selected;
+  gIndBackColor := cbIndBackColor.Selected;
   gUseInvertedSelection := cbbUseInvertedSelection.Checked;
   gInactivePanelBrightness := tbInactivePanelBrightness.Position;
   gUseFrameCursor := cbbUseFrameCursor.Checked;
+  gIndUseGradient := cbbUseGradientInd.Checked;
   Result := [];
 end;
 
@@ -173,6 +191,26 @@ begin
   end;
 end;
 
+procedure TfrmOptionsFilePanelsColors.btnIndBackColorClick(Sender: TObject);
+begin
+  optColorDialog.Color:= cbIndBackColor.Selected;
+  if optColorDialog.Execute then
+  begin
+    SetColorInColorBox(cbIndBackColor, optColorDialog.Color);
+    //pbExample.Repaint;
+  end;
+end;
+
+procedure TfrmOptionsFilePanelsColors.btnIndColorClick(Sender: TObject);
+begin
+  optColorDialog.Color:= cbIndColor.Selected;
+  if optColorDialog.Execute then
+  begin
+    SetColorInColorBox(cbIndColor, optColorDialog.Color);
+    //pbExample.Repaint;
+  end;
+end;
+
 procedure TfrmOptionsFilePanelsColors.btnMarkColorClick(Sender: TObject);
 begin
   optColorDialog.Color:= cbMarkColor.Selected;
@@ -183,6 +221,16 @@ begin
   end;
 end;
 
+procedure TfrmOptionsFilePanelsColors.cbbUseGradientIndChange(Sender: TObject);
+begin
+  lblIndColor.Enabled     := not(cbbUseGradientInd.Checked);
+  lblIndBackColor.Enabled := not(cbbUseGradientInd.Checked);
+  cbIndColor.Enabled      := not(cbbUseGradientInd.Checked);
+  cbIndBackColor.Enabled  := not(cbbUseGradientInd.Checked);
+  btnIndColor.Enabled     := not(cbbUseGradientInd.Checked);
+  btnIndBackColor.Enabled := not(cbbUseGradientInd.Checked);
+end;
+
 procedure TfrmOptionsFilePanelsColors.cbColorBoxChange(Sender: TObject);
 begin
   pbExample.Repaint;

src/uglobs.pas

@@ -205,10 +205,14 @@ var
   gForeColor,  //text color
   gMarkColor,  // Mark color
   gCursorColor, //Cursor color
-  gCursorText : TColor; //text color under cursor
+  gCursorText,  //text color under cursor
+  gIndForeColor,    // foreColor of use space on drive label
+  gIndBackColor: TColor; // backColor of free space on drive label
+
   gUseInvertedSelection: Boolean;
   gInactivePanelBrightness: Integer; // 0 .. 100 (black .. full color)
   gUseFrameCursor: Boolean;
+  gIndUseGradient : Boolean;             // use gradient on drive label
 
   gShowIcons: TShowIconsMode;
   gShowIconsNew: TShowIconsMode;
@@ -738,8 +742,11 @@ begin
   gMarkColor := clRed;
   gCursorColor := clHighlight;
   gCursorText := clHighlightText;
+  gIndForeColor := clBlack;
+  gIndBackColor := clWhite;
   gUseInvertedSelection := False;
   gInactivePanelBrightness := 100; // Full brightness
+  gIndUseGradient := True;
 
   { Layout page }
   gMainMenu := True;
@@ -1574,6 +1581,9 @@ begin
       gUseInvertedSelection := GetValue(Node, 'UseInvertedSelection', gUseInvertedSelection);
       gInactivePanelBrightness := GetValue(Node, 'InactivePanelBrightness', gInactivePanelBrightness);
       gUseFrameCursor:= GetValue(Node,'UseFrameCursor', gUseFrameCursor);
+      gIndForeColor := GetValue(Node, 'FreeSpaceIndicator/ForeColor', gIndForeColor);
+      gIndBackColor := GetValue(Node, 'FreeSpaceIndicator/BackColor', gIndBackColor);
+      gIndUseGradient := GetValue(Node, 'FreeSpaceIndicator/UseGradient', gIndUseGradient);
 
       gColorExt.Load(gConfig, Node);
     end;
@@ -1915,6 +1925,9 @@ begin
     SetValue(Node, 'UseInvertedSelection', gUseInvertedSelection);
     SetValue(Node, 'InactivePanelBrightness', gInactivePanelBrightness);
     SetValue(Node, 'UseFrameCursor', gUseFrameCursor);
+    SetValue(Node, 'FreeSpaceIndicator/ForeColor', gIndForeColor);
+    SetValue(Node, 'FreeSpaceIndicator/BackColor', gIndBackColor);
+    SetValue(Node, 'FreeSpaceIndicator/UseGradient', gIndUseGradient);
     gColorExt.Save(gConfig, Node);
 
     { ToolTips page }
@@ -2132,4 +2145,4 @@ initialization
 
 finalization
   DestroyGlobs;
-end.
+end.