paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 01:57:16 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL carbon: fixed updating client rect if scrollbars changed

Browse Source 
git-svn-id: trunk@14948 -
This commit is contained in:
tombo 2008-04-24 08:08:37 +00:00
parent 22a852a20c
commit ae66f2b9db
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -439,8 +439,7 @@ end;
procedure TCarbonWidget.UpdateLCLClientRect;
begin
LCLObject.InvalidateClientRectCache(False);
LCLSendSizeMsg(LCLObject, LCLObject.Width,
LCLObject.Height, Size_SourceIsInterface);
LCLSendSizeMsg(LCLObject, LCLObject.Width, LCLObject.Height, Size_SourceIsInterface);
end;
{------------------------------------------------------------------------------

5
lcl/interfaces/carbon/carbonprivate.pp
View File

@ -676,8 +676,6 @@ begin
FTextFractional := True;
inherited;
UpdateLCLClientRect; // force update client rect
end;
{------------------------------------------------------------------------------
@ -820,6 +818,9 @@ begin
end;
DeliverMessage(LCLObject, ScrollMsg);
// scroll bars can change client rect - update it
UpdateLCLClientRect;
OSError(
HiViewSetNeedsDisplay(Widget, True), Self, 'ScrollTo', SViewNeedsDisplay);
end;