From 11e7b6f6aa623d0368ba36046a14d24381b5dd84 Mon Sep 17 00:00:00 2001
From: Joachim Marder <joachim.marder@outlook.com>
Date: Thu, 26 Dec 2024 08:44:47 +0100
Subject: [PATCH] Fixed compiler warning about signed and unsinged types

---
 Source/VirtualTrees.BaseTree.pas | 6 +++---
 Source/VirtualTrees.Header.pas   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas
index 7d0d393c..61cb6923 100644
--- a/Source/VirtualTrees.BaseTree.pas
+++ b/Source/VirtualTrees.BaseTree.pas
@@ -326,7 +326,7 @@   TClipboardFormats = class(TStringList)
                                           const APlusSelectedHotBM :TBitmap; const AMinusBM : TBitmap; const AMinusHotBM : TBitmap;
                                           const AMinusSelectedHotBM :TBitmap; var ASize : TSize) of object;
 
-  TVTColumnHeaderSpanningEvent = procedure(Sender: TVTHeader; Column: TColumnIndex; var Count: Cardinal) of object;
+  TVTColumnHeaderSpanningEvent = procedure(Sender: TVTHeader; Column: TColumnIndex; var Count: Integer) of object;
 
   // search, sort
   TVTCompareEvent = procedure(Sender: TBaseVirtualTree; Node1, Node2: PVirtualNode; Column: TColumnIndex;
@@ -1058,7 +1058,7 @@   TBaseVirtualTree = class abstract(TVTBaseAncestor)
     procedure DoStructureChange(Node: PVirtualNode; Reason: TChangeReason); virtual;
     procedure DoTimerScroll; virtual;
     procedure DoUpdating(State: TVTUpdateState); virtual;
-    procedure DoColumnHeaderSpanning(Column: TColumnIndex; var Count: Cardinal); virtual;
+    procedure DoColumnHeaderSpanning(Column: TColumnIndex; var Count: Integer); virtual;
     function DoValidateCache: Boolean; virtual;
     procedure DragAndDrop(AllowedEffects: DWord; const DataObject: TVTDragDataObject; var DragEffect: Integer); virtual;
     procedure DragCanceled; override;
@@ -9676,7 +9676,7 @@ procedure TBaseVirtualTree.DoColumnDblClick(Column: TColumnIndex; Shift: TShiftS
 
 //----------------------------------------------------------------------------------------------------------------------
 
-procedure TBaseVirtualTree.DoColumnHeaderSpanning(Column: TColumnIndex; var Count: Cardinal);
+procedure TBaseVirtualTree.DoColumnHeaderSpanning(Column: TColumnIndex; var Count: Integer);
 begin
   if Assigned(FOnColumnHeaderSpanning) then
     FOnColumnHeaderSpanning(Self.Header, Column, Count);
diff --git a/Source/VirtualTrees.Header.pas b/Source/VirtualTrees.Header.pas
index 3d5ad05c..8d98aa32 100644
--- a/Source/VirtualTrees.Header.pas
+++ b/Source/VirtualTrees.Header.pas
@@ -5743,7 +5743,7 @@ procedure TVirtualTreeColumns.PaintHeader(TargetCanvas : TCanvas; R : TRect; con
 var
   TargetRect : TRect;
   MaxX       : TDimension;
-  Count: Cardinal;
+  Count: Integer;
   EndCol: TColumnIndex;
 begin
   if IsRectEmpty(R) then