pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Tell the designer to use rtti to obtain the eventss parameters

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2646 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
loesje_
2013-02-02 16:46:28 +00:00
parent 678dbe14c1
commit 5e40fc3cfa
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/iosdesigner/iosnibdesigner.pas
View File

@ -57,6 +57,7 @@ type
private private
FMyForm: NSObject; FMyForm: NSObject;
public public
function UseRTTIForMethods(aComponent: TComponent): boolean; override;
// needed by the lazarus form editor // needed by the lazarus form editor
class function CreateMediator(TheOwner, aForm: TComponent): TDesignerMediator; override; class function CreateMediator(TheOwner, aForm: TComponent): TDesignerMediator; override;
class function FormClass: TComponentClass; override; class function FormClass: TComponentClass; override;
@ -262,6 +263,14 @@ begin
inherited Destroy; inherited Destroy;
end; end;
function TNSObjectDesignerMediator.UseRTTIForMethods(aComponent: TComponent): boolean;
begin
if aComponent is tiOSFakeComponent then
result := true
else
Result:=inherited UseRTTIForMethods(aComponent);
end;
class function TNSObjectDesignerMediator.CreateMediator(TheOwner, aForm: TComponent): TDesignerMediator; class function TNSObjectDesignerMediator.CreateMediator(TheOwner, aForm: TComponent): TDesignerMediator;
var var
Mediator: TNSObjectDesignerMediator; Mediator: TNSObjectDesignerMediator;