From acb5324d70e8f6fb392ce4bd09875e9cad2127bf Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Sat, 4 Apr 2020 12:43:20 +0200
Subject: [PATCH] fix #16 - Add an optional background color as custom tool
 property

---
 docs/widgets_custom_tools.md |  1 +
 src/u_tools.pas              |  7 +++++--
 src/u_toolseditor.lfm        |  4 +++-
 src/u_toolseditor.pas        | 29 +++++++++++++++++++++++++++--
 4 files changed, 36 insertions(+), 5 deletions(-)

diff --git a/docs/widgets_custom_tools.md b/docs/widgets_custom_tools.md
index 7434e8f3..4a7d4ee3 100644
--- a/docs/widgets_custom_tools.md
+++ b/docs/widgets_custom_tools.md
@@ -30,6 +30,7 @@ A tool can be selected from the left side of the widget. If selected, a property
 
 - **askConfirmation**: Asks for a confirmation before executing the tool.
 - **autoExecuteEvents**: Defines the events for which the tool is automatically executed.
+- **backGroundColor**: The color used to draw the item.
 - **clearMessages**: If the tool standard output is redirected to the [messages widget](widgets_messages.html) then the previous messages are cleared before the execution. The output is redirected to the messages when **popUsePipes** is set and if **nextToolAlias** is empty.
 - **editorToInput**: Deprecated, see **pipeInputKind**.
 - **executable**: The tool file name. If the system cannot find its path in the environment variables then it must be included. The field can include [symbolic strings](features_symbolic_strings.html).
diff --git a/src/u_tools.pas b/src/u_tools.pas
index a93ab2e0..7edf9264 100644
--- a/src/u_tools.pas
+++ b/src/u_tools.pas
@@ -5,9 +5,9 @@ unit u_tools;
 interface
 
 uses
-  Classes, SysUtils, LazFileUtils, process, menus, u_processes, controls,
+  Classes, SysUtils, LazFileUtils, process, menus, controls, graphics,
   u_common, u_writableComponent, u_interfaces, u_observer, u_inspectors,
-  u_synmemo, u_dialogs;
+  u_synmemo, u_dialogs, u_processes;
 
 type
 
@@ -51,6 +51,7 @@ type
     fPipeInputKind: TPipeInputKind;
     fAskConfirmation: boolean;
     fAutoExecuteEvents: TAutoExecuteEvents;
+    fBackColor: TColor;
     procedure setParameters(value: TStringList);
     procedure processOutput(sender: TObject);
     procedure setToolAlias(value: string);
@@ -69,6 +70,7 @@ type
     property pipeInputKind: TPipeInputKind read fPipeInputKind write fPipeInputKind;
     property askConfirmation: boolean read fAskConfirmation write fAskConfirmation;
     property autoExecuteEvents: TAutoExecuteEvents read fAutoExecuteEvents write fAutoExecuteEvents;
+    property backgroundColor: TColor read fBackColor write fBackColor default clBackground;
   public
     constructor create(ACollection: TCollection); override;
     destructor destroy; override;
@@ -158,6 +160,7 @@ begin
   fToolItems  := TToolItems(ACollection);
   fToolAlias  := format('<tool %d>', [ID]);
   fParameters := TStringList.create;
+  fBackColor  := clBackground;
 end;
 
 destructor TToolItem.destroy;
diff --git a/src/u_toolseditor.lfm b/src/u_toolseditor.lfm
index a2c9eb52..5885058e 100644
--- a/src/u_toolseditor.lfm
+++ b/src/u_toolseditor.lfm
@@ -37,8 +37,10 @@ inherited ToolsEditorWidget: TToolsEditorWidget
           Align = alLeft
           ItemHeight = 0
           OnDblClick = lstToolsDblClick
+          OnDrawItem = lstToolsDrawItem
           OnSelectionChange = lstToolsSelectionChange
           ScrollWidth = 158
+          Style = lbOwnerDrawFixed
           TabOrder = 0
           TopIndex = -1
         end
@@ -81,7 +83,7 @@ inherited ToolsEditorWidget: TToolsEditorWidget
       end
       object button1: TDexedToolButton[1]
         Left = 169
-        Height = 5
+        Height = 28
         Top = 0
         AutoSize = True
         Caption = 'button1'
diff --git a/src/u_toolseditor.pas b/src/u_toolseditor.pas
index 0ac537a2..12fd35d0 100644
--- a/src/u_toolseditor.pas
+++ b/src/u_toolseditor.pas
@@ -6,8 +6,8 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, RTTIGrids, Forms, Controls, Graphics, Dialogs,
-  ExtCtrls, Menus, Buttons, StdCtrls, u_widget, u_tools, u_sharedres,
-  u_dsgncontrols;
+  ExtCtrls, Menus, Buttons, StdCtrls, Types, LCLType,
+  u_widget, u_tools, u_sharedres, u_dsgncontrols;
 
 type
 
@@ -32,6 +32,8 @@ type
     procedure btnMoveDownClick(Sender: TObject);
     procedure btnRunClick(Sender: TObject);
     procedure lstToolsDblClick(Sender: TObject);
+    procedure lstToolsDrawItem(Control: TWinControl; Index: Integer;
+      ARect: TRect; State: TOwnerDrawState);
     procedure lstToolsSelectionChange(Sender: TObject; User: boolean);
     procedure propsEdModified(Sender: TObject);
   private
@@ -200,5 +202,28 @@ begin
   executeSelectedTool;
 end;
 
+procedure TToolsEditorWidget.lstToolsDrawItem(Control: TWinControl;
+  Index: Integer; ARect: TRect; State: TOwnerDrawState);
+var
+  c0: TColor;
+begin
+  c0 := CustomTools.tool[Index].backgroundColor;
+  if odSelected in State then
+  begin
+    if c0 = clDefault then
+      c0 := clHighlight;
+    lstTools.Canvas.Brush.Color := c0;
+    lstTools.Canvas.FillRect(ARect);
+    lstTools.Canvas.Pen.Color := clHighlightText;
+    lstTools.Canvas.Rectangle(Arect);
+  end
+  else
+  begin
+    lstTools.Canvas.Brush.Color := c0;
+    lstTools.Canvas.FillRect(ARect);
+  end;
+  lstTools.Canvas.TextOut(Arect.Left+1, ARect.Top+1, CustomTools.tool[Index].toolAlias);
+end;
+
 end.