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

cocoa: fix RestoreDCData

Browse Source 
git-svn-id: trunk@38778 -
This commit is contained in:
paul 2012-09-21 09:12:22 +00:00
parent a0823977cc
commit 12a20ff9fa
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1271,8 +1271,8 @@ begin
FWindowOfs := AData.WindowOfs;
FViewportOfs := AData.ViewportOfs;
// isClipped := AData.isClipped;
// FClipRegion.Shape := AData.ClipShape;
FClipped := AData.isClipped;
FClipRegion.Shape := AData.ClipShape;
end;
constructor TCocoaContext.Create;

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

@ -1537,7 +1537,7 @@ begin
if Assigned(ctx) then
begin
Result := ctx.BkColor;
ctx.BkColor := Color;
ctx.BkColor := TColor(Color);
end
else
Result := CLR_INVALID;