From cbe6a0c623ef70bd4db0f954193212528dd01a88 Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <Wolfgang@Contre.COM>
Date: Sun, 14 Apr 2024 15:44:20 -0400
Subject: [PATCH] feat: use the Lazarus provided "laz.VirtualTrees" package

---
 D64Explorer.lpi             |   2 +-
 D64Explorer.res             | Bin 88816 -> 88864 bytes
 FrameD64ExplorerLibrary.lfm |   2 +-
 FrameD64ExplorerLibrary.pas |   4 ++--
 FrameD64ExplorerManage.lfm  |   4 ++--
 FrameD64ExplorerManage.pas  |   6 +++---
 6 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/D64Explorer.lpi b/D64Explorer.lpi
index 8a88bf9..a75a44d 100644
--- a/D64Explorer.lpi
+++ b/D64Explorer.lpi
@@ -117,7 +117,7 @@
     </RunParams>
     <RequiredPackages Count="3">
       <Item1>
-        <PackageName Value="virtualtreeview_package"/>
+        <PackageName Value="laz.virtualtreeview_package"/>
       </Item1>
       <Item2>
         <PackageName Value="LazControls"/>
diff --git a/D64Explorer.res b/D64Explorer.res
index 630c1729d5dd929d953791fd7e119cc709d9ed22..9e6f8dd8e09540c6278ea96a0442499fa888bb4d 100644
GIT binary patch
delta 66
zcmeycm36^3)(HxX4>u}KV^dME$;r=44@fM@a4b(OO0`Q%%qdQ_(MJ)Syq3+Kk)ioB
L+xE|FjDLdxT#6Z=

delta 27
jcmZ3mjrGG;)(HxXn>Q*>W1IYx&9+&EeY*-f<DXyvpEwG0

diff --git a/FrameD64ExplorerLibrary.lfm b/FrameD64ExplorerLibrary.lfm
index f5a53ad..f029577 100644
--- a/FrameD64ExplorerLibrary.lfm
+++ b/FrameD64ExplorerLibrary.lfm
@@ -25,7 +25,7 @@ inherited D64ExplorerLibraryFrame: TD64ExplorerLibraryFrame
     ClientHeight = 256
     ClientWidth = 664
     TabOrder = 1
-    object VirtualStringTree1: TVirtualStringTree
+    object VirtualStringTree1: TLazVirtualStringTree
       Left = 8
       Height = 240
       Top = 8
diff --git a/FrameD64ExplorerLibrary.pas b/FrameD64ExplorerLibrary.pas
index 94d80a2..92cfbf6 100644
--- a/FrameD64ExplorerLibrary.pas
+++ b/FrameD64ExplorerLibrary.pas
@@ -7,7 +7,7 @@ interface
 
 uses
     Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls,
-    IniFiles, D64ExplorerTypes, FrameD64ExplorerTask, VirtualTrees;
+    IniFiles, D64ExplorerTypes, FrameD64ExplorerTask, laz.VirtualTrees;
 
 type
 
@@ -19,7 +19,7 @@     TD64ExplorerLibraryFrame = class(TD64ExplorerTaskFrame)
         Panel1: TPanel;
         Panel2: TPanel;
 		Panel3: TPanel;
-        VirtualStringTree1: TVirtualStringTree;
+        VirtualStringTree1: TLazVirtualStringTree;
 		procedure PaintBox1Paint(Sender: TObject);
         procedure VirtualStringTree1DblClick(Sender: TObject);
         procedure VirtualStringTree1GetImageIndex(Sender: TBaseVirtualTree;
diff --git a/FrameD64ExplorerManage.lfm b/FrameD64ExplorerManage.lfm
index dba412e..2536ca7 100644
--- a/FrameD64ExplorerManage.lfm
+++ b/FrameD64ExplorerManage.lfm
@@ -313,7 +313,7 @@ inherited D64ExplorerManageFrame: TD64ExplorerManageFrame
     DoubleBuffered = True
     ParentDoubleBuffered = False
     TabOrder = 1
-    object VirtualDrawTree1: TVirtualDrawTree
+    object VirtualDrawTree1: TLazVirtualDrawTree
       Cursor = 63
       Left = 256
       Height = 437
@@ -376,7 +376,7 @@ inherited D64ExplorerManageFrame: TD64ExplorerManageFrame
       OnDrawNode = VirtualDrawTree1DrawNode
       OnHeaderDrawQueryElements = VirtualDrawTree1HeaderDrawQueryElements
     end
-    object VirtualStringTree1: TVirtualStringTree
+    object VirtualStringTree1: TLazVirtualStringTree
       Left = 8
       Height = 437
       Top = 0
diff --git a/FrameD64ExplorerManage.pas b/FrameD64ExplorerManage.pas
index e741d42..566ed37 100644
--- a/FrameD64ExplorerManage.pas
+++ b/FrameD64ExplorerManage.pas
@@ -7,7 +7,7 @@ interface
 
 uses
     Classes, SysUtils, Graphics, Forms, Controls, ExtCtrls, Menus, ActnList,
-    Buttons, IniFiles, VirtualTrees, C64D64Image, D64ExplorerTypes,
+    Buttons, IniFiles, laz.VirtualTrees, C64D64Image, D64ExplorerTypes,
 	FrameD64ExplorerTask;
 
 type
@@ -74,8 +74,8 @@     TD64ExplorerManageFrame = class(TD64ExplorerTaskFrame)
         SpeedButton8: TSpeedButton;
 		SpeedButton9: TSpeedButton;
         Splitter1: TSplitter;
-        VirtualDrawTree1: TVirtualDrawTree;
-        VirtualStringTree1: TVirtualStringTree;
+        VirtualDrawTree1: TLazVirtualDrawTree;
+        VirtualStringTree1: TLazVirtualStringTree;
 		procedure ActionList1Update(AAction: TBasicAction; var Handled: Boolean
 			);
         procedure ActManageAllPrgExecute(Sender: TObject);