Changeset 30 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 23, 2016, 10:07:39 AM (8 years ago)

Author:

chronos

Message:

• Modified: Drawing and loading using bitmap rawimage improvement.

File:

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

trunk/Forms/UFormMain.pas

@@ -40 +40 @@
     StatusBar1: TStatusBar;
     Timer1: TTimer;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
     procedure FormActivate(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
@@ -134 +136 @@
     View.DestRect := Bounds(0, 0, PaintBox1.Width, PaintBox1.Height);
     //Bitmap.PaintToCanvas(TempBitmap.Canvas, View.SrcRect);
-    //Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
+    Bitmap.PaintToBitmap(TempBitmap, View.SrcRect);
     //TempBitmap.EndUpdate(False);
     PaintBox1.Canvas.StretchDraw(View.DestRect, TempBitmap);