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

Adds the code to render the image

Browse Source 
git-svn-id: trunk@28071 -
This commit is contained in:
sekelsenmat 2010-11-04 11:04:46 +00:00
parent b7d2ca7755
commit a95c92eeaf
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/customdrawn/customdrawnextras.pas
View File

@ -499,7 +499,7 @@ var
ABmp: TBitmap = nil;
lCanvas: TFPImageCanvas = nil;
begin
// inherited Paint;
inherited Paint;
PrepareCurrentDrawer();
@ -511,6 +511,7 @@ begin
lCanvas := TFPImageCanvas.create(AImage);
FCurrentDrawer.DrawToIntfImage(lCanvas, Self);
ABmp.LoadFromIntfImage(AImage);
Canvas.Draw(0, 0, ABmp);
finally
if lCanvas <> nil then lCanvas.Free;
if AImage <> nil then AImage.Free;