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

fix #12871, also reduces number of overhead resize messages

Browse Source 
git-svn-id: trunk@18091 -
This commit is contained in:
dmitry 2009-01-03 22:29:11 +00:00
parent 89df8b61f5
commit acff5b431f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/carbon/carbondef.pp
View File

@ -444,10 +444,12 @@ procedure TCarbonWidget.UpdateLCLClientRect;
var var
R: TRect; R: TRect;
begin begin
GetBounds(R); if not Resizing then
begin
LCLObject.InvalidateClientRectCache(False); GetBounds(R);
LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface); LCLObject.InvalidateClientRectCache(False);
LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface);
end;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------