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

LCL-CustomDrawn-Cocoa: Fixes compilation

Browse Source 
git-svn-id: trunk@37044 -
This commit is contained in:
sekelsenmat 2012-04-27 06:55:55 +00:00
parent e62f67750f
commit 3039cc08bb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawn_cocoaproc.pas
View File

@ -740,7 +740,7 @@ begin
// Prepare the non-native image and canvas
UpdateControlLazImageAndCanvas(WindowHandle.Image,
WindowHandle.Canvas, lWidth, lHeight, clfRGB24UpsideDown);
DrawFormBackground(WindowHandle.Image, WindowHandle.Canvas);
DrawFormBackground(WindowHandle.Image, WindowHandle.Canvas, WindowHandle.LCLForm);
WindowHandle.Canvas.NativeDC := PtrInt(Context);
// Draw the form