david
08e42642b8
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.DevExpressVCL@21 05c56307-c608-d34a-929d-697000501d7a
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.
|
|
|
|
|
|
|
|
|
|
|