paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-07 16:00:23 +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
R: TRect;
begin
GetBounds(R);
LCLObject.InvalidateClientRectCache(False);
LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface);
if not Resizing then
begin
GetBounds(R);
LCLObject.InvalidateClientRectCache(False);
LCLSendSizeMsg(LCLObject, R.Right - R.Left, R.Bottom - R.Top, Size_SourceIsInterface);
end;
end;
{------------------------------------------------------------------------------