From b1035c6db2117c6d436bd104f56b68e2366c572d Mon Sep 17 00:00:00 2001
From: Mark van Renswoude <mark@x2software.net>
Date: Thu, 14 Feb 2013 07:32:03 +0000
Subject: [PATCH] Added: categories shown in bold

---
 G940LEDControl/Forms/ButtonFunctionFrm.dfm | 14 +-------------
 G940LEDControl/Forms/ButtonFunctionFrm.pas | 18 ++++++++++++++++++
 2 files changed, 19 insertions(+), 13 deletions(-)

diff --git a/G940LEDControl/Forms/ButtonFunctionFrm.dfm b/G940LEDControl/Forms/ButtonFunctionFrm.dfm
index 84d8bf2..a4a0057 100644
--- a/G940LEDControl/Forms/ButtonFunctionFrm.dfm
+++ b/G940LEDControl/Forms/ButtonFunctionFrm.dfm
@@ -26,9 +26,6 @@ object ButtonFunctionForm: TButtonFunctionForm
     Align = alBottom
     BevelOuter = bvNone
     TabOrder = 0
-    ExplicitLeft = 168
-    ExplicitTop = 232
-    ExplicitWidth = 185
     DesignSize = (
       692
       41)
@@ -42,7 +39,6 @@ object ButtonFunctionForm: TButtonFunctionForm
       Default = True
       ModalResult = 1
       TabOrder = 0
-      ExplicitLeft = 467
     end
     object btnCancel: TButton
       Left = 609
@@ -54,7 +50,6 @@ object ButtonFunctionForm: TButtonFunctionForm
       Caption = 'Cancel'
       ModalResult = 2
       TabOrder = 1
-      ExplicitLeft = 548
     end
   end
   object vstFunctions: TVirtualStringTree
@@ -80,6 +75,7 @@ object ButtonFunctionForm: TButtonFunctionForm
     TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages]
     TreeOptions.SelectionOptions = [toFullRowSelect]
     OnGetText = vstFunctionsGetText
+    OnPaintText = vstFunctionsPaintText
     Columns = <
       item
         Position = 0
@@ -100,10 +96,6 @@ object ButtonFunctionForm: TButtonFunctionForm
     Align = alClient
     BevelOuter = bvNone
     TabOrder = 2
-    ExplicitLeft = 224
-    ExplicitTop = 192
-    ExplicitWidth = 185
-    ExplicitHeight = 41
     object vstStates: TVirtualStringTree
       Left = 0
       Top = 113
@@ -118,9 +110,6 @@ object ButtonFunctionForm: TButtonFunctionForm
       Header.Font.Style = []
       Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible]
       TabOrder = 0
-      ExplicitTop = 93
-      ExplicitWidth = 407
-      ExplicitHeight = 259
       Columns = <
         item
           Position = 0
@@ -141,7 +130,6 @@ object ButtonFunctionForm: TButtonFunctionForm
       Align = alTop
       BevelOuter = bvNone
       TabOrder = 1
-      ExplicitWidth = 407
       DesignSize = (
         411
         113)
diff --git a/G940LEDControl/Forms/ButtonFunctionFrm.pas b/G940LEDControl/Forms/ButtonFunctionFrm.pas
index 5ed3f9c..6c1c5b4 100644
--- a/G940LEDControl/Forms/ButtonFunctionFrm.pas
+++ b/G940LEDControl/Forms/ButtonFunctionFrm.pas
@@ -6,6 +6,7 @@ uses
   Vcl.Controls,
   Vcl.ExtCtrls,
   Vcl.Forms,
+  Vcl.Graphics,
   Vcl.StdCtrls,
 
   VirtualTrees,
@@ -30,6 +31,7 @@ type
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure vstFunctionsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
+    procedure vstFunctionsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
   private
     FButtonIndex: Integer;
     FProfile: TProfile;
@@ -167,10 +169,26 @@ var
 
 begin
   nodeData := Sender.GetNodeData(Node);
+
   case nodeData^.NodeType of
     ntCategory: CellText := nodeData^.LEDFunction.GetCategoryName;
     ntFunction: CellText := nodeData^.LEDFunction.GetDisplayName;
   end;
 end;
 
+
+procedure TButtonFunctionForm.vstFunctionsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas;
+                                                    Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
+var
+  nodeData: PNodeData;
+
+begin
+  nodeData := Sender.GetNodeData(Node);
+
+  if nodeData^.NodeType = ntCategory then
+    TargetCanvas.Font.Style := [fsBold]
+  else
+    TargetCanvas.Font.Style := [];
+end;
+
 end.