paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: fix formatting

Browse Source 
git-svn-id: trunk@43649 -
This commit is contained in:
paul 2014-01-05 11:38:57 +00:00
parent 39872a9b0a
commit 06375fba9b
2 changed files with 20 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -929,9 +929,7 @@ begin
if TCocoaWindowContent(handle).isembedded then if TCocoaWindowContent(handle).isembedded then
TCocoaWindowContent(handle).lclRelativePos(Left, Top) TCocoaWindowContent(handle).lclRelativePos(Left, Top)
else else
begin
TCocoaWindowContent(handle).window.lclRelativePos(Left, Top); TCocoaWindowContent(handle).window.lclRelativePos(Left, Top);
end;
end end
end; end;

4
lcl/interfaces/cocoa/cocoawsmenus.pas
View File

@ -187,11 +187,11 @@ class procedure TCocoaWSMenuItem.DestroyHandle(const AMenuItem: TMenuItem);
var var
callback: IMenuItemCallback; callback: IMenuItemCallback;
callbackObject: TObject; callbackObject: TObject;
item : TCocoaMenuItem; item: TCocoaMenuItem;
begin begin
if AMenuItem.Caption <> '-' then if AMenuItem.Caption <> '-' then
begin begin
item:=TCocoaMenuItem(AMenuItem.Handle); item := TCocoaMenuItem(AMenuItem.Handle);
callback := item.lclGetCallback; callback := item.lclGetCallback;
if Assigned(callback) then if Assigned(callback) then
begin begin