Changeset 31 for trunk/UCore.pas

Timestamp:

Jan 4, 2017, 11:49:56 PM (8 years ago)

Author:

chronos

Message:

• Added: Pen tool to draw pixels by mouse with selected color.
• Added: Mirror and Flip image operation.

File:

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

trunk/UCore.pas

@@ -20 +20 @@
 
   TCore = class(TDataModule)
+    AToolMove: TAction;
+    AToolPen: TAction;
     AImageNegative: TAction;
     AImageGradient: TAction;
@@ -54 +56 @@
     procedure AImageNegativeExecute(Sender: TObject);
     procedure AImageRandomExecute(Sender: TObject);
+    procedure AToolMoveExecute(Sender: TObject);
+    procedure AToolPenExecute(Sender: TObject);
     procedure AZoomAllExecute(Sender: TObject);
     procedure AZoomInExecute(Sender: TObject);
@@ -291 +295 @@
 end;
 
+procedure TCore.AToolMoveExecute(Sender: TObject);
+begin
+  FormMain.ImageTool := itMoveView;
+end;
+
+procedure TCore.AToolPenExecute(Sender: TObject);
+begin
+  FormMain.ImageTool := itPen;
+end;
+
 end.