Changeset 4 for trunk/UFormMain.lfm

Timestamp:

Apr 20, 2016, 11:11:26 PM (8 years ago)

Author:

chronos

Message:

• Added: Now it is possible to add, modify, remove and remove all acronyms.

File:

• trunk/UFormMain.lfm (modified) (7 diffs)

trunk/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 517
+  Left = 762
   Height = 446
-  Top = 386
+  Top = 587
   Width = 631
   Caption = 'Acronym Decoder'
@@ -33 +33 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenuAcronym
     ReadOnly = True
     RowSelect = True
@@ -38 +39 @@
     ViewStyle = vsReport
     OnData = ListViewAcronymsData
+    OnDblClick = ListViewAcronymsDblClick
+    OnKeyPress = ListViewAcronymsKeyPress
+    OnSelectItem = ListViewAcronymsSelectItem
   end
   object EditSearch: TEdit
@@ -49 +53 @@
   end
   object TrayIcon1: TTrayIcon
-    PopUpMenu = PopupMenu1
+    PopUpMenu = PopupMenuTryIcon
     Icon.Data = {
       501702000000010006000000000001002000E291000066000000808000000100
@@ -4337 +4341 @@
     Visible = True
     OnClick = TrayIcon1Click
-    left = 273
-    top = 188
+    left = 152
+    top = 256
   end
-  object PopupMenu1: TPopupMenu
+  object PopupMenuTryIcon: TPopupMenu
     left = 144
     top = 192
     object MenuItem2: TMenuItem
-      Action = ActionShow
+      Action = AShow
       Default = True
     end
     object MenuItem3: TMenuItem
-      Action = ActionImport
+      Action = AImport
     end
     object MenuItem1: TMenuItem
-      Action = ActionExit
+      Action = AExit
     end
   end
@@ -4357 +4361 @@
     left = 465
     top = 171
-    object ActionExit: TAction
+    object AExit: TAction
       Caption = 'Exit'
-      OnExecute = ActionExitExecute
+      OnExecute = AExitExecute
     end
-    object ActionShow: TAction
+    object AShow: TAction
       Caption = 'Show'
-      OnExecute = ActionShowExecute
+      OnExecute = AShowExecute
     end
-    object ActionImport: TAction
+    object AImport: TAction
       Caption = 'Import'
-      OnExecute = ActionImportExecute
+      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
   end
@@ -4376 +4399 @@
     top = 128
   end
+  object PopupMenuAcronym: TPopupMenu
+    left = 359
+    top = 263
+    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
 end