Changeset 25 for branches/gbitmap/UFormMain.pas

Timestamp:

Dec 22, 2016, 2:34:33 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Memory leaks introduced by TFColor. TFColor now use reference counting as descendant of IFColor.
• Added: Line drawing for TFPixmap class.

File:

• branches/gbitmap/UFormMain.pas (modified) (3 diffs)

branches/gbitmap/UFormMain.pas

@@ -29 +29 @@
     function RGB8Random(Position: TPoint): TColorRGB8;
     function RGB16Random(Position: TPoint): TColorRGB16;
-    function ColorRandom(Position: TPoint; ColorFormat: TColorFormat): UFGraphics.TFColor;
+    function ColorRandom(Position: TPoint; ColorFormat: TColorFormat): IFColor;
   public
     procedure TestGray1;
@@ -98 +98 @@
 end;
 
-function TForm1.ColorRandom(Position: TPoint; ColorFormat: TColorFormat): UFGraphics.TFColor;
-begin
-  Result := UFGraphics.TFColor.Create;
-  Result.ColorFormat := ColorFormat;
-  Result.SetRandom;
+function TForm1.ColorRandom(Position: TPoint; ColorFormat: TColorFormat): IFColor;
+begin
+  Result := TFColor.Create;
+  (Result as TFColor).ColorFormat := ColorFormat;
+  (Result as TFColor).SetRandom;
 end;
 
@@ -276 +276 @@
   with Image do begin
     Size := Point(100, 100);
-    ColorFormat := ColorFormatManager.Formats[5];
+    ColorFormat := ColorFormatManager.Formats[2];
     Fill(TFColor.Create(ColorFormat, cnWhite));
+    Fill(ColorRandom);
     Pixels[0, 0] := TFColor.Create(ColorFormat, cnBlack);
-    Fill(ColorRandom);
+    Canvas.Pen.Color := TFColor.Create(ColorFormat, cnBlack);
+    Canvas.Pen.MoveTo(Point(10, 20));
+    Canvas.Pen.LineTo(Point(60, 40));
     PaintToCanvas(Image1.Picture.Bitmap.Canvas);
     Label1.Caption := IntToStr(GetDataSize);