Changeset 6 for trunk/Forms/UFormMain.lfm

Timestamp:

Sep 19, 2014, 7:12:01 AM (10 years ago)

Author:

chronos

Message:

• Added: Prepared more menu actions.

File:

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

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 514
+  Left = 664
   Height = 640
-  Top = 299
+  Top = 443
   Width = 920
   Caption = 'LibrePaint'
-  ClientHeight = 614
+  ClientHeight = 611
   ClientWidth = 920
   Menu = MainMenu1
@@ -11 +11 @@
   object PaintBox1: TPaintBox
     Left = 0
-    Height = 614
+    Height = 582
     Top = 0
     Width = 920
@@ -18 +18 @@
     OnResize = PaintBox1Resize
   end
+  object StatusBar1: TStatusBar
+    Left = 0
+    Height = 29
+    Top = 582
+    Width = 920
+    Panels = <>
+  end
   object MainMenu1: TMainMenu
+    Images = Core.ImageList1
     left = 104
     top = 48
     object MenuItem1: TMenuItem
-      Caption = 'Soubor'
+      Caption = 'File'
       object MenuItem3: TMenuItem
-        Action = Core.AProjectNew
+        Action = Core.AFileNew
+      end
+      object MenuItem12: TMenuItem
+        Action = Core.AFileOpen
+      end
+      object MenuItemRecentFiles: TMenuItem
+        Caption = 'Recent files'
+      end
+      object MenuItem13: TMenuItem
+        Action = Core.AFileSave
+      end
+      object MenuItem15: TMenuItem
+        Action = Core.AFileSaveAs
+      end
+      object MenuItem16: TMenuItem
+        Action = Core.AFileClose
+      end
+      object MenuItem11: TMenuItem
+        Caption = '-'
       end
       object MenuItem2: TMenuItem
         Action = Core.AExit
+      end
+    end
+    object MenuItem6: TMenuItem
+      Caption = 'View'
+      object MenuItem7: TMenuItem
+        Action = Core.AZoomNormal
+      end
+      object MenuItem8: TMenuItem
+        Action = Core.AZoomIn
+      end
+      object MenuItem9: TMenuItem
+        Action = Core.AZoomOut
+      end
+      object MenuItem10: TMenuItem
+        Action = Core.AZoomAll
       end
     end
@@ -34 +75 @@
       object MenuItem5: TMenuItem
         Action = Core.AImageClear
-      end
-      object MenuItem6: TMenuItem
-        Action = Core.AImageRandom
       end
     end