Changeset 6 for trunk/UFormMain.lfm

Timestamp:

Apr 21, 2016, 10:22:08 AM (8 years ago)

Author:

chronos

Message:

• Added: Acronyms can be loaded from/saved to different files.
• Added: Application remembers list of last used files.
• Added: Show question dialog on exit if acronyms were modified.

File:

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

trunk/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 762
+  Left = 541
   Height = 446
-  Top = 587
+  Top = 352
   Width = 631
   Caption = 'Acronym Decoder'
-  ClientHeight = 446
+  ClientHeight = 421
   ClientWidth = 631
+  Menu = MainMenu1
   OnClose = FormClose
   OnCloseQuery = FormCloseQuery
@@ -15 +16 @@
   object ListViewAcronyms: TListView
     Left = 8
-    Height = 391
-    Top = 46
+    Height = 372
+    Top = 40
     Width = 613
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -4392 +4393 @@
       OnExecute = AAcronymRemoveAllExecute
     end
+    object AFileOpen: TAction
+      Caption = 'Open'
+      OnExecute = AFileOpenExecute
+    end
+    object AFileNew: TAction
+      Caption = 'New'
+      OnExecute = AFileNewExecute
+    end
+    object AFileSave: TAction
+      Caption = 'Save'
+      OnExecute = AFileSaveExecute
+    end
+    object AFileClose: TAction
+      Caption = 'Close'
+      OnExecute = AFileCloseExecute
+    end
+    object AFileSaveAs: TAction
+      Caption = 'Save as...'
+      OnExecute = AFileSaveAsExecute
+    end
   end
   object PersistentForm1: TPersistentForm
@@ -4397 +4418 @@
     EntireVisible = False
     left = 304
-    top = 128
+    top = 112
   end
   object PopupMenuAcronym: TPopupMenu
@@ -4415 +4436 @@
     end
   end
+  object MainMenu1: TMainMenu
+    left = 465
+    top = 112
+    object MenuItem8: TMenuItem
+      Caption = 'File'
+      object MenuItem10: TMenuItem
+        Action = AFileNew
+      end
+      object MenuItem11: TMenuItem
+        Action = AFileOpen
+      end
+      object MenuItemOpenRecent: TMenuItem
+        Caption = 'Open recent'
+      end
+      object MenuItem12: TMenuItem
+        Action = AFileSave
+      end
+      object MenuItem13: TMenuItem
+        Action = AFileSaveAs
+      end
+      object MenuItem14: TMenuItem
+        Action = AFileClose
+      end
+      object MenuItem15: TMenuItem
+        Caption = '-'
+      end
+      object MenuItem9: TMenuItem
+        Action = AExit
+      end
+    end
+  end
+  object OpenDialog1: TOpenDialog
+    left = 151
+    top = 85
+  end
+  object SaveDialog1: TSaveDialog
+    left = 48
+    top = 85
+  end
+  object LastOpenedList1: TLastOpenedList
+    MaxCount = 10
+    OnChange = LastOpenedList1Change
+    left = 509
+    top = 267
+  end
 end