Changeset 6 for trunk/UCore.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Prepared more menu actions.

File:

• trunk/UCore.pas (modified) (3 diffs)

trunk/UCore.pas

@@ -13 +13 @@
 
   TCore = class(TDataModule)
+    AFileSaveAs: TAction;
+    AFileSave: TAction;
+    AFileClose: TAction;
+    AFileOpen: TAction;
+    AZoomNormal: TAction;
+    AZoomAll: TAction;
+    AZoomIn: TAction;
+    AZoomOut: TAction;
     AImageRandom: TAction;
     AImageClear: TAction;
     AExit: TAction;
-    AProjectNew: TAction;
+    AFileNew: TAction;
     ActionList1: TActionList;
+    ImageList1: TImageList;
     procedure AExitExecute(Sender: TObject);
     procedure AImageClearExecute(Sender: TObject);
     procedure AImageRandomExecute(Sender: TObject);
-    procedure AProjectNewExecute(Sender: TObject);
+    procedure AFileNewExecute(Sender: TObject);
+    procedure AZoomInExecute(Sender: TObject);
+    procedure AZoomNormalExecute(Sender: TObject);
+    procedure AZoomOutExecute(Sender: TObject);
     procedure DataModuleCreate(Sender: TObject);
   private
@@ -54 +66 @@
 end;
 
-procedure TCore.AProjectNewExecute(Sender: TObject);
+procedure TCore.AFileNewExecute(Sender: TObject);
 begin
   if FormNew.ShowModal = mrOk then begin
@@ -65 +77 @@
     FormMain.Redraw;
   end;
+end;
+
+procedure TCore.AZoomInExecute(Sender: TObject);
+begin
+  Project.ViewPort.Zoom := Project.ViewPort.Zoom * 1.3;
+  FormMain.Redraw;
+end;
+
+procedure TCore.AZoomNormalExecute(Sender: TObject);
+begin
+  Project.ViewPort.Zoom := 1;
+  FormMain.Redraw;
+end;
+
+procedure TCore.AZoomOutExecute(Sender: TObject);
+begin
+  Project.ViewPort.Zoom := Project.ViewPort.Zoom / 1.3;
+  FormMain.Redraw;
 end;