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

Carbon: Fix clipping of Memo top border. Issue #28071, patch from Squall64 and AlexeyT.

Browse Source 
git-svn-id: trunk@54782 -
This commit is contained in:
juha 2017-04-30 15:28:04 +00:00
parent d26cecd517
commit 3000ed4e71
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/carbon/carbonedits.pp
View File

@ -1773,9 +1773,9 @@ begin
if not Assigned(ctx) then Exit;
HIViewGetBounds(TCarbonMemo(AWidget).FBorder, cg{%H-});
cg.origin.x:=0.5;
cg.origin.y:=0.5;
cg.origin.y:=1;
cg.size.width:=cg.size.width-2;
cg.size.height:=cg.size.height-1;
cg.size.height:=cg.size.height-2;
if TCarbonMemo(AWidget).FDrawBorder then
begin
@ -1787,7 +1787,7 @@ begin
clips[1].origin.x:=0;
clips[1].origin.y:=cg.size.height-ScrollSz;
clips[1].size.width:=cg.size.width-ScrollSz+2;
clips[1].size.height:=ScrollSz+1;
clips[1].size.height:=ScrollSz+2;
CGContextClipToRects(ctx, @clips, 2);
end;
FillChar(frm{%H-}, sizeof(frm), 0);