Changeset 5 for trunk/UCore.pas

Timestamp:

Sep 16, 2014, 1:21:18 PM (10 years ago)

Author:

chronos

Message:

• Added: 8-bit grayscale color format for testing.
• Added: Canvas, Pen, Brush, line draw test code.

File:

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

trunk/UCore.pas

@@ -37 +37 @@
 
 uses
-  UFormNew, UFormMain, UColorRGBA8, Forms;
+  UFormNew, UFormMain, Forms, UColorRGBA8, UColorGray8;
 
 { TCore }
@@ -46 +46 @@
 
   ColorManager.RegisterFormat(TGColorFormatRGBA8);
+  ColorManager.RegisterFormat(TGColorFormatGray8);
 
   // Set default
@@ -74 +75 @@
 begin
   Project.Bitmap.Clear;
+  Project.Bitmap.Canvas.Pen.Color.Format := Project.Bitmap.ColorFormat;
+  Project.Bitmap.Canvas.Pen.Color.FromTColor(clWhite);
+  Project.Bitmap.Canvas.Pen.MoveTo(Point(100, 100));
+  Project.Bitmap.Canvas.Pen.LineTo(Point(700, 500));
   FormMain.Redraw;
 end;