91 lines
2.9 KiB
ObjectPascal
91 lines
2.9 KiB
ObjectPascal
|
unit ifpiir_std;
|
||
|
|
{$I ifps3_def.inc}
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
ifps3, ifps3common, ifps3utl, ifpiclassruntime;
|
||
|
|
{
|
||
|
|
Will register files from:
|
||
|
|
System
|
||
|
|
Classes (No Streams)
|
||
|
|
}
|
||
|
|
|
||
|
|
procedure RIRegisterTObject(CL: TIFPSRuntimeClassImporter);
|
||
|
|
procedure RIRegisterTPersistent(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
procedure RIRegisterTComponent(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
procedure RIRegister_Std(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
uses
|
||
|
|
Classes;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
procedure RIRegisterTObject(CL: TIFPSRuntimeClassImporter);
|
||
|
|
begin
|
||
|
|
with cl.Add(TObject) do
|
||
|
|
begin
|
||
|
|
RegisterConstructor(@TObject.Create, 'CREATE');
|
||
|
|
RegisterMethod(@TObject.Free, 'FREE');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure RIRegisterTPersistent(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
begin
|
||
|
|
with Cl.Add(TPersistent) do
|
||
|
|
begin
|
||
|
|
RegisterVirtualMethod(@TPersistent.Assign, 'ASSIGN');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TComponentOwnerR(Self: TComponent; var T: TComponent); begin T := Self.Owner; end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure TCOMPONENTCOMPONENTS_R(Self: TCOMPONENT; var T: TCOMPONENT; t1: INTEGER); begin T := Self.COMPONENTS[t1]; end;
|
||
|
|
procedure TCOMPONENTCOMPONENTCOUNT_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTCOUNT; end;
|
||
|
|
procedure TCOMPONENTCOMPONENTINDEX_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTINDEX; end;
|
||
|
|
procedure TCOMPONENTCOMPONENTINDEX_W(Self: TCOMPONENT; T: INTEGER); begin Self.COMPONENTINDEX := t; end;
|
||
|
|
procedure TCOMPONENTCOMPONENTSTATE_R(Self: TCOMPONENT; var T: TCOMPONENTSTATE); begin t := Self.COMPONENTSTATE; end;
|
||
|
|
procedure TCOMPONENTDESIGNINFO_R(Self: TCOMPONENT; var T: LONGINT); begin t := Self.DESIGNINFO; end;
|
||
|
|
procedure TCOMPONENTDESIGNINFO_W(Self: TCOMPONENT; T: LONGINT); begin Self.DESIGNINFO := t; end;
|
||
|
|
procedure TCOMPONENTOWNER_R(Self: TCOMPONENT; var T: TCOMPONENT); begin T := Self.OWNER; end;
|
||
|
|
|
||
|
|
|
||
|
|
procedure RIRegisterTComponent(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
begin
|
||
|
|
with Cl.Add(TComponent) do
|
||
|
|
begin
|
||
|
|
RegisterMethod(@TComponent.FindComponent, 'FINDCOMPONENT');
|
||
|
|
RegisterVirtualConstructor(@TComponent.Create, 'CREATE');
|
||
|
|
RegisterPropertyHelper(@TComponentOwnerR, nil, 'OWNER');
|
||
|
|
|
||
|
|
RegisterMethod(@TCOMPONENT.DESTROYCOMPONENTS, 'DESTROYCOMPONENTS');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTCOMPONENTS_R, nil, 'COMPONENTS');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTCOMPONENTCOUNT_R, nil, 'COMPONENTCOUNT');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTCOMPONENTINDEX_R, @TCOMPONENTCOMPONENTINDEX_W, 'COMPONENTINDEX');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTCOMPONENTSTATE_R, nil, 'COMPONENTSTATE');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTDESIGNINFO_R, @TCOMPONENTDESIGNINFO_W, 'DESIGNINFO');
|
||
|
|
RegisterPropertyHelper(@TCOMPONENTOWNER_R, nil, 'OWNER');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
procedure RIRegister_Std(Cl: TIFPSRuntimeClassImporter);
|
||
|
|
begin
|
||
|
|
RIRegisterTObject(CL);
|
||
|
|
RIRegisterTPersistent(Cl);
|
||
|
|
RIRegisterTComponent(Cl);
|
||
|
|
end;
|
||
|
|
// MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||
|
|
|
||
|
|
end.
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|