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

cocoa: fix formatting

Browse Source 
git-svn-id: trunk@43667 -
This commit is contained in:
paul 2014-01-07 04:25:04 +00:00
parent 03651e2cfd
commit 6617df26ff
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -807,11 +807,11 @@ begin
NewBounds.Top, Move_SourceIsInterface); NewBounds.Top, Move_SourceIsInterface);
end; end;
if not FBoundsReportedToChildren then // first time we need this to update non cocoa based client rects if not FBoundsReportedToChildren then // first time we need this to update non cocoa based client rects
begin begin
Target.InvalidateClientRectCache(true); Target.InvalidateClientRectCache(true);
FBoundsReportedToChildren:=true; FBoundsReportedToChildren:=true;
end; end;
end; end;

10
lcl/interfaces/cocoa/cocoawsforms.pp
View File

@ -554,11 +554,11 @@ class procedure TCocoaWSCustomForm.SetBounds(const AWinControl: TWinControl;
const ALeft, ATop, AWidth, AHeight: Integer); const ALeft, ATop, AWidth, AHeight: Integer);
begin begin
if AWinControl.HandleAllocated then if AWinControl.HandleAllocated then
begin begin
//debugln('TCocoaWSCustomForm.SetBounds: '+AWinControl.Name+'Bounds='+dbgs(Bounds(ALeft, ATop, AWidth, AHeight))); //debugln('TCocoaWSCustomForm.SetBounds: '+AWinControl.Name+'Bounds='+dbgs(Bounds(ALeft, ATop, AWidth, AHeight)));
NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight)); NSObject(AWinControl.Handle).lclSetFrame(Bounds(ALeft, ATop, AWidth, AHeight));
TCocoaWindowContent(AwinControl.Handle).callback.boundsDidChange; TCocoaWindowContent(AwinControl.Handle).callback.boundsDidChange;
end; end;
end; end;
end. end.