Removed vcl styles utils units

Updated copyright banner
Format spurce code

Author: RRUZ

Main.dfm

@@ -92,6 +92,10 @@ object FrmMain: TFrmMain
         object TabSheet2: TTabSheet
           Caption = 'Log'
           ImageIndex = 35
+          ExplicitLeft = 0
+          ExplicitTop = 0
+          ExplicitWidth = 0
+          ExplicitHeight = 0
           object MemoLog: TMemo
             Left = 0
             Top = 0
@@ -239,7 +243,7 @@ object FrmMain: TFrmMain
     Left = 423
     Top = 198
     Bitmap = {
-      494C010157005900040010001000FFFFFFFF2110FFFFFFFFFFFFFFFF424D3600
+      494C0101570059000C0010001000FFFFFFFF2110FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000006001000001002000000000000060
       010000000000000000000000000000000000050505060D0D0D0E1919191A2525
       25262F2F2F30323232338D8D8D8FB0BCAFCCB0BCAFCC8D8D8D8F323232333232

Main.pas

@@ -15,7 +15,7 @@
 // The Original Code is Main.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2019 Rodrigo Ruz V.
 // All Rights Reserved.
 //
 // **************************************************************************************************
@@ -29,7 +29,7 @@ interface
   Dialogs, StdCtrls, ComCtrls, ExtCtrls, Rtti, Generics.Collections, uHostsAdmin,
   SynEdit, ImgList, ToolWin, uSettings, Menus, Buttons, Vcl.Styles.ColorTabs,
   Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnPopup, Vcl.ActnList, Vcl.ActnMan,
-  System.Actions;
+  System.Actions, System.ImageList;
 
 type
   TFrmMain = class(TForm)
@@ -82,7 +82,8 @@   TFrmMain = class(TForm)
     procedure ActionDisconnectUpdate(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButtonExitClick(Sender: TObject);
-    procedure TreeViewTasksCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
+    procedure TreeViewTasksCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
+      var DefaultDraw: Boolean);
   private
     FSettings: TSettings;
     FCtx: TRttiContext;
@@ -546,7 +547,8 @@ procedure TFrmMain.TreeViewTasksChange(Sender: TObject; Node: TTreeNode);
 
 end;
 
-procedure TFrmMain.TreeViewTasksCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
+procedure TFrmMain.TreeViewTasksCustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState;
+  var DefaultDraw: Boolean);
 begin
   if not StyleServices.IsSystemStyle then
     if cdsSelected in State then

Units/Misc/uComboBox.pas

@@ -1,4 +1,4 @@
-//**************************************************************************************************
+// **************************************************************************************************
 //
 // Unit uComboBox
 // unit for the WMI Delphi Code Creator
@@ -15,10 +15,10 @@
 // The Original Code is uComboBox.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2019 Rodrigo Ruz V.
 // All Rights Reserved.
 //
-//**************************************************************************************************
+// **************************************************************************************************
 
 unit uComboBox;
 
@@ -41,11 +41,9 @@   TComboBox = class(StdCtrls.TComboBox)
     constructor Create(AOwner: TComponent); override;
     property ItemWidth: integer Read FItemWidth Write FItemWidth;
   published
-    property DropDownFixedWidth: integer Read FDropDownFixedWidth
-      Write SetDropDownFixedWidth;
+    property DropDownFixedWidth: integer Read FDropDownFixedWidth Write SetDropDownFixedWidth;
   end;
 
-
 implementation
 
 uses

Units/Misc/uCustomImageDrawHook.pas

@@ -1,4 +1,4 @@
-//**************************************************************************************************
+// **************************************************************************************************
 //
 // Unit uCustomImageDrawHook
 // unit for the WMI Delphi Code Creator
@@ -15,12 +15,10 @@
 // The Original Code is uCustomImageDrawHook.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2019 Rodrigo Ruz V.
 // All Rights Reserved.
 //
-//**************************************************************************************************
-
-
+// **************************************************************************************************
 
 unit uCustomImageDrawHook;
 
