92 lines
3.0 KiB
ObjectPascal
92 lines
3.0 KiB
ObjectPascal
|
unit ifpii_std;
|
||
|
|
{$I ifps3_def.inc}
|
||
|
|
interface
|
||
|
|
uses
|
||
|
|
ifpscomp, ifps3common, ifps3utl, ifpiclass;
|
||
|
|
|
||
|
|
{
|
||
|
|
Will register files from:
|
||
|
|
System
|
||
|
|
Classes (Only TComponent and TPersistent)
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
procedure SIRegister_Std_TypesAndConsts(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
procedure SIRegisterTObject(CL: TIFPSCompileTimeClassesImporter);
|
||
|
|
procedure SIRegisterTPersistent(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
procedure SIRegisterTComponent(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
|
||
|
|
procedure SIRegister_Std(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
procedure SIRegisterTObject(CL: TIFPSCompileTimeClassesImporter);
|
||
|
|
begin
|
||
|
|
with cl.Add2(nil, 'TOBJECT') do
|
||
|
|
begin
|
||
|
|
RegisterMethod('constructor Create');
|
||
|
|
RegisterMethod('procedure Free');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure SIRegisterTPersistent(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
begin
|
||
|
|
with Cl.Add2(cl.FindClass('TObject'), 'TPERSISTENT') do
|
||
|
|
begin
|
||
|
|
RegisterMethod('procedure Assign(Source: TPersistent)');
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure SIRegisterTComponent(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
begin
|
||
|
|
with Cl.Add2(cl.FindClass('TPersistent'), 'TCOMPONENT') do
|
||
|
|
begin
|
||
|
|
RegisterMethod('function FindComponent(AName: string): TComponent;');
|
||
|
|
RegisterMethod('constructor Create(AOwner: TComponent); virtual;');
|
||
|
|
|
||
|
|
RegisterProperty('Owner', 'TComponent', iptRW);
|
||
|
|
RegisterMethod('procedure DESTROYCOMPONENTS');
|
||
|
|
RegisterMethod('procedure DESTROYING');
|
||
|
|
RegisterMethod('procedure FREENOTIFICATION(ACOMPONENT:TCOMPONENT)');
|
||
|
|
RegisterMethod('procedure INSERTCOMPONENT(ACOMPONENT:TCOMPONENT)');
|
||
|
|
RegisterMethod('procedure REMOVECOMPONENT(ACOMPONENT:TCOMPONENT)');
|
||
|
|
RegisterProperty('COMPONENTS', 'TCOMPONENT INTEGER', iptr);
|
||
|
|
RegisterProperty('COMPONENTCOUNT', 'INTEGER', iptr);
|
||
|
|
RegisterProperty('COMPONENTINDEX', 'INTEGER', iptrw);
|
||
|
|
RegisterProperty('COMPONENTSTATE', 'Byte', iptr);
|
||
|
|
RegisterProperty('DESIGNINFO', 'LONGINT', iptrw);
|
||
|
|
RegisterProperty('NAME', 'STRING', iptrw);
|
||
|
|
RegisterProperty('TAG', 'LONGINT', iptrw);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
procedure SIRegister_Std_TypesAndConsts(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
begin
|
||
|
|
cl.se.AddConstantN('csLoading', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csReading', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csWriting', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csDestroying', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csDesigning', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csAncestor', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csUpdating', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddConstantN('csFixups', 'Byte')^.Value.tu8 := 0;
|
||
|
|
cl.se.AddTypeS('TRect', 'record Left, Top, Right, Bottom: Integer; end;');
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure SIRegister_Std(Cl: TIFPSCompileTimeClassesImporter);
|
||
|
|
begin
|
||
|
|
SIRegister_Std_TypesAndConsts(Cl);
|
||
|
|
SIRegisterTObject(CL);
|
||
|
|
SIRegisterTPersistent(Cl);
|
||
|
|
SIRegisterTComponent(Cl);
|
||
|
|
end;
|
||
|
|
|
||
|
|
// MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
|
||
|
|
|
||
|
|
|
||
|
|
End.
|
||
|
|
|