paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-08 20:35:58 +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; end;
IMenuItemCallback = interface(ICommonCallBack) IMenuItemCallback = interface(ICommonCallBack)
procedure ItemSelected; procedure ItemSelected;
end; end;
{ TCocoaMenu } { TCocoaMenu }
@ -175,7 +175,7 @@ type
TCocoaMenuItem = objcclass(NSMenuItem) TCocoaMenuItem = objcclass(NSMenuItem)
public public
callback:IMenuItemCallback; callback: IMenuItemCallback;
procedure lclItemSelected(sender: id); message 'lclItemSelected:'; procedure lclItemSelected(sender: id); message 'lclItemSelected:';
end; end;
@ -1934,7 +1934,7 @@ end;
procedure TCocoaMenuItem.lclItemSelected(sender:id); procedure TCocoaMenuItem.lclItemSelected(sender:id);
begin begin
callback.ItemSelected; callback.ItemSelected;
end; end;
end. end.

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

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