@@ -43,15 +41,15 @@ implementation
   PXRedirCode = ^TXRedirCode;
 
   TXRedirCode = packed record
-    Jump:   byte;
+    Jump: byte;
     Offset: TJumpOfs;
   end;
 
   PAbsoluteIndirectJmp = ^TAbsoluteIndirectJmp;
 
   TAbsoluteIndirectJmp = packed record
     OpCode: word;
-    Addr:   PPointer;
+    Addr: PPointer;
   end;
 
   TCustomImageListClass = class(TCustomImageList);
@@ -63,8 +61,7 @@ function GetActualAddr(Proc: Pointer): Pointer;
 begin
   if Proc <> nil then
   begin
-    if (Win32Platform = VER_PLATFORM_WIN32_NT) and
-      (PAbsoluteIndirectJmp(Proc).OpCode = $25FF) then
+    if (Win32Platform = VER_PLATFORM_WIN32_NT) and (PAbsoluteIndirectJmp(Proc).OpCode = $25FF) then
       Result := PAbsoluteIndirectJmp(Proc).Addr^
     else
       Result := Proc;
@@ -75,14 +72,14 @@ function GetActualAddr(Proc: Pointer): Pointer;
 
 procedure HookProc(Proc, Dest: Pointer; var BackupCode: TXRedirCode);
 var
-  lpNumberOfBytesRead:    SIZE_T;
+  lpNumberOfBytesRead: SIZE_T;
   Code: TXRedirCode;
 begin
   Proc := GetActualAddr(Proc);
   Assert(Proc <> nil);
   if ReadProcessMemory(GetCurrentProcess, Proc, @BackupCode, SizeOf(BackupCode), lpNumberOfBytesRead) then
   begin
-    Code.Jump   := $E9;
+    Code.Jump := $E9;
     Code.Offset := PAnsiChar(Dest) - PAnsiChar(Proc) - SizeOf(Code);
     WriteProcessMemory(GetCurrentProcess, Proc, @Code, SizeOf(Code), lpNumberOfBytesRead);
   end;
@@ -101,7 +98,7 @@ procedure UnhookProc(Proc: Pointer; var BackupCode: TXRedirCode);
   end;
 end;
 
-procedure DoDrawGrayImage(hdcDst: HDC; himl: HIMAGELIST; ImageIndex, X, Y: Integer);
+procedure DoDrawGrayImage(hdcDst: HDC; himl: HIMAGELIST; ImageIndex, X, Y: integer);
 var
   pimldp: TImageListDrawParams;
 begin
