paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-26 12:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

examples: sprites: added comment about stretchdraw

Browse Source 
git-svn-id: trunk@15119 -
This commit is contained in:
mattias 2008-05-13 14:22:15 +00:00
parent 27cf27363d
commit 67f9451c09
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
examples/sprites/playground.pas
View File

@ -157,7 +157,8 @@ end;
procedure TPictureControl.Paint;
begin
if Picture.Graphic<>nil then
Canvas.StretchDraw(Rect(0,0,Width,Height),Picture.Graphic);
// Canvas.Draw(0,0,Picture.Graphic); // copy is fast
Canvas.StretchDraw(Rect(0,0,Width,Height),Picture.Graphic); // stretch is slow
inherited Paint;
end;