Changeset 31 for trunk/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (9 diffs)

trunk/Forms/UFormMain.pas

@@ -11 +11 @@
 type
 
+  TImageTool = (itMoveView, itPen);
+
   { TFormMain }
 
   TFormMain = class(TForm)
+    ColorButton1: TColorButton;
     LastOpenedList1: TLastOpenedList;
     MainMenu1: TMainMenu;
@@ -26 +29 @@
     MenuItem19: TMenuItem;
     MenuItem20: TMenuItem;
+    MenuItem21: TMenuItem;
+    MenuItem22: TMenuItem;
+    MenuItem23: TMenuItem;
     MenuItemRecentFiles: TMenuItem;
     MenuItem15: TMenuItem;
@@ -42 +48 @@
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    ToolButton3: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -66 +74 @@
     StartMousePoint: TPoint;
     StartViewPoint: TPoint;
-    MoveActive: Boolean;
+    MouseButtonDown: Boolean;
     MousePos: TPoint;
     Activated: Boolean;
     procedure OpenRecentClick(Sender: TObject);
   public
+    ImageTool: TImageTool;
     procedure EraseBackground(DC: HDC); override;
     procedure UpdateStatusBar;
@@ -82 +91 @@
 
 uses
-  UCore;
+  UCore, UFGraphics;
 
 {$R *.lfm}
@@ -184 +193 @@
 procedure TFormMain.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
   Shift: TShiftState; X, Y: Integer);
+var
+  P: TPoint;
 begin
   if Button = mbLeft then begin
-    StartMousePoint := Point(X, Y);
-    StartViewPoint := Core.Project.View.SrcRect.TopLeft;
-    MoveActive := True;
+    if ImageTool = itMoveView then begin
+      StartMousePoint := Point(X, Y);
+      StartViewPoint := Core.Project.View.SrcRect.TopLeft;
+    end else
+    if ImageTool = itPen then begin
+      P := Core.Project.View.DestToSrcPos(Point(X, Y));
+      if (P.X >= 0) and (P.X < Core.Project.Bitmap.Size.X) and (P.Y >= 0) and (P.Y < Core.Project.Bitmap.Size.Y) then
+        Core.Project.Bitmap.Pixels[P.X, P.Y] := TFColor.Create(Core.Project.Bitmap.ColorFormat, ColorButton1.ButtonColor);
+      Redraw;
+    end;
+    MouseButtonDown := True;
   end;
 end;
@@ -194 +213 @@
 procedure TFormMain.PaintBox1MouseLeave(Sender: TObject);
 begin
-  MoveActive := False;
+  MouseButtonDown := False;
 end;
 
 procedure TFormMain.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
   Y: Integer);
+var
+  P: TPoint;
 begin
   MousePos := Point(X, Y);
-  if Assigned(Core.Project) then begin
-    if MoveActive then
-    with Core.Project do begin
+  if MouseButtonDown then
+  if Assigned(Core.Project) then
+  with Core.Project do begin
+    if Imagetool = itMoveView then begin
       View.SrcRect := Bounds(Trunc(StartViewPoint.X + (StartMousePoint.X - X) / View.Zoom),
         Trunc(StartViewPoint.Y + (StartMousePoint.Y - Y) / View.Zoom),
@@ -209 +231 @@
         View.SrcRect.Bottom - View.SrcRect.Top);
       Redraw;
+    end else
+    if ImageTool = itPen then begin
+      P := Core.Project.View.DestToSrcPos(Point(X, Y));
+      if (P.X >= 0) and (P.X < Core.Project.Bitmap.Size.X) and (P.Y >= 0) and (P.Y < Core.Project.Bitmap.Size.Y) then
+        Core.Project.Bitmap.Pixels[P.X, P.Y] := TFColor.Create(Core.Project.Bitmap.ColorFormat, ColorButton1.ButtonColor);
+      Redraw;
     end;
   end;
@@ -217 +245 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  MoveActive := False;
+  MouseButtonDown := False;
 end;