@@ -111,13 +108,11 @@ procedure DoDrawGrayImage(hdcDst: HDC; himl: HIMAGELIST; ImageIndex, X, Y: Integ
   pimldp.hdcDst := hdcDst;
   pimldp.himl := himl;
   pimldp.i := ImageIndex;
-  pimldp.x := X;
-  pimldp.y := Y;
+  pimldp.X := X;
+  pimldp.Y := Y;
   ImageList_DrawIndirect(@pimldp);
 end;
 
-
-
 function GetRGBColor(Value: TColor): DWORD;
 begin
   Result := ColorToRGB(Value);
@@ -129,19 +124,17 @@ function GetRGBColor(Value: TColor): DWORD;
   end;
 end;
 
-procedure New_Draw(Self: TObject; Index: integer; Canvas: TCanvas;
-  X, Y: integer; Style: cardinal; Enabled: boolean);
+procedure New_Draw(Self: TObject; Index: integer; Canvas: TCanvas; X, Y: integer; Style: cardinal; Enabled: boolean);
 var
-  LImageList : TCustomImageList;
+  LImageList: TCustomImageList;
 begin
-  LImageList:=TCustomImageListClass(Self);
+  LImageList := TCustomImageListClass(Self);
   with TCustomImageListClass(Self) do
   begin
     if not HandleAllocated then
       Exit;
     if Enabled then
-      ImageList_DrawEx(Handle, Index, Canvas.Handle, X, Y, 0, 0,
-        GetRGBColor(BkColor), GetRGBColor(BlendColor), Style)
+      ImageList_DrawEx(Handle, Index, Canvas.Handle, X, Y, 0, 0, GetRGBColor(BkColor), GetRGBColor(BlendColor), Style)
     else
       DoDrawGrayImage(Canvas.Handle, LImageList.Handle, Index, X, Y);
   end;
@@ -157,10 +150,12 @@ procedure UnHookDraw;
   UnhookProc(@TCustomImageListClass.DoDraw, DoDrawBackup);
 end;
 
-
 initialization
-  HookDraw;
+
+HookDraw;
 
 finalization
-  UnHookDraw;
+
+UnHookDraw;
+
 end.

Units/Misc/uListView_Helper.pas

@@ -1,4 +1,4 @@
-//**************************************************************************************************
+// **************************************************************************************************
 //
 // Unit uListView_Helper
 // unit for the WMI Delphi Code Creator
@@ -15,10 +15,10 @@
 // The Original Code is uListView_Helper.pas.
 //
 // The Initial Developer of the Original Code is Rodrigo Ruz V.
-// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2015 Rodrigo Ruz V.
+// Portions created by Rodrigo Ruz V. are Copyright (C) 2011-2019 Rodrigo Ruz V.
 // All Rights Reserved.
 //
-//**************************************************************************************************
+// **************************************************************************************************
 
 unit uListView_Helper;
 
@@ -31,55 +31,51 @@ interface
 const
   LVSCW_AUTOSIZE_BESTFIT = -3;
 
-procedure AutoResizeColumn(const Column: TListColumn;  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
-procedure AutoResizeColumns(const Columns: array of TListColumn;  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
-procedure AutoResizeListView(const ListView: TListView;  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
-
+procedure AutoResizeColumn(const Column: TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
+procedure AutoResizeColumns(const Columns: array of TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
+procedure AutoResizeListView(const ListView: TListView; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
 
 implementation
 
 uses
   System.Classes,
   Winapi.Windows;
 
-
-procedure AutoResizeColumn(const Column: TListColumn;
-  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
+procedure AutoResizeColumn(const Column: TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
 var
   LWidth: integer;
 begin
   case Mode of
     LVSCW_AUTOSIZE_BESTFIT:
-    begin
-      Column.Width := LVSCW_AUTOSIZE;
-      LWidth := Column.Width;
-      Column.Width := LVSCW_AUTOSIZE_USEHEADER;
-      if LWidth > Column.Width then
+      begin
         Column.Width := LVSCW_AUTOSIZE;
-    end;
+        LWidth := Column.Width;
+        Column.Width := LVSCW_AUTOSIZE_USEHEADER;
+        if LWidth > Column.Width then
+          Column.Width := LVSCW_AUTOSIZE;
+      end;
 
-    LVSCW_AUTOSIZE: Column.Width := LVSCW_AUTOSIZE;
-    LVSCW_AUTOSIZE_USEHEADER: Column.Width := LVSCW_AUTOSIZE_USEHEADER;
+    LVSCW_AUTOSIZE:
+      Column.Width := LVSCW_AUTOSIZE;
+    LVSCW_AUTOSIZE_USEHEADER:
+      Column.Width := LVSCW_AUTOSIZE_USEHEADER;
   end;
 end;
 
-procedure AutoResizeColumns(const Columns: array of TListColumn;
-  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
+procedure AutoResizeColumns(const Columns: array of TListColumn; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
 var
   LIndex: integer;
 begin
   for LIndex := Low(Columns) to High(Columns) do
     AutoResizeColumn(Columns[LIndex], Mode);
 end;
 
-procedure AutoResizeListView(const ListView: TListView;
-  const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
+procedure AutoResizeListView(const ListView: TListView; const Mode: integer = LVSCW_AUTOSIZE_BESTFIT);
 var
   LIndex: integer;
 begin
   for LIndex := 0 to ListView.Columns.Count - 1 do
     AutoResizeColumn(ListView.Columns[LIndex], Mode);
 end;
 
-
 end.