Changeset 19 for trunk/Forms/UFormAcronyms.lfm

Timestamp:

May 4, 2016, 12:54:09 PM (8 years ago)

Author:

chronos

Message:

• Modified: Acronyms management is not done in Acronyms window. List in main window is just for viewing.

File:

• trunk/Forms/UFormAcronyms.lfm (modified) (4 diffs)

trunk/Forms/UFormAcronyms.lfm

@@ -1 +1 @@
 object FormAcronyms: TFormAcronyms
-  Left = 466
+  Left = 424
   Height = 558
-  Top = 297
+  Top = 310
   Width = 740
   Caption = 'Acronyms'
@@ -28 +28 @@
         Width = 300
       end>
+    MultiSelect = True
     OwnerData = True
+    PopupMenu = PopupMenuAcronym
     ReadOnly = True
     RowSelect = True
@@ -34 +36 @@
     ViewStyle = vsReport
     OnData = ListViewAcronymsData
+    OnDblClick = ListViewAcronymsDblClick
     OnResize = ListViewAcronymsResize
+    OnSelectItem = ListViewAcronymsSelectItem
   end
   object ListViewFilter1: TListViewFilter
@@ -53 +57 @@
     top = 168
   end
+  object ActionList1: TActionList
+    Images = FormMain.ImageList1
+    left = 248
+    top = 232
+    object AAdd: TAction
+      Caption = 'Add'
+      OnExecute = AAddExecute
+      ShortCut = 45
+    end
+    object AModify: TAction
+      Caption = 'Modify'
+      OnExecute = AModifyExecute
+      ShortCut = 13
+    end
+    object ARemove: TAction
+      Caption = 'Remove'
+      OnExecute = ARemoveExecute
+      ShortCut = 46
+    end
+    object ASelectAll: TAction
+      Caption = 'Select all'
+      ShortCut = 16449
+    end
+  end
+  object PopupMenuAcronym: TPopupMenu
+    Images = FormMain.ImageList1
+    left = 248
+    top = 296
+    object MenuItem4: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem5: TMenuItem
+      Action = AModify
+    end
+    object MenuItem6: TMenuItem
+      Action = ARemove
+    end
+    object MenuItem7: TMenuItem
+      Action = ASelectAll
+    end
+  end
 end