Changeset 219 for trunk/Forms/FormImportSources.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/FormImportSources.lfm (moved) (moved from trunk/Forms/UFormImportSources.lfm ) (7 diffs)

trunk/Forms/FormImportSources.lfm

@@ -1 +1 @@
 object FormImportSources: TFormImportSources
   Left = 475
-  Height = 414
+  Height = 497
   Top = 329
-  Width = 812
+  Width = 974
   Caption = 'Import sources'
-  ClientHeight = 414
-  ClientWidth = 812
-  DesignTimePPI = 120
-  OnClose = FormClose
+  ClientHeight = 497
+  ClientWidth = 974
+  DesignTimePPI = 144
   OnCreate = FormCreate
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '2.0.2.0'
+  LCLVersion = '3.6.0.0'
   object ToolBar1: TToolBar
     Left = 0
-    Height = 26
-    Top = 388
-    Width = 812
+    Height = 33
+    Top = 464
+    Width = 974
     Align = alBottom
     Caption = 'ToolBar1'
@@ -30 +29 @@
     end
     object ToolButton2: TToolButton
-      Left = 30
+      Left = 36
       Top = 2
       Action = AModify
     end
     object ToolButton3: TToolButton
-      Left = 59
+      Left = 71
       Top = 2
       Action = ARemove
     end
     object ToolButton4: TToolButton
-      Left = 88
+      Left = 106
       Top = 2
       Action = AProcess
@@ -46 +45 @@
   end
   object ListView1: TListView
-    Left = 4
-    Height = 351
-    Top = 33
-    Width = 804
+    Left = 5
+    Height = 419
+    Top = 40
+    Width = 964
     Align = alClient
-    BorderSpacing.Left = 4
-    BorderSpacing.Right = 4
-    BorderSpacing.Bottom = 4
+    BorderSpacing.Left = 5
+    BorderSpacing.Right = 5
+    BorderSpacing.Bottom = 5
     Checkboxes = True
     Columns = <    
       item
         Caption = 'Name'
-        Width = 150
+        Width = 180
       end    
       item
         Caption = 'URL'
-        Width = 250
+        Width = 300
       end    
       item
         Caption = 'Categories'
-        Width = 200
+        Width = 240
       end    
       item
         Caption = 'Count'
-        Width = 70
+        Width = 84
       end    
       item
         Caption = 'Date'
-        Width = 114
+        Width = 145
       end>
     MultiSelect = True
@@ -91 +90 @@
   end
   object ListViewFilter1: TListViewFilter
-    Left = 4
-    Height = 29
-    Top = 4
-    Width = 804
+    Left = 5
+    Height = 35
+    Top = 5
+    Width = 964
     OnChange = ListViewFilter1Change
     Align = alTop
-    BorderSpacing.Left = 4
-    BorderSpacing.Top = 4
-    BorderSpacing.Right = 4
+    BorderSpacing.Left = 5
+    BorderSpacing.Top = 5
+    BorderSpacing.Right = 5
   end
   object ActionList1: TActionList
     Images = Core.ImageList1
-    left = 408
-    top = 224
+    Left = 490
+    Top = 269
     object AAdd: TAction
       Caption = 'Add'
@@ -139 +138 @@
   object PopupMenuImportSource: TPopupMenu
     Images = Core.ImageList1
-    left = 147
-    top = 220
+    Left = 176
+    Top = 264
     object MenuItem1: TMenuItem
       Action = AAdd
@@ -167 +166 @@
     ShowDelay = 0
     AutoClose = False
-    left = 299
-    top = 119
+    Left = 359
+    Top = 143
   end
   object ListViewSort1: TListViewSort
@@ -177 +176 @@
     Column = 0
     Order = soNone
-    left = 547
-    top = 172
+    Left = 656
+    Top = 206
   end
 end