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

cocoa: fix compilation

Browse Source 
git-svn-id: trunk@34417 -
This commit is contained in:
paul 2011-12-26 02:57:13 +00:00
parent e88c7b31b7
commit fa157758f2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2380,7 +2380,7 @@ begin
if FCGPattern <> nil then
begin
CGPatternRelease(FCGPattern);
FGGPattern := nil;
FCGPattern := nil;
end;
FreeAndNil(FBitmap);

4
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1785,9 +1785,9 @@ begin
Exit;
Color := ColorToNSColor(PLongArray(lpaRgbValues)^[n]);
if (FSysColorBrushes[Element] <> 0) then
FSysColorBrushes[Element].Color := Color
TCocoaBrush(FSysColorBrushes[Element]).Color := Color
else
FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(SysColorToNSColor(nIndex), True));
FSysColorBrushes[Element] := HBrush(TCocoaBrush.Create(Color, True));
end;
Result := True;