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

cocoa: identation fix

Browse Source 
git-svn-id: trunk@49671 -
This commit is contained in:
sekelsenmat 2015-08-15 06:21:33 +00:00
parent 2d3742cbba
commit 96d3cffb5a
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -277,30 +277,30 @@ var
ACustForm: TCustomForm;
begin
if not IsActivating then
begin
begin
IsActivating:=True;
ACustForm := Target as TCustomForm;
if (ACustForm.Menu <> nil) and
(ACustForm.Menu.HandleAllocated) then
begin
begin
if NSObject(ACustForm.Menu.Handle).isKindOfClass_(TCocoaMenuItem) then
begin
begin
if TCocoaMenuItem(ACustForm.Menu.Handle).hasSubmenu then
CocoaWidgetSet.SetMainMenu(HMENU(TCocoaMenuItem(ACustForm.Menu.Handle).submenu), ACustForm.Menu)
else
debugln('Warning: Menu does not have a valid handle.');
end
end
else
CocoaWidgetSet.SetMainMenu(ACustForm.Menu.Handle, ACustForm.Menu);
end
end
else
CocoaWidgetSet.SetMainMenu(0, nil);
LCLSendActivateMsg(Target, WA_ACTIVE, false);
LCLSendSetFocusMsg(Target);
IsActivating:=False;
end;
end;
end;
procedure TLCLWindowCallback.Deactivate;