Changeset 33 for trunk/Forms/UFormImportSource.lfm

Timestamp:

Jul 13, 2016, 2:51:53 PM (8 years ago)

Author:

chronos

Message:

• Added: Now import sources have categories which are merged to new imported acronym meanings.

File:

• trunk/Forms/UFormImportSource.lfm (modified) (8 diffs)

trunk/Forms/UFormImportSource.lfm

@@ -1 +1 @@
 object FormImportSource: TFormImportSource
-  Left = 506
-  Height = 282
-  Top = 363
-  Width = 507
+  Left = 492
+  Height = 403
+  Top = 313
+  Width = 604
   Caption = 'Import source'
-  ClientHeight = 282
-  ClientWidth = 507
+  ClientHeight = 403
+  ClientWidth = 604
+  OnShow = FormShow
   LCLVersion = '1.6.0.4'
   object EditName: TEdit
-    Left = 160
+    Left = 135
     Height = 28
     Top = 10
-    Width = 340
+    Width = 455
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 0
@@ -25 +26 @@
   end
   object Label2: TLabel
-    Left = 8
+    Left = 10
     Height = 20
-    Top = 48
+    Top = 49
     Width = 78
     Caption = 'Source URL:'
@@ -33 +34 @@
   end
   object EditURL: TEdit
-    Left = 160
+    Left = 135
     Height = 28
     Top = 49
-    Width = 340
+    Width = 455
     Anchors = [akTop, akLeft, akRight]
     TabOrder = 1
   end
   object ButtonOk: TButton
-    Left = 412
+    Left = 515
     Height = 25
-    Top = 244
+    Top = 365
     Width = 75
     Anchors = [akRight, akBottom]
@@ -51 +52 @@
   end
   object ButtonCancel: TButton
-    Left = 316
+    Left = 413
     Height = 25
-    Top = 244
+    Top = 365
     Width = 75
     Anchors = [akRight, akBottom]
@@ -61 +62 @@
   end
   object Label3: TLabel
-    Left = 11
+    Left = 10
     Height = 20
     Top = 96
@@ -69 +70 @@
   end
   object ComboBox1: TComboBox
-    Left = 160
+    Left = 135
     Height = 28
     Top = 91
-    Width = 212
+    Width = 334
     Anchors = [akTop, akLeft, akRight]
     ItemHeight = 20
@@ -79 +80 @@
   end
   object ButtonShowFormat: TButton
-    Left = 380
+    Left = 477
     Height = 25
     Top = 91
-    Width = 120
+    Width = 112
     Anchors = [akTop, akRight]
     Caption = 'Configure'
@@ -89 +90 @@
   end
   object CheckBoxEnabled: TCheckBox
-    Left = 11
+    Left = 10
     Height = 24
-    Top = 136
+    Top = 128
     Width = 78
     Caption = 'Enabled'
     TabOrder = 6
   end
+  object Label4: TLabel
+    Left = 10
+    Height = 20
+    Top = 160
+    Width = 74
+    Caption = 'Categories:'
+    ParentColor = False
+  end
+  object ListBox1: TListBox
+    Left = 135
+    Height = 141
+    Top = 160
+    Width = 455
+    Anchors = [akTop, akLeft, akRight]
+    ItemHeight = 0
+    MultiSelect = True
+    PopupMenu = PopupMenuCategory
+    ScrollWidth = 358
+    TabOrder = 7
+  end
+  object Button1: TButton
+    Left = 135
+    Height = 25
+    Top = 312
+    Width = 75
+    Action = ACategoryAdd
+    TabOrder = 8
+  end
+  object Button2: TButton
+    Left = 231
+    Height = 25
+    Top = 312
+    Width = 75
+    Action = ACategoryRemove
+    TabOrder = 9
+  end
+  object Bevel1: TBevel
+    Left = 10
+    Height = 2
+    Top = 352
+    Width = 580
+    Anchors = [akLeft, akBottom]
+  end
+  object ActionList1: TActionList
+    Images = FormMain.ImageList1
+    left = 384
+    top = 208
+    object ACategoryRemove: TAction
+      Caption = 'Remove'
+      ImageIndex = 4
+      OnExecute = ACategoryRemoveExecute
+    end
+    object ACategoryAdd: TAction
+      Caption = 'Add'
+      ImageIndex = 0
+      OnExecute = ACategoryAddExecute
+    end
+  end
+  object PopupMenuCategory: TPopupMenu
+    Images = FormMain.ImageList1
+    left = 208
+    top = 208
+    object MenuItem2: TMenuItem
+      Action = ACategoryAdd
+    end
+    object MenuItem1: TMenuItem
+      Action = ACategoryRemove
+    end
+  end
 end