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

cocoa: using colors with hatch style brushes. Patch by David Jenkins. #32825, #34414

Browse Source 
git-svn-id: trunk@61047 -
This commit is contained in:
dmitry 2019-04-24 06:47:50 +00:00
parent 991b05a9fd
commit 8e3bac19a3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoagdiobjects.pas
View File

@ -2936,6 +2936,7 @@ const
);
var
ACallBacks: CGPatternCallbacks;
CGDataProvider: CGDataProviderRef;
begin
if AHatch in [HS_HORIZONTAL..HS_DIAGCROSS] then
begin
@ -2944,7 +2945,9 @@ begin
if (FBitmap <> nil) then FBitmap.Release;
FBitmap := TCocoaBitmap.Create(8, 8, 1, 1, cbaByte, cbtMask, @HATCH_DATA[AHatch]);
if FImage <> nil then CGImageRelease(FImage);
FImage := CGImageCreateCopy(MacOSAll.CGImageRef( FBitmap.ImageRep.CGImageForProposedRect_context_hints(nil, nil, nil)));
CGDataProvider := CGDataProviderCreateWithData(nil, @HATCH_DATA[AHatch], 8, nil);
FImage := CGImageMaskCreate(8, 8, 1, 1, 1, CGDataProvider, nil, 0);
CGDataProviderRelease(CGDataProvider);
FColored := False;
if FCGPattern <> nil then CGPatternRelease(FCGPattern);
FCGPattern := CGPatternCreate(Self, GetCGRect(0, 0, 8, 8),