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

cocoa: shrink focus rect by one pixel from far sides

Browse Source 
git-svn-id: trunk@60963 -
This commit is contained in:
dmitry 2019-04-13 22:37:53 +00:00
parent 281ad1a6f0
commit 878e61d619
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/cocoawinapi.inc
View File

@ -528,6 +528,7 @@ var
p: Integer; p: Integer;
pn: TCocoaPen; pn: TCocoaPen;
opn: TCocoaPen; opn: TCocoaPen;
r: TRect;
begin begin
ctx := CheckDC(DC); ctx := CheckDC(DC);
@ -545,7 +546,10 @@ begin
ctx.Pen:=pn; ctx.Pen:=pn;
ctx.ROP2:=R2_NOTXORPEN; ctx.ROP2:=R2_NOTXORPEN;
ctx.Pen.Apply(ctx, true); ctx.Pen.Apply(ctx, true);
ctx.Frame(Rect); r:=Rect;
dec(r.Right);
dec(r.Bottom);
ctx.Frame(r);
finally finally
ctx.ROP2:=p; ctx.ROP2:=p;
ctx.Pen:=opn; ctx.Pen:=opn;