fix: keep Lazarus forms designer-compatible

Keep TLazVirtualStringTree in .lfm resources so forms open in the Lazarus IDE without a design-time package. On Linux Qt, map the streamed class to THeidiVirtualStringTree at runtime to preserve the Qt-specific rendering and hint fixes.

Author: jarczakpawel

source/connections.lfm

@@ -1148,7 +1148,7 @@ object connform: Tconnform
     Constraints.MinWidth = 100
     ParentBackground = False
     TabOrder = 2
-    object ListSessions: THeidiVirtualStringTree
+    object ListSessions: TLazVirtualStringTree
       Left = 0
       Height = 427
       Top = 28

source/copytable.lfm

@@ -113,7 +113,7 @@ object CopyTableForm: TCopyTableForm
     TabOrder = 4
     OnClick = btnOKClick
   end
-  object TreeElements: THeidiVirtualStringTree
+  object TreeElements: TLazVirtualStringTree
     AnchorSideLeft.Control = comboDatabase
     AnchorSideTop.Control = lblItems
     AnchorSideTop.Side = asrBottom

source/insertfiles.lfm

@@ -121,7 +121,7 @@ object frmInsertFiles: TfrmInsertFiles
       TabOrder = 1
       OnChange = comboTablesChange
     end
-    object ListColumns: THeidiVirtualStringTree
+    object ListColumns: TLazVirtualStringTree
       AnchorSideLeft.Control = grpSelectObject
       AnchorSideTop.Control = lblFilecontents
       AnchorSideTop.Side = asrBottom
@@ -221,7 +221,7 @@ object frmInsertFiles: TfrmInsertFiles
       BorderSpacing.Around = 5
       Caption = '0 files'
     end
-    object ListFiles: THeidiVirtualStringTree
+    object ListFiles: TLazVirtualStringTree
       AnchorSideLeft.Control = GroupBox2
       AnchorSideTop.Control = ToolBar1
       AnchorSideTop.Side = asrBottom

source/lazaruscompat.pas

@@ -569,7 +569,11 @@ function TStringsHelper.IsEmpty: Boolean;
 end;
 
 initialization
+  {$IFDEF HEIDI_LINUX_QT}
   RegisterClass(THeidiVirtualStringTree);
+  UnRegisterClass(TLazVirtualStringTree);
+  RegisterClassAlias(THeidiVirtualStringTree, 'TLazVirtualStringTree');
+  {$ENDIF}
 
 end.
 

source/main.lfm

@@ -940,7 +940,7 @@ object MainForm: TMainForm
           OnKeyPress = editDatabaseTableFilterKeyPress
         end
       end
-      object DBtree: THeidiVirtualStringTree
+      object DBtree: TLazVirtualStringTree
         AnchorSideTop.Side = asrBottom
         AnchorSideRight.Side = asrBottom
         Left = 0
@@ -1127,7 +1127,7 @@ object MainForm: TMainForm
               ClientHeight = 176
               ClientWidth = 607
               ImageIndex = 5
-              object ListDatabases: THeidiVirtualStringTree
+              object ListDatabases: TLazVirtualStringTree
                 Left = 0
                 Height = 176
                 Top = 0
@@ -1211,7 +1211,7 @@ object MainForm: TMainForm
               ClientHeight = 176
               ClientWidth = 607
               ImageIndex = 137
-              object ListVariables: THeidiVirtualStringTree
+              object ListVariables: TLazVirtualStringTree
                 Left = 0
                 Height = 176
                 Top = 0
@@ -1268,7 +1268,7 @@ object MainForm: TMainForm
               ClientHeight = 176
               ClientWidth = 607
               ImageIndex = 13
-              object ListStatus: THeidiVirtualStringTree
+              object ListStatus: TLazVirtualStringTree
                 Left = 0
                 Height = 176
                 Top = 0
@@ -1843,7 +1843,7 @@ object MainForm: TMainForm
                 Align = alBottom
                 ResizeAnchor = akBottom
               end
-              object ListProcesses: THeidiVirtualStringTree
+              object ListProcesses: TLazVirtualStringTree
                 Left = 0
                 Height = 116
                 Top = 0
@@ -1925,7 +1925,7 @@ object MainForm: TMainForm
               ClientHeight = 176
               ClientWidth = 607
               ImageIndex = 145
-              object ListCommandStats: THeidiVirtualStringTree
+              object ListCommandStats: TLazVirtualStringTree
                 Left = 0
                 Height = 176
                 Top = 0
