Changeset 19 for trunk/Forms/UFormMain.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/UFormMain.lfm (modified) (7 diffs)

trunk/Forms/UFormMain.lfm

@@ -34 +34 @@
       end>
     OwnerData = True
-    PopupMenu = PopupMenuAcronym
     ReadOnly = True
     RowSelect = True
@@ -40 +39 @@
     ViewStyle = vsReport
     OnData = ListViewAcronymsData
-    OnDblClick = ListViewAcronymsDblClick
-    OnKeyPress = ListViewAcronymsKeyPress
     OnSelectItem = ListViewAcronymsSelectItem
   end
@@ -4354 +4351 @@
   end
   object PopupMenuTryIcon: TPopupMenu
+    Images = ImageList1
     left = 80
     top = 208
@@ -4371 +4369 @@
   end
   object ActionList1: TActionList
+    Images = ImageList1
     left = 464
     top = 144
@@ -4384 +4383 @@
       Caption = 'Import'
       OnExecute = AImportExecute
-    end
-    object AAcronymAdd: TAction
-      Caption = 'Add'
-      OnExecute = AAcronymAddExecute
-      ShortCut = 45
-    end
-    object AAcronymModify: TAction
-      Caption = 'Modify'
-      OnExecute = AAcronymModifyExecute
-      ShortCut = 13
-    end
-    object AAcronymRemove: TAction
-      Caption = 'Remove'
-      OnExecute = AAcronymRemoveExecute
-      ShortCut = 46
-    end
-    object AAcronymRemoveAll: TAction
-      Caption = 'Remove all'
-      OnExecute = AAcronymRemoveAllExecute
     end
     object AFileOpen: TAction
@@ -4443 +4423 @@
     top = 80
   end
-  object PopupMenuAcronym: TPopupMenu
-    left = 264
-    top = 208
-    object MenuItem4: TMenuItem
-      Action = AAcronymAdd
-    end
-    object MenuItem5: TMenuItem
-      Action = AAcronymModify
-    end
-    object MenuItem6: TMenuItem
-      Action = AAcronymRemove
-    end
-    object MenuItem7: TMenuItem
-      Action = AAcronymRemoveAll
-    end
-  end
   object MainMenu1: TMainMenu
+    Images = ImageList1
     left = 464
     top = 80
@@ -4536 +4501 @@
     top = 208
   end
+  object ImageList1: TImageList
+    left = 464
+    top = 280
+  end
 end