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

cocoa: formatting after freq commit

Browse Source 
git-svn-id: trunk@43569 -
This commit is contained in:
paul 2013-12-19 01:46:36 +00:00
parent d6e064d027
commit 2868e7ee39
2 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -161,7 +161,7 @@ type
end;
IMenuItemCallback = interface(ICommonCallBack)
procedure ItemSelected;
procedure ItemSelected;
end;
{ TCocoaMenu }
@ -175,7 +175,7 @@ type
TCocoaMenuItem = objcclass(NSMenuItem)
public
callback:IMenuItemCallback;
callback: IMenuItemCallback;
procedure lclItemSelected(sender: id); message 'lclItemSelected:';
end;
@ -1934,7 +1934,7 @@ end;
procedure TCocoaMenuItem.lclItemSelected(sender:id);
begin
callback.ItemSelected;
callback.ItemSelected;
end;
end.

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

@ -14,8 +14,6 @@ uses
CocoaPrivate, CocoaGDIObjects, CocoaCaret, CocoaUtils, LCLMessageGlue;
type
{ TLCLCommonCallback }
TLCLCommonCallback = class(TObject, ICommonCallBack)
@ -104,10 +102,10 @@ type
TLCLMenuItemCallback = class(TLCLCommonCallback, IMenuItemCallback)
private
FMenuItemTarget: TComponent;
FMenuItemTarget: TComponent;
public
constructor Create(AOwner: NSObject; AMenuItemTarget: TComponent);
procedure ItemSelected;
constructor Create(AOwner: NSObject; AMenuItemTarget: TComponent);
procedure ItemSelected;
end;
const
@ -1091,18 +1089,18 @@ end;
constructor TLCLMenuItemCallback.Create(AOwner: NSObject; AMenuItemTarget: TComponent);
begin
Owner := AOwner;
FMenuItemTarget:=AMenuItemTarget;
Owner := AOwner;
FMenuItemTarget := AMenuItemTarget;
end;
procedure TLCLMenuItemCallback.ItemSelected;
var
Msg:TLMessage;
Msg:TLMessage;
begin
FillChar(Msg{%H-}, SizeOf(Msg), 0);
Msg.msg := LM_ACTIVATE;
// debugln('send LM_Activate');
LCLMessageGlue.DeliverMessage(FMenuItemTarget,Msg);
FillChar(Msg{%H-}, SizeOf(Msg), 0);
Msg.msg := LM_ACTIVATE;
// debugln('send LM_Activate');
LCLMessageGlue.DeliverMessage(FMenuItemTarget,Msg);
end;
end.