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

cocoa: sending change bounds notification on direct setBounds call, to update LCL bounds (boundsrect and clientsrect) information. #33172

Browse Source 
git-svn-id: trunk@57615 -
This commit is contained in:
dmitry 2018-04-07 03:12:05 +00:00
parent 535304ef18
commit ea840fc089
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -1472,6 +1472,8 @@ end;
class procedure TCocoaWSWinControl.SetBounds(const AWinControl: TWinControl; class procedure TCocoaWSWinControl.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: Integer); const ALeft, ATop, AWidth, AHeight: Integer);
var
cb : ICommonCallBack;
begin begin
if AWinControl.HandleAllocated then if AWinControl.HandleAllocated then
begin begin
@ -1480,6 +1482,9 @@ begin
[AWinControl.Name, dbgs(Bounds(ALeft, ATop, AWidth, AHeight))])); [AWinControl.Name, dbgs(Bounds(ALeft, ATop, AWidth, AHeight))]));
{$ENDIF} {$ENDIF}
NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight)); NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight));
cb := NSObject(AWinControl.Handle).lclGetCallback;
if Assigned(cb) then cb.boundsDidChange(nil);
end; end;
end; end;