paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 22:00:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn-Cocoa: Fixes compilation and adds the screen format

Browse Source 
git-svn-id: trunk@36582 -
This commit is contained in:
sekelsenmat 2012-04-05 19:30:53 +00:00
parent 110d17c70b
commit 68cb793270
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnlclintf.inc
View File

@ -378,7 +378,7 @@ begin
if (not ASkipMask) and (ARawImage.Mask <> nil) and (ARawImage.MaskSize > 0) then
begin
NewMaskData := GetMem(ARawImage.MaskSize);
Move(ARawImage.Mask^, NewMaskData^, ARawImage.MaskSize);
System.Move(ARawImage.Mask^, NewMaskData^, ARawImage.MaskSize);
end
else
NewMaskData := nil;

1
lcl/interfaces/customdrawn/customdrawnobject_cocoa.inc
View File

@ -156,6 +156,7 @@ begin
ScreenDC := TLazCanvas.Create(ScreenImage);
ScreenDC.NativeDC := PtrInt(TCocoaContext.Create);
TCocoaContext(ScreenDC.NativeDC).cgctx := ScreenBitmapContext; //NSGraphicsContext.graphicsContextWithBitmapImageRep(ScreenBitmap.imagerep);
ScreenFormat := clfRGB24UpsideDown;
end;
{------------------------------------------------------------------------------