home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_extctrls.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  4KB  |  152 lines
  1. unit ifpiir_extctrls;
  2.  
  3. {$I ifps3_def.inc}
  4. interface
  5. uses
  6.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  7. (*
  8.    Will register files from:
  9.      ExtCtrls
  10.  
  11. Requires:
  12.   STD, classes, controls, graphics {$IFNDEF MINIVCL}, stdctrls {$ENDIF}
  13. *)
  14.  
  15. procedure RIRegister_ExtCtrls(cl: TIFPSRuntimeClassImporter);
  16.  
  17. procedure RIRegisterTSHAPE(Cl: TIFPSRuntimeClassImporter);
  18. procedure RIRegisterTPAINTBOX(Cl: TIFPSRuntimeClassImporter);
  19. procedure RIRegisterTIMAGE(Cl: TIFPSRuntimeClassImporter);
  20. procedure RIRegisterTBEVEL(Cl: TIFPSRuntimeClassImporter);
  21. procedure RIRegisterTTIMER(Cl: TIFPSRuntimeClassImporter);
  22. procedure RIRegisterTCUSTOMPANEL(Cl: TIFPSRuntimeClassImporter);
  23. procedure RIRegisterTPANEL(Cl: TIFPSRuntimeClassImporter);
  24. {$IFNDEF CLX}
  25. procedure RIRegisterTPAGE(Cl: TIFPSRuntimeClassImporter);
  26. procedure RIRegisterTNOTEBOOK(Cl: TIFPSRuntimeClassImporter);
  27. procedure RIRegisterTHEADER(Cl: TIFPSRuntimeClassImporter);
  28. {$ENDIF}
  29. procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TIFPSRuntimeClassImporter);
  30. procedure RIRegisterTRADIOGROUP(Cl: TIFPSRuntimeClassImporter);
  31.  
  32. implementation
  33.  
  34. uses
  35.   {$IFDEF CLX}
  36.   QExtCtrls, QGraphics;
  37.   {$ELSE}
  38.   ExtCtrls, Graphics;
  39.   {$ENDIF}
  40.  
  41. procedure RIRegisterTSHAPE(Cl: TIFPSRuntimeClassImporter);
  42. begin
  43.   with Cl.Add(TSHAPE) do
  44.   begin
  45.     {$IFNDEF MINIVCL}
  46.     RegisterMethod(@TSHAPE.STYLECHANGED, 'STYLECHANGED');
  47.     {$ENDIF}
  48.   end;
  49. end;
  50.  
  51. procedure TPAINTBOXCANVAS_R(Self: TPAINTBOX; var T: TCanvas); begin T := Self.CANVAS; end;
  52.  
  53. procedure RIRegisterTPAINTBOX(Cl: TIFPSRuntimeClassImporter);
  54. begin
  55.   with Cl.Add(TPAINTBOX) do
  56.   begin
  57.     RegisterPropertyHelper(@TPAINTBOXCANVAS_R, nil, 'CANVAS');
  58.   end;
  59. end;
  60.  
  61. procedure TIMAGECANVAS_R(Self: TIMAGE; var T: TCANVAS); begin T := Self.CANVAS; end;
  62.  
  63. procedure RIRegisterTIMAGE(Cl: TIFPSRuntimeClassImporter);
  64. begin
  65.   with Cl.Add(TIMAGE) do
  66.   begin
  67.     RegisterPropertyHelper(@TIMAGECANVAS_R, nil, 'CANVAS');
  68.   end;
  69. end;
  70.  
  71. procedure RIRegisterTBEVEL(Cl: TIFPSRuntimeClassImporter);
  72. begin
  73.   Cl.Add(TBEVEL);
  74. end;
  75.  
  76. procedure RIRegisterTTIMER(Cl: TIFPSRuntimeClassImporter);
  77. begin
  78.   Cl.Add(TTIMER);
  79. end;
  80.  
  81. procedure RIRegisterTCUSTOMPANEL(Cl: TIFPSRuntimeClassImporter);
  82. begin
  83.   Cl.Add(TCUSTOMPANEL);
  84. end;
  85.  
  86. procedure RIRegisterTPANEL(Cl: TIFPSRuntimeClassImporter);
  87. begin
  88.   Cl.Add(TPANEL);
  89. end;
  90. {$IFNDEF CLX}
  91. procedure RIRegisterTPAGE(Cl: TIFPSRuntimeClassImporter);
  92. begin
  93.   Cl.Add(TPAGE);
  94. end;
  95.  
  96. procedure RIRegisterTNOTEBOOK(Cl: TIFPSRuntimeClassImporter);
  97. begin
  98.   Cl.Add(TNOTEBOOK);
  99. end;
  100.  
  101. procedure THEADERSECTIONWIDTH_R(Self: THEADER; var T: INTEGER; t1: INTEGER); begin T := Self.SECTIONWIDTH[t1]; end;
  102. procedure THEADERSECTIONWIDTH_W(Self: THEADER; T: INTEGER; t1: INTEGER); begin Self.SECTIONWIDTH[t1] := T; end;
  103.  
  104. procedure RIRegisterTHEADER(Cl: TIFPSRuntimeClassImporter);
  105. begin
  106.   with Cl.Add(THEADER) do
  107.   begin
  108.     RegisterPropertyHelper(@THEADERSECTIONWIDTH_R, @THEADERSECTIONWIDTH_W, 'SECTIONWIDTH');
  109.   end;
  110. end;
  111. {$ENDIF}
  112.  
  113. procedure RIRegisterTCUSTOMRADIOGROUP(Cl: TIFPSRuntimeClassImporter);
  114. begin
  115.   Cl.Add(TCUSTOMRADIOGROUP);
  116. end;
  117.  
  118. procedure RIRegisterTRADIOGROUP(Cl: TIFPSRuntimeClassImporter);
  119. begin
  120.   Cl.Add(TRADIOGROUP);
  121. end;
  122.  
  123. procedure RIRegister_ExtCtrls(cl: TIFPSRuntimeClassImporter);
  124. begin
  125.   {$IFNDEF MINIVCL}
  126.   RIRegisterTSHAPE(Cl);
  127.   RIRegisterTPAINTBOX(Cl);
  128.   RIRegisterTIMAGE(Cl);
  129.   {$ENDIF}
  130.   RIRegisterTBEVEL(Cl);
  131.   {$IFNDEF MINIVCL}
  132.   RIRegisterTTIMER(Cl);
  133.   {$ENDIF}
  134.   RIRegisterTCUSTOMPANEL(Cl);
  135. {$IFNDEF CLX}
  136.   RIRegisterTPANEL(Cl);
  137.   RIRegisterTPAGE(Cl);
  138.   RIRegisterTNOTEBOOK(Cl);
  139. {$ENDIF}
  140.   {$IFNDEF MINIVCL}
  141. {$IFNDEF CLX}
  142.   RIRegisterTHEADER(Cl);
  143. {$ENDIF}
  144.   RIRegisterTCUSTOMRADIOGROUP(Cl);
  145.   RIRegisterTRADIOGROUP(Cl);
  146.   {$ENDIF}
  147. end;
  148.  
  149. end.
  150.  
  151.  
  152.