Changeset 33 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 5, 2017, 11:48:36 PM (8 years ago)

Author:

chronos

Message:

• Added: Remember last used image size and color format.
• Added: Automatically create blank image.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -50 +50 @@
     ToolButton2: TToolButton;
     ToolButton3: TToolButton;
+    ToolButton4: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -70 +71 @@
     procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
   private
+    EnableDraw: Boolean;
     TempBitmap: TBitmap;
     StartMousePoint: TPoint;
@@ -109 +112 @@
 end;
 
+procedure TFormMain.ToolButton4Click(Sender: TObject);
+begin
+  EnableDraw := True;
+end;
+
 procedure TFormMain.OpenRecentClick(Sender: TObject);
 begin
@@ -127 +135 @@
     StatusBar1.Panels[0].Text := '[' + IntToStr(Pos.X) + ', ' + IntToStr(Pos.Y) + '] Zoom:' +
       FloatToStr(Core.Project.View.Zoom);
+    StatusBar1.Panels[1].Text := 'Src: ' + IntToStr(View.SrcRect.Right - View.SrcRect.Left) + ', ' +
+      IntToStr(View.SrcRect.Bottom - View.SrcRect.Top);
+    StatusBar1.Panels[2].Text := 'Dst: ' + IntToStr(View.DestRect.Right - View.DestRect.Left) + ', ' +
+      IntToStr(View.DestRect.Bottom - View.DestRect.Top);
   end;
 end;
@@ -144 +156 @@
     TempBitmap.Canvas.FillRect(0, 0, TempBitmap.Width, TempBitmap.Height);
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
-    //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
-    Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+   // Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
+   // if EnableDraw then
+      Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
     //TempBitmap.EndUpdate(False);
     PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);