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

cocoa: Patch from bug #30778 fix Textout BG color

Browse Source 
git-svn-id: trunk@53241 -
This commit is contained in:
sekelsenmat 2016-10-27 19:34:24 +00:00
parent 4bc99dc88f
commit 8df1188cc7
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3027,6 +3027,7 @@ var
AROP2: Integer;
APatternSpace: CGColorSpaceRef;
BaseSpace: CGColorSpaceRef;
AColor: CGColorRef;
begin
if ADC = nil then Exit;
@ -3061,7 +3062,10 @@ begin
CGContextSetFillPattern(ADC.CGcontext, FCGPattern, @RGBA[0]);
end
else
CGContextSetRGBFillColor(ADC.CGContext, RGBA[0], RGBA[1], RGBA[2], RGBA[3]);
begin
AColor := CGColorCreateGenericRGB(RGBA[0], RGBA[1], RGBA[2], RGBA[3]);
CGContextSetFillColorWithColor(ADC.CGContext, AColor);
end;
end;
{ TCocoaGDIObject }