Changeset 23 for trunk/Forms/FormBrowse.lfm

Timestamp:

Apr 4, 2025, 9:22:05 AM (2 weeks ago)

Author:

chronos

Message:

• Modified: All unit renamed to names without U prefix.
• Modified: Removed global form variables.
• Modified: Code cleanup.

File:

• trunk/Forms/FormBrowse.lfm (moved) (moved from trunk/Forms/UFormBrowse.lfm ) (4 diffs)

trunk/Forms/FormBrowse.lfm

@@ -1 +1 @@
 object FormBrowse: TFormBrowse
   Left = 479
-  Height = 538
+  Height = 807
   Top = 279
-  Width = 964
+  Width = 1446
   Caption = 'Browse'
-  ClientHeight = 538
-  ClientWidth = 964
+  ClientHeight = 807
+  ClientWidth = 1446
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '1.5'
+  LCLVersion = '3.6.0.0'
   object TreeView1: TTreeView
     Left = 0
-    Height = 538
+    Height = 807
     Top = 0
-    Width = 241
+    Width = 362
     Align = alLeft
-    DefaultItemHeight = 24
     TabOrder = 0
   end
   object Splitter1: TSplitter
-    Left = 241
-    Height = 538
+    Left = 362
+    Height = 807
     Top = 0
-    Width = 5
+    Width = 8
   end
   object ListView1: TListView
-    Left = 246
-    Height = 538
+    Left = 370
+    Height = 807
     Top = 0
-    Width = 718
+    Width = 1076
     Align = alClient
     Columns = <    
       item
         Caption = 'Name'
-        Width = 300
+        Width = 450
       end    
       item
         Caption = 'Revision'
-        Width = 80
+        Width = 120
       end    
       item
         Caption = 'Last change date'
-        Width = 100
+        Width = 150
       end    
       item
         Caption = 'Last author'
-        Width = 100
+        Width = 150
       end    
       item
         Caption = 'Status'
-        Width = 259
+        Width = 388
       end>
     OwnerData = True
@@ -67 +67 @@
   object PopupMenu1: TPopupMenu
     Images = Core.ImageList1
-    left = 353
-    top = 131
+    Left = 530
+    Top = 197
     object MenuItem1: TMenuItem
       Action = AAdd
@@ -93 +93 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    left = 352
-    top = 208
+    Left = 528
+    Top = 312
     object AAdd: TAction
       Caption = 'Add'
@@ -123 +123 @@
   end
   object MainMenu1: TMainMenu
-    left = 429
-    top = 516
+    Left = 644
+    Top = 774
   end
 end