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

carbon: filling TPaintStruct for the control, fixes #18211

Browse Source 
git-svn-id: trunk@28739 -
This commit is contained in:
dmitry 2010-12-17 04:26:35 +00:00
parent 801686ce3e
commit 121824d7f2
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/carbon/carbonprivatecommon.inc
View File

@ -57,6 +57,9 @@ var
AStruct : PPaintStruct;
Win : WindowRef;
Content : HIViewRef;
Hnd : RgnHandle;
mr : MacOSAll.Rect;
invr : TRect;
begin
if isRepaint then
begin
@ -78,6 +81,19 @@ begin
SizeOf(CGContextRef), nil, @(AWidget.Context.CGContext)),
'CarbonCommon_Draw', SGetEvent, 'kEventParamCGContextRef') then Exit;
if GetEventParameter(AEvent, kEventParamRgnHandle, typeQDRgnHandle, nil,
SizeOf(Hnd), nil, @Hnd)=noErr then
begin
GetRegionBounds(RgnHandle(Hnd), mr);
invr.Left:=mr.left;
invr.Top:=mr.top;
invr.Right:=mr.right;
invr.Bottom:=mr.bottom;
end
else
AWidget.GetBounds(invr);
AWidget.Context.Reset;
// let carbon draw/update
@ -92,6 +108,8 @@ begin
New(AStruct);
FillChar(AStruct^, SizeOf(TPaintStruct), 0);
AStruct^.hdc := HDC(AWidget.Context);
AStruct^.fErase := False;
AStruct^.rcPaint := invr;
try
{$IFDEF VerbosePaint}
DebugLn('CarbonCommon_Draw LM_PAINT to ', DbgSName(AWidget.LCLObject));