- Timestamp:
- Dec 22, 2016, 2:34:33 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/gbitmap/Packages/FastGraphics/ColorFormats/UColorGray2.pas
r24 r25 46 46 procedure Fill(Color: IBColor); override; 47 47 procedure Fill(Func: TGetColorPos); override; 48 procedure Line(P1, P2: TPoint; Color: IBColor); override; 48 49 procedure PaintToCanvas(Canvas: TCanvas); override; 49 50 function GetDataSize: Integer; override; … … 127 128 end; 128 129 130 procedure TBPixmapGray2.Line(P1, P2: TPoint; Color: IBColor); 131 begin 132 Pixmap.Canvas.Pen.Color := (Color as TBColorGray2).Value; 133 Pixmap.Canvas.Pen.MoveTo(P1); 134 Pixmap.Canvas.Pen.LineTo(P2); 135 end; 136 129 137 procedure TBPixmapGray2.PaintToCanvas(Canvas: TCanvas); 130 138 begin
Note:
See TracChangeset
for help on using the changeset viewer.