paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions r43480 from trunk:

Browse Source 
------------------------------------------------------------------------
    r43480 | michael | 2019-11-15 16:21:38 +0100 (Fri, 15 Nov 2019) | 1 line
    
    * Make Draw, Stretchdraw, CopyRect virtual. Bug ID #35126
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43717 -
This commit is contained in:
michael 2019-12-23 13:23:27 +00:00
parent 8e7c1a2d6f
commit c47afd74ab
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-image/src/fpcanvas.pp
View File

@ -371,9 +371,9 @@ type
procedure Line (const p1,p2:TPoint); procedure Line (const p1,p2:TPoint);
procedure Line (const points:TRect); procedure Line (const points:TRect);
// other procedures // other procedures
procedure CopyRect (x,y:integer; canvas:TFPCustomCanvas; SourceRect:TRect); procedure CopyRect (x,y:integer; canvas:TFPCustomCanvas; SourceRect:TRect); virtual;
procedure Draw (x,y:integer; image:TFPCustomImage); procedure Draw (x,y:integer; image:TFPCustomImage); virtual;
procedure StretchDraw (x,y,w,h:integer; source:TFPCustomImage); procedure StretchDraw (x,y,w,h:integer; source:TFPCustomImage); virtual;
procedure Erase;virtual; procedure Erase;virtual;
procedure DrawPixel(const x, y: integer; const newcolor: TFPColor); procedure DrawPixel(const x, y: integer; const newcolor: TFPColor);
// properties // properties