Changeset 25 for branches/gbitmap/Packages/FastGraphics/ColorFormats

Timestamp:

Dec 22, 2016, 2:34:33 PM (9 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.

Location:

branches/gbitmap/Packages/FastGraphics/ColorFormats

Files:

• UColorGray1.pas (modified) (2 diffs)
• UColorGray2.pas (modified) (2 diffs)

branches/gbitmap/Packages/FastGraphics/ColorFormats/UColorGray1.pas

@@ -46 +46 @@
     procedure Fill(Color: IBColor); override;
     procedure Fill(Func: TGetColorPos); override;
+    procedure Line(P1, P2: TPoint; Color: IBColor); override;
     procedure PaintToCanvas(Canvas: TCanvas); override;
     function GetDataSize: Integer; override;
@@ -132 +133 @@
 end;
 
+procedure TBPixmapGray1.Line(P1, P2: TPoint; Color: IBColor);
+begin
+  Pixmap.Canvas.Pen.Color := (Color as TBColorGray1).Value;
+  Pixmap.Canvas.Pen.MoveTo(P1);
+  Pixmap.Canvas.Pen.LineTo(P2);
+end;
+
 procedure TBPixmapGray1.PaintToCanvas(Canvas: TCanvas);
 begin

branches/gbitmap/Packages/FastGraphics/ColorFormats/UColorGray2.pas

@@ -46 +46 @@
     procedure Fill(Color: IBColor); override;
     procedure Fill(Func: TGetColorPos); override;
+    procedure Line(P1, P2: TPoint; Color: IBColor); override;
     procedure PaintToCanvas(Canvas: TCanvas); override;
     function GetDataSize: Integer; override;
@@ -127 +128 @@
 end;
 
+procedure TBPixmapGray2.Line(P1, P2: TPoint; Color: IBColor);
+begin
+  Pixmap.Canvas.Pen.Color := (Color as TBColorGray2).Value;
+  Pixmap.Canvas.Pen.MoveTo(P1);
+  Pixmap.Canvas.Pen.LineTo(P2);
+end;
+
 procedure TBPixmapGray2.PaintToCanvas(Canvas: TCanvas);
 begin