Changeset 7 for trunk/UFormMain.lfm

Timestamp:

Mar 30, 2016, 11:32:54 PM (8 years ago)

Author:

chronos

Message:

• Added: Main menu with available actions.
• Added: Basic functionality to save project to file and open project from file.

File:

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

trunk/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 301
+  Left = 442
   Height = 941
-  Top = 361
+  Top = 366
   Width = 1703
   Caption = 'CoolDisk'
-  ClientHeight = 939
+  ClientHeight = 909
   ClientWidth = 1703
   Menu = MainMenu1
@@ -36 +36 @@
   object Image1: TImage
     Left = 592
-    Height = 908
+    Height = 878
     Top = 10
     Width = 1092
@@ -248 +248 @@
     ParentColor = False
   end
-  object MainMenu1: TMainMenu
-    left = 323
-    top = 288
-  end
   object Timer1: TTimer
     Interval = 500
@@ -277 +273 @@
       OnExecute = ABrowseDiskExecute
     end
+    object AExit: TAction
+      Caption = 'Exit'
+      OnExecute = AExitExecute
+    end
+    object AFileSaveAs: TAction
+      Caption = 'Save as...'
+      OnExecute = AFileSaveAsExecute
+    end
+    object AFileOpen: TAction
+      Caption = 'Open'
+      OnExecute = AFileOpenExecute
+    end
   end
   object OpenDialog1: TOpenDialog
@@ -282 +290 @@
     top = 360
   end
+  object SaveDialog1: TSaveDialog
+    left = 672
+    top = 432
+  end
+  object MainMenu1: TMainMenu
+    left = 672
+    top = 504
+    object MenuItem1: TMenuItem
+      Caption = 'File'
+      object MenuItem2: TMenuItem
+        Action = AFileOpen
+      end
+      object MenuItem3: TMenuItem
+        Action = AFileSaveAs
+      end
+      object MenuItem4: TMenuItem
+        Action = AExit
+      end
+    end
+    object MenuItem5: TMenuItem
+      Caption = 'Scan'
+      object MenuItem6: TMenuItem
+        Action = AScanStart
+      end
+      object MenuItem7: TMenuItem
+        Action = AScanStop
+      end
+      object MenuItem8: TMenuItem
+        Action = AScanOptions
+      end
+    end
+  end
 end