home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_std.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  3KB  |  91 lines
  1. unit ifpiir_std;
  2. {$I ifps3_def.inc}
  3. interface
  4. uses
  5.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  6. {
  7.   Will register files from:
  8.     System
  9.     Classes (No Streams)
  10. }
  11.  
  12. procedure RIRegisterTObject(CL: TIFPSRuntimeClassImporter);
  13. procedure RIRegisterTPersistent(Cl: TIFPSRuntimeClassImporter);
  14. procedure RIRegisterTComponent(Cl: TIFPSRuntimeClassImporter);
  15. procedure RIRegister_Std(Cl: TIFPSRuntimeClassImporter);
  16.  
  17. implementation
  18. uses
  19.   Classes{$IFDEF CLX}, QControls, QGraphics{$ELSE}, Controls, Graphics{$ENDIF};
  20.  
  21.  
  22.  
  23. procedure RIRegisterTObject(CL: TIFPSRuntimeClassImporter); 
  24. begin
  25.   with cl.Add(TObject) do
  26.   begin
  27.     RegisterConstructor(@TObject.Create, 'CREATE');
  28.     RegisterMethod(@TObject.Free, 'FREE');
  29.   end;
  30. end;
  31.  
  32. procedure RIRegisterTPersistent(Cl: TIFPSRuntimeClassImporter);
  33. begin
  34.   with Cl.Add(TPersistent) do
  35.   begin
  36.     RegisterVirtualMethod(@TPersistent.Assign, 'ASSIGN');
  37.   end;
  38. end;
  39.  
  40. procedure TComponentOwnerR(Self: TComponent; var T: TComponent); begin T := Self.Owner; end;
  41.  
  42.  
  43. procedure TCOMPONENTCOMPONENTS_R(Self: TCOMPONENT; var T: TCOMPONENT; t1: INTEGER); begin T := Self.COMPONENTS[t1]; end;
  44. procedure TCOMPONENTCOMPONENTCOUNT_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTCOUNT; end;
  45. procedure TCOMPONENTCOMPONENTINDEX_R(Self: TCOMPONENT; var T: INTEGER); begin t := Self.COMPONENTINDEX; end;
  46. procedure TCOMPONENTCOMPONENTINDEX_W(Self: TCOMPONENT; T: INTEGER); begin Self.COMPONENTINDEX := t; end;
  47. procedure TCOMPONENTCOMPONENTSTATE_R(Self: TCOMPONENT; var T: TCOMPONENTSTATE); begin t := Self.COMPONENTSTATE; end;
  48. procedure TCOMPONENTDESIGNINFO_R(Self: TCOMPONENT; var T: LONGINT); begin t := Self.DESIGNINFO; end;
  49. procedure TCOMPONENTDESIGNINFO_W(Self: TCOMPONENT; T: LONGINT); begin Self.DESIGNINFO := t; end;
  50. procedure TCOMPONENTOWNER_R(Self: TCOMPONENT; var T: TCOMPONENT); begin T := Self.OWNER; end;
  51.  
  52.  
  53. procedure RIRegisterTComponent(Cl: TIFPSRuntimeClassImporter);
  54. begin
  55.   with Cl.Add(TComponent) do
  56.   begin
  57.     RegisterMethod(@TComponent.FindComponent, 'FINDCOMPONENT');
  58.     RegisterVirtualConstructor(@TComponent.Create, 'CREATE');
  59.     RegisterPropertyHelper(@TComponentOwnerR, nil, 'OWNER');
  60.  
  61.     RegisterMethod(@TCOMPONENT.DESTROYCOMPONENTS, 'DESTROYCOMPONENTS');
  62.     RegisterPropertyHelper(@TCOMPONENTCOMPONENTS_R, nil, 'COMPONENTS');
  63.     RegisterPropertyHelper(@TCOMPONENTCOMPONENTCOUNT_R, nil, 'COMPONENTCOUNT');
  64.     RegisterPropertyHelper(@TCOMPONENTCOMPONENTINDEX_R, @TCOMPONENTCOMPONENTINDEX_W, 'COMPONENTINDEX');
  65.     RegisterPropertyHelper(@TCOMPONENTCOMPONENTSTATE_R, nil, 'COMPONENTSTATE');
  66.     RegisterPropertyHelper(@TCOMPONENTDESIGNINFO_R, @TCOMPONENTDESIGNINFO_W, 'DESIGNINFO');
  67.     RegisterPropertyHelper(@TCOMPONENTOWNER_R, nil, 'OWNER');
  68.   end;
  69. end;
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77. procedure RIRegister_Std(Cl: TIFPSRuntimeClassImporter);
  78. begin
  79.   RIRegisterTObject(CL);
  80.   RIRegisterTPersistent(Cl);
  81.   RIRegisterTComponent(Cl);
  82. end;
  83. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  84.  
  85. end.
  86.  
  87.  
  88.  
  89.  
  90.  
  91.