Changeset 27 for trunk/UCore.pas

Timestamp:

Dec 22, 2016, 5:35:25 PM (8 years ago)

Author:

chronos

Message:

• Modified: Use faster drawing to TBitmap RawImage.

File:

• trunk/UCore.pas (modified) (1 diff)

trunk/UCore.pas

@@ -207 +207 @@
 begin
   Project.Bitmap.Clear;
-  TFColor(Project.Bitmap.Canvas.Pen.Color).ColorFormat := Project.Bitmap.ColorFormat;
-  TFColor(Project.Bitmap.Canvas.Pen.Color).SetColorName(cnWhite);
+  (Project.Bitmap.Canvas.Pen.Color as TFColor).ColorFormat := Project.Bitmap.ColorFormat;
+  (Project.Bitmap.Canvas.Pen.Color as TFColor).SetColorName(cnWhite);
   Project.Bitmap.Canvas.Pen.MoveTo(Point(80, 80));
   Project.Bitmap.Canvas.Pen.LineTo(Point(50, 20));