Changeset 6 for trunk/UCore.lfm

Timestamp:

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

Author:

chronos

Message:

• Added: Prepared more menu actions.

File:

• trunk/UCore.lfm (modified) (2 diffs)

trunk/UCore.lfm

@@ -7 +7 @@
   Width = 857
   object ActionList1: TActionList
+    Images = ImageList1
     left = 201
-    top = 162
-    object AProjectNew: TAction
+    top = 160
+    object AFileNew: TAction
+      Category = 'File'
       Caption = 'New...'
-      OnExecute = AProjectNewExecute
+      OnExecute = AFileNewExecute
     end
     object AExit: TAction
@@ -21 +23 @@
       OnExecute = AImageClearExecute
     end
-    object AImageRandom: TAction
-      Caption = 'Random'
-      OnExecute = AImageRandomExecute
+    object AZoomIn: TAction
+      Category = 'View'
+      Caption = 'Zoom in'
+      OnExecute = AZoomInExecute
+      ShortCut = 107
+    end
+    object AZoomOut: TAction
+      Category = 'View'
+      Caption = 'Zoom out'
+      OnExecute = AZoomOutExecute
+      ShortCut = 109
+    end
+    object AZoomAll: TAction
+      Category = 'View'
+      Caption = 'Zoom all'
+    end
+    object AZoomNormal: TAction
+      Category = 'View'
+      Caption = 'Zoom 100%'
+      OnExecute = AZoomNormalExecute
+    end
+    object AFileOpen: TAction
+      Category = 'File'
+      Caption = 'Open...'
+    end
+    object AFileClose: TAction
+      Category = 'File'
+      Caption = 'Close'
+    end
+    object AFileSave: TAction
+      Category = 'File'
+      Caption = 'Save'
+    end
+    object AFileSaveAs: TAction
+      Category = 'File'
+      Caption = 'Save as...'
     end
   end
+  object ImageList1: TImageList
+    left = 200
+    top = 240
+  end
 end