@@ -1996,7 +1996,7 @@ object MainForm: TMainForm
           ClientHeight = 204
           ClientWidth = 615
           ImageIndex = 5
-          object ListTables: THeidiVirtualStringTree
+          object ListTables: TLazVirtualStringTree
             Left = 0
             Height = 204
             Top = 0
@@ -2844,7 +2844,7 @@ object MainForm: TMainForm
               end
             end
           end
-          object DataGrid: THeidiVirtualStringTree
+          object DataGrid: TLazVirtualStringTree
             Left = 2
             Height = 95
             Top = 107
@@ -2938,7 +2938,7 @@ object MainForm: TMainForm
                 OnButtonClick = buttonedEditClear
                 OnChange = filterQueryHelpersChange
               end
-              object treeQueryHelpers: THeidiVirtualStringTree
+              object treeQueryHelpers: TLazVirtualStringTree
                 AnchorSideTop.Side = asrBottom
                 Left = 0
                 Height = 81
@@ -3508,7 +3508,7 @@ object MainForm: TMainForm
             ShowHint = True
             TabOrder = 2
           end
-          object QueryGrid: THeidiVirtualStringTree
+          object QueryGrid: TLazVirtualStringTree
             Left = 0
             Height = 69
             Top = 135

source/preferences.lfm

@@ -1667,7 +1667,7 @@ object frmPreferences: TfrmPreferences
         BorderSpacing.Around = 5
         Caption = 'Secondary shortcut:'
       end
-      object TreeShortcutItems: THeidiVirtualStringTree
+      object TreeShortcutItems: TLazVirtualStringTree
         AnchorSideLeft.Control = tabShortcuts
         AnchorSideTop.Control = editShortcutsFilter
         AnchorSideTop.Side = asrBottom

source/routine_editor.lfm

@@ -411,7 +411,7 @@ object frmRoutineEditor: TfrmRoutineEditor
       ClientHeight = 142
       ClientWidth = 682
       ImageIndex = 122
-      object listParameters: THeidiVirtualStringTree
+      object listParameters: TLazVirtualStringTree
         Left = 83
         Height = 142
         Top = 0

source/selectdbobject.lfm

@@ -32,7 +32,7 @@ object frmSelectDBObject: TfrmSelectDBObject
     BorderSpacing.Around = 5
     Caption = '... or wildcard database (% and _ allowed):'
   end
-  object TreeDBO: THeidiVirtualStringTree
+  object TreeDBO: TLazVirtualStringTree
     AnchorSideTop.Control = lblSelect
     AnchorSideTop.Side = asrBottom
     Left = 8

source/sqlhelp.lfm

@@ -73,7 +73,7 @@ object frmSQLhelp: TfrmSQLhelp
         OnButtonClick = editFilterRightButtonClick
         OnChange = editFilterChange
       end
-      object treeTopics: THeidiVirtualStringTree
+      object treeTopics: TLazVirtualStringTree
         AnchorSideLeft.Control = pnlLeft
         AnchorSideTop.Control = editFilter
         AnchorSideRight.Control = pnlLeft

source/table_editor.lfm

@@ -344,7 +344,7 @@ object frmTableEditor: TfrmTableEditor
       ClientHeight = 142
       ClientWidth = 692
       ImageIndex = 13
-      object treeIndexes: THeidiVirtualStringTree
+      object treeIndexes: TLazVirtualStringTree
         Left = 67
         Height = 142
         Top = 0
@@ -536,7 +536,7 @@ object frmTableEditor: TfrmTableEditor
           OnClick = btnShowReverseForeignKeysClick
         end
       end
-      object listForeignKeys: THeidiVirtualStringTree
+      object listForeignKeys: TLazVirtualStringTree
         AnchorSideLeft.Control = tlbForeignKeys
         AnchorSideLeft.Side = asrBottom
         AnchorSideTop.Control = tabForeignKeys
@@ -699,7 +699,7 @@ object frmTableEditor: TfrmTableEditor
           OnClick = btnClearCheckConstraintsClick
         end
       end
-      object listCheckConstraints: THeidiVirtualStringTree
+      object listCheckConstraints: TLazVirtualStringTree
         Left = 67
         Height = 142
         Top = 0
@@ -1097,7 +1097,7 @@ object frmTableEditor: TfrmTableEditor
       end
     end
   end
-  object listColumns: THeidiVirtualStringTree
+  object listColumns: TLazVirtualStringTree
     AnchorSideBottom.Control = btnSave
     Left = 0
     Height = 260