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

cocoa: restoring the original context state after drawing. Attempting to prevent unexpected upside downs. Patch by David Jenkins. bug #36021

Browse Source 
git-svn-id: trunk@64451 -
This commit is contained in:
dmitry 2021-01-31 05:56:03 +00:00
parent 47499875e6
commit d0a5722486
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -404,6 +404,7 @@ type
// Also, because of bug 28015 FClipped cannot use ctx.Restore(Save)GraphicsState;
// it will use CGContextRestore(Save)GState(CGContext()); to save/restore DC instead
FClipped: Boolean;
FFlipped: Boolean;
FClipRegion: TCocoaRegion;
FSavedDCList: TFPObjectList;
FPenPos: TPoint;
@ -486,6 +487,7 @@ type
function CopyClipRegion(ADstRegion: TCocoaRegion): TCocoaRegionType;
property Clipped: Boolean read FClipped;
property Flipped: Boolean read FFlipped;
property PenPos: TPoint read FPenPos write FPenPos;
property ROP2: Integer read FROP2 write SetROP2;
property Size: TSize read FSize;
@ -1797,6 +1799,7 @@ begin
FSavedDCList := nil;
FText := TCocoaTextLayout.Create;
FClipped := False;
FFlipped := False;
end;
destructor TCocoaContext.Destroy;
@ -1815,8 +1818,11 @@ begin
FBkBrush.Free;
if Assigned(ctx) then
if Assigned(ctx) then begin
if Assigned(CGContext()) and Flipped then
CGContextRestoreGState(CGContext());
ctx.release;
end;
if Assigned(boxview) then boxview.release;
inherited Destroy;
end;
@ -1879,6 +1885,9 @@ begin
Result := Assigned(cg);
if not Result then Exit;
CGContextSaveGState(cg);
FFlipped := True;
FSize.cx := width;
FSize.cy := height;