home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_stdctrls.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  11KB  |  291 lines
  1. unit ifpiir_stdctrls;
  2.  
  3. {$I ifps3_def.inc}
  4. interface
  5. uses
  6.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  7. {
  8.    Will register files from:
  9.      stdctrls
  10.  
  11. Requires:
  12.   STD, classes, controls and graphics
  13. }
  14.  
  15. procedure RIRegisterTCUSTOMGROUPBOX(Cl: TIFPSRuntimeClassImporter);
  16. procedure RIRegisterTGROUPBOX(Cl: TIFPSRuntimeClassImporter);
  17. procedure RIRegisterTCUSTOMLABEL(Cl: TIFPSRuntimeClassImporter);
  18. procedure RIRegisterTLABEL(Cl: TIFPSRuntimeClassImporter);
  19. procedure RIRegisterTCUSTOMEDIT(Cl: TIFPSRuntimeClassImporter);
  20. procedure RIRegisterTEDIT(Cl: TIFPSRuntimeClassImporter);
  21. procedure RIRegisterTCUSTOMMEMO(Cl: TIFPSRuntimeClassImporter);
  22. procedure RIRegisterTMEMO(Cl: TIFPSRuntimeClassImporter);
  23. procedure RIRegisterTCUSTOMCOMBOBOX(Cl: TIFPSRuntimeClassImporter);
  24. procedure RIRegisterTCOMBOBOX(Cl: TIFPSRuntimeClassImporter);
  25. procedure RIRegisterTBUTTONCONTROL(Cl: TIFPSRuntimeClassImporter);
  26. procedure RIRegisterTBUTTON(Cl: TIFPSRuntimeClassImporter);
  27. procedure RIRegisterTCUSTOMCHECKBOX(Cl: TIFPSRuntimeClassImporter);
  28. procedure RIRegisterTCHECKBOX(Cl: TIFPSRuntimeClassImporter);
  29. procedure RIRegisterTRADIOBUTTON(Cl: TIFPSRuntimeClassImporter);
  30. procedure RIRegisterTCUSTOMLISTBOX(Cl: TIFPSRuntimeClassImporter);
  31. procedure RIRegisterTLISTBOX(Cl: TIFPSRuntimeClassImporter);
  32. procedure RIRegisterTSCROLLBAR(Cl: TIFPSRuntimeClassImporter);
  33.  
  34. procedure RIRegister_stdctrls(cl: TIFPSRuntimeClassImporter);
  35.  
  36. implementation
  37. uses
  38.   sysutils, classes{$IFDEF CLX}, QControls, QStdCtrls, QGraphics{$ELSE}, controls, stdctrls, Graphics{$ENDIF};
  39.  
  40. procedure RIRegisterTCUSTOMGROUPBOX(Cl: TIFPSRuntimeClassImporter);
  41. begin
  42.   Cl.Add(TCUSTOMGROUPBOX);
  43. end;
  44.  
  45.  
  46. procedure RIRegisterTGROUPBOX(Cl: TIFPSRuntimeClassImporter);
  47. begin
  48.   Cl.Add(TGROUPBOX);
  49. end;
  50. {$IFNDEF CLX}
  51. procedure TCUSTOMLABELCANVAS_R(Self: TCUSTOMLABEL; var T: TCanvas); begin T := Self.CANVAS; end;
  52. {$ENDIF}
  53.  
  54. procedure RIRegisterTCUSTOMLABEL(Cl: TIFPSRuntimeClassImporter);
  55. begin
  56.   with Cl.Add(TCUSTOMLABEL) do
  57.   begin
  58.     {$IFNDEF MINIVCL}
  59. {$IFNDEF CLX}
  60.     RegisterPropertyHelper(@TCUSTOMLABELCANVAS_R, nil, 'CANVAS');
  61. {$ENDIF}
  62.     {$ENDIF}
  63.   end;
  64. end;
  65.  
  66. procedure RIRegisterTLABEL(Cl: TIFPSRuntimeClassImporter);
  67. begin
  68.   Cl.Add(TLABEL);
  69. end;
  70. procedure TCUSTOMEDITMODIFIED_R(Self: TCUSTOMEDIT; var T: BOOLEAN); begin T := Self.MODIFIED; end;
  71. procedure TCUSTOMEDITMODIFIED_W(Self: TCUSTOMEDIT; T: BOOLEAN); begin Self.MODIFIED := T; end;
  72. procedure TCUSTOMEDITSELLENGTH_R(Self: TCUSTOMEDIT; var T: INTEGER); begin T := Self.SELLENGTH; end;
  73. procedure TCUSTOMEDITSELLENGTH_W(Self: TCUSTOMEDIT; T: INTEGER); begin Self.SELLENGTH := T; end;
  74. procedure TCUSTOMEDITSELSTART_R(Self: TCUSTOMEDIT; var T: INTEGER); begin T := Self.SELSTART; end;
  75. procedure TCUSTOMEDITSELSTART_W(Self: TCUSTOMEDIT; T: INTEGER); begin Self.SELSTART := T; end;
  76. procedure TCUSTOMEDITSELTEXT_R(Self: TCUSTOMEDIT; var T: STRING); begin T := Self.SELTEXT; end;
  77. procedure TCUSTOMEDITSELTEXT_W(Self: TCUSTOMEDIT; T: STRING); begin Self.SELTEXT := T; end;
  78. procedure TCUSTOMEDITTEXT_R(Self: TCUSTOMEDIT; var T: string); begin T := Self.TEXT; end;
  79. procedure TCUSTOMEDITTEXT_W(Self: TCUSTOMEDIT; T: string); begin Self.TEXT := T; end;
  80.  
  81.  
  82. procedure RIRegisterTCUSTOMEDIT(Cl: TIFPSRuntimeClassImporter);
  83. begin
  84.   with Cl.Add(TCUSTOMEDIT) do
  85.   begin
  86.     RegisterMethod(@TCUSTOMEDIT.CLEAR, 'CLEAR');
  87.     RegisterMethod(@TCUSTOMEDIT.CLEARSELECTION, 'CLEARSELECTION');
  88.     RegisterMethod(@TCUSTOMEDIT.SELECTALL, 'SELECTALL');
  89.     RegisterPropertyHelper(@TCUSTOMEDITMODIFIED_R, @TCUSTOMEDITMODIFIED_W, 'MODIFIED');
  90.     RegisterPropertyHelper(@TCUSTOMEDITSELLENGTH_R, @TCUSTOMEDITSELLENGTH_W, 'SELLENGTH');
  91.     RegisterPropertyHelper(@TCUSTOMEDITSELSTART_R, @TCUSTOMEDITSELSTART_W, 'SELSTART');
  92.     RegisterPropertyHelper(@TCUSTOMEDITSELTEXT_R, @TCUSTOMEDITSELTEXT_W, 'SELTEXT');
  93.     RegisterPropertyHelper(@TCUSTOMEDITTEXT_R, @TCUSTOMEDITTEXT_W, 'TEXT');
  94.  
  95.     {$IFNDEF MINIVCL}
  96.     RegisterMethod(@TCUSTOMEDIT.COPYTOCLIPBOARD, 'COPYTOCLIPBOARD');
  97.     RegisterMethod(@TCUSTOMEDIT.CUTTOCLIPBOARD, 'CUTTOCLIPBOARD');
  98.     RegisterMethod(@TCUSTOMEDIT.PASTEFROMCLIPBOARD, 'PASTEFROMCLIPBOARD');
  99.     RegisterMethod(@TCUSTOMEDIT.GETSELTEXTBUF, 'GETSELTEXTBUF');
  100.     RegisterMethod(@TCUSTOMEDIT.SETSELTEXTBUF, 'SETSELTEXTBUF');
  101.     {$ENDIF}
  102.   end;
  103. end;
  104.  
  105. procedure RIRegisterTEDIT(Cl: TIFPSRuntimeClassImporter);
  106. begin
  107.   Cl.Add(TEDIT);
  108. end;
  109.  
  110.  
  111. procedure TCUSTOMMEMOLINES_R(Self: {$IFDEF CLX}TMemo{$ELSE}TCUSTOMMEMO{$ENDIF}; var T: TSTRINGS); begin T := Self.LINES; end;
  112. procedure TCUSTOMMEMOLINES_W(Self: {$IFDEF CLX}TMemo{$ELSE}TCUSTOMMEMO{$ENDIF}; T: TSTRINGS); begin Self.LINES := T; end;
  113.  
  114.  
  115. procedure RIRegisterTCUSTOMMEMO(Cl: TIFPSRuntimeClassImporter);
  116. begin
  117.   with Cl.Add(TCUSTOMMEMO) do
  118.   begin
  119.     {$IFNDEF CLX}
  120.     RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
  121.     {$ENDIF}
  122.   end;
  123. end;
  124.  
  125.  
  126. procedure RIRegisterTMEMO(Cl: TIFPSRuntimeClassImporter);
  127. begin
  128.   with Cl.Add(TMEMO) do
  129.   begin
  130.     {$IFDEF CLX}
  131.     RegisterPropertyHelper(@TCUSTOMMEMOLINES_R, @TCUSTOMMEMOLINES_W, 'LINES');
  132.     {$ENDIF}
  133.   end;
  134. end;
  135.  
  136.  
  137. procedure TCUSTOMCOMBOBOXCANVAS_R(Self: TCUSTOMCOMBOBOX; var T: TCANVAS); begin T := Self.CANVAS; end;
  138. procedure TCUSTOMCOMBOBOXDROPPEDDOWN_R(Self: TCUSTOMCOMBOBOX; var T: BOOLEAN); begin T := Self.DROPPEDDOWN; end;
  139. procedure TCUSTOMCOMBOBOXDROPPEDDOWN_W(Self: TCUSTOMCOMBOBOX; T: BOOLEAN); begin Self.DROPPEDDOWN := T; end;
  140. procedure TCUSTOMCOMBOBOXITEMS_R(Self: TCUSTOMCOMBOBOX; var T: TSTRINGS); begin T := Self.ITEMS; end;
  141. procedure TCUSTOMCOMBOBOXITEMS_W(Self: TCUSTOMCOMBOBOX; T: TSTRINGS); begin Self.ITEMS := T; end;
  142. procedure TCUSTOMCOMBOBOXITEMINDEX_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.ITEMINDEX; end;
  143. procedure TCUSTOMCOMBOBOXITEMINDEX_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.ITEMINDEX := T; end;
  144. procedure TCUSTOMCOMBOBOXSELLENGTH_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.SELLENGTH; end;
  145. procedure TCUSTOMCOMBOBOXSELLENGTH_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.SELLENGTH := T; end;
  146. procedure TCUSTOMCOMBOBOXSELSTART_R(Self: TCUSTOMCOMBOBOX; var T: INTEGER); begin T := Self.SELSTART; end;
  147. procedure TCUSTOMCOMBOBOXSELSTART_W(Self: TCUSTOMCOMBOBOX; T: INTEGER); begin Self.SELSTART := T; end;
  148. procedure TCUSTOMCOMBOBOXSELTEXT_R(Self: TCUSTOMCOMBOBOX; var T: STRING); begin T := Self.SELTEXT; end;
  149. procedure TCUSTOMCOMBOBOXSELTEXT_W(Self: TCUSTOMCOMBOBOX; T: STRING); begin Self.SELTEXT := T; end;
  150.  
  151.  
  152. procedure RIRegisterTCUSTOMCOMBOBOX(Cl: TIFPSRuntimeClassImporter);
  153. begin
  154.   with Cl.Add(TCUSTOMCOMBOBOX) do
  155.   begin
  156.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXDROPPEDDOWN_R, @TCUSTOMCOMBOBOXDROPPEDDOWN_W, 'DROPPEDDOWN');
  157.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMS_R, @TCUSTOMCOMBOBOXITEMS_W, 'ITEMS');
  158.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXITEMINDEX_R, @TCUSTOMCOMBOBOXITEMINDEX_W, 'ITEMINDEX');
  159.  
  160.     {$IFNDEF MINIVCL}
  161.     RegisterMethod(@TCUSTOMCOMBOBOX.CLEAR, 'CLEAR');
  162.     RegisterMethod(@TCUSTOMCOMBOBOX.SELECTALL, 'SELECTALL');
  163.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXCANVAS_R, nil, 'CANVAS');
  164.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELLENGTH_R, @TCUSTOMCOMBOBOXSELLENGTH_W, 'SELLENGTH');
  165.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELSTART_R, @TCUSTOMCOMBOBOXSELSTART_W, 'SELSTART');
  166.     RegisterPropertyHelper(@TCUSTOMCOMBOBOXSELTEXT_R, @TCUSTOMCOMBOBOXSELTEXT_W, 'SELTEXT');
  167.     {$ENDIF}
  168.   end;
  169. end;
  170.  
  171.  
  172.  
  173.  
  174. procedure RIRegisterTCOMBOBOX(Cl: TIFPSRuntimeClassImporter);
  175. begin
  176.   Cl.Add(TCOMBOBOX);
  177. end;
  178.  
  179.  
  180.  
  181. procedure RIRegisterTBUTTONCONTROL(Cl: TIFPSRuntimeClassImporter);
  182. begin
  183.   Cl.Add(TBUTTONCONTROL);
  184. end;
  185.  
  186.  
  187.  
  188. procedure RIRegisterTBUTTON(Cl: TIFPSRuntimeClassImporter);
  189. begin
  190.   Cl.Add(TBUTTON);
  191. end;
  192.  
  193.  
  194.  
  195.  
  196. procedure RIRegisterTCUSTOMCHECKBOX(Cl: TIFPSRuntimeClassImporter);
  197. begin
  198.   Cl.Add(TCUSTOMCHECKBOX);
  199. end;
  200.  
  201.  
  202. procedure RIRegisterTCHECKBOX(Cl: TIFPSRuntimeClassImporter);
  203. begin
  204.   Cl.Add(TCHECKBOX);
  205. end;
  206.  
  207.  
  208. procedure RIRegisterTRADIOBUTTON(Cl: TIFPSRuntimeClassImporter);
  209. begin
  210.   Cl.Add(TRADIOBUTTON);
  211. end;
  212.  
  213. procedure TCUSTOMLISTBOXCANVAS_R(Self: TCUSTOMLISTBOX; var T: TCANVAS); begin T := Self.CANVAS; end;
  214. procedure TCUSTOMLISTBOXITEMS_R(Self: TCUSTOMLISTBOX; var T: TSTRINGS); begin T := Self.ITEMS; end;
  215. procedure TCUSTOMLISTBOXITEMS_W(Self: TCUSTOMLISTBOX; T: TSTRINGS); begin Self.ITEMS := T; end;
  216. procedure TCUSTOMLISTBOXITEMINDEX_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.ITEMINDEX; end;
  217. procedure TCUSTOMLISTBOXITEMINDEX_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.ITEMINDEX := T; end;
  218. procedure TCUSTOMLISTBOXSELCOUNT_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.SELCOUNT; end;
  219. procedure TCUSTOMLISTBOXSELECTED_R(Self: TCUSTOMLISTBOX; var T: BOOLEAN; t1: INTEGER); begin T := Self.SELECTED[t1]; end;
  220. procedure TCUSTOMLISTBOXSELECTED_W(Self: TCUSTOMLISTBOX; T: BOOLEAN; t1: INTEGER); begin Self.SELECTED[t1] := T; end;
  221. procedure TCUSTOMLISTBOXTOPINDEX_R(Self: TCUSTOMLISTBOX; var T: INTEGER); begin T := Self.TOPINDEX; end;
  222. procedure TCUSTOMLISTBOXTOPINDEX_W(Self: TCUSTOMLISTBOX; T: INTEGER); begin Self.TOPINDEX := T; end;
  223.  
  224.  
  225. procedure RIRegisterTCUSTOMLISTBOX(Cl: TIFPSRuntimeClassImporter);
  226. begin
  227.   with Cl.Add(TCUSTOMLISTBOX) do
  228.   begin
  229.     RegisterPropertyHelper(@TCUSTOMLISTBOXITEMS_R, @TCUSTOMLISTBOXITEMS_W, 'ITEMS');
  230.     RegisterPropertyHelper(@TCUSTOMLISTBOXITEMINDEX_R, @TCUSTOMLISTBOXITEMINDEX_W, 'ITEMINDEX');
  231.     RegisterPropertyHelper(@TCUSTOMLISTBOXSELCOUNT_R, nil, 'SELCOUNT');
  232.     RegisterPropertyHelper(@TCUSTOMLISTBOXSELECTED_R, @TCUSTOMLISTBOXSELECTED_W, 'SELECTED');
  233.  
  234.     {$IFNDEF MINIVCL}
  235.     RegisterMethod(@TCUSTOMLISTBOX.CLEAR, 'CLEAR');
  236.     RegisterMethod(@TCUSTOMLISTBOX.ITEMATPOS, 'ITEMATPOS');
  237.     RegisterMethod(@TCUSTOMLISTBOX.ITEMRECT, 'ITEMRECT');
  238.     RegisterPropertyHelper(@TCUSTOMLISTBOXCANVAS_R, nil, 'CANVAS');
  239.     RegisterPropertyHelper(@TCUSTOMLISTBOXTOPINDEX_R, @TCUSTOMLISTBOXTOPINDEX_W, 'TOPINDEX');
  240.     {$ENDIF}
  241.   end;
  242. end;
  243.  
  244.  
  245. procedure RIRegisterTLISTBOX(Cl: TIFPSRuntimeClassImporter);
  246. begin
  247.   Cl.Add(TLISTBOX);
  248. end;
  249.  
  250.  
  251. procedure RIRegisterTSCROLLBAR(Cl: TIFPSRuntimeClassImporter);
  252. begin
  253.   with Cl.Add(TSCROLLBAR) do
  254.   begin
  255.     RegisterMethod(@TSCROLLBAR.SETPARAMS, 'SETPARAMS');
  256.   end;
  257. end;
  258.  
  259.  
  260. procedure RIRegister_stdctrls(cl: TIFPSRuntimeClassImporter);
  261. begin
  262.   {$IFNDEF MINIVCL}
  263.   RIRegisterTCUSTOMGROUPBOX(Cl);
  264.   RIRegisterTGROUPBOX(Cl);
  265.   {$ENDIF}
  266.   RIRegisterTCUSTOMLABEL(Cl);
  267.   RIRegisterTLABEL(Cl);
  268.   RIRegisterTCUSTOMEDIT(Cl);
  269.   RIRegisterTEDIT(Cl);
  270.   RIRegisterTCUSTOMMEMO(Cl);
  271.   RIRegisterTMEMO(Cl);
  272.   RIRegisterTCUSTOMCOMBOBOX(Cl);
  273.   RIRegisterTCOMBOBOX(Cl);
  274.   RIRegisterTBUTTONCONTROL(Cl);
  275.   RIRegisterTBUTTON(Cl);
  276.   RIRegisterTCUSTOMCHECKBOX(Cl);
  277.   RIRegisterTCHECKBOX(Cl);
  278.   RIRegisterTRADIOBUTTON(Cl);
  279.   RIRegisterTCUSTOMLISTBOX(Cl);
  280.   RIRegisterTLISTBOX(Cl);
  281.   {$IFNDEF MINIVCL}
  282.   RIRegisterTSCROLLBAR(Cl);
  283.   {$ENDIF}
  284. end;
  285.  
  286. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  287.  
  288. end.
  289.  
  290.  
  291.