paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 06:19:32 +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 if FCGPattern <> nil then
begin begin
CGPatternRelease(FCGPattern); CGPatternRelease(FCGPattern);
FGGPattern := nil; FCGPattern := nil;
end; end;
FreeAndNil(FBitmap); FreeAndNil(FBitmap);

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

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