Changeset 219 for trunk/Forms/FormCategories.lfm

Timestamp:

Jan 17, 2025, 9:05:54 PM (4 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Remove U prefix from unit names.
• Modified: Use Gneeric.Collections instead of fgl.
• Modified: Do not use global form variables.

File:

• trunk/Forms/FormCategories.lfm (moved) (moved from trunk/Forms/UFormCategories.lfm ) (6 diffs)

trunk/Forms/FormCategories.lfm

@@ -1 +1 @@
 object FormCategories: TFormCategories
   Left = 516
-  Height = 429
+  Height = 515
   Top = 439
-  Width = 784
+  Width = 941
   Caption = 'Acronym categories'
-  ClientHeight = 429
-  ClientWidth = 784
-  DesignTimePPI = 120
-  OnClose = FormClose
+  ClientHeight = 515
+  ClientWidth = 941
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '2.0.2.0'
+  LCLVersion = '3.6.0.0'
   object ListViewCategories: TListView
-    Left = 4
-    Height = 395
-    Top = 4
-    Width = 776
+    Left = 5
+    Height = 472
+    Top = 5
+    Width = 931
     Align = alClient
-    BorderSpacing.Around = 4
+    BorderSpacing.Around = 5
     Checkboxes = True
     Columns = <    
       item
         Caption = 'Name'
-        Width = 300
+        Width = 360
       end    
       item
         Caption = 'Used count'
-        Width = 456
+        Width = 556
       end>
     MultiSelect = True
@@ -45 +44 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
-    Top = 403
-    Width = 784
+    Height = 33
+    Top = 482
+    Width = 941
     Align = alBottom
     Images = Core.ImageList1
@@ -59 +58 @@
     end
     object ToolButton2: TToolButton
-      Left = 30
+      Left = 36
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 59
+      Left = 71
       Top = 2
       Action = ARemove
@@ -71 +70 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    left = 380
-    top = 196
+    Left = 456
+    Top = 235
     object AAdd: TAction
       Caption = 'Add'
@@ -107 +106 @@
   object PopupMenuCategory: TPopupMenu
     Images = Core.ImageList1
-    left = 119
-    top = 192
+    Left = 143
+    Top = 230
     object MenuItem1: TMenuItem
       Action = AAdd
@@ -137 +136 @@
     Column = 0
     Order = soNone
-    left = 536
-    top = 184
+    Left = 643
+    Top = 221
   end
 end