home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_forms.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  13KB  |  229 lines
  1. unit ifpiir_forms;
  2.  
  3. {$I ifps3_def.inc}
  4. interface
  5. uses
  6.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  7.  
  8. procedure RIRegister_Forms(Cl: TIFPSRuntimeClassImporter);
  9.  
  10. implementation
  11. uses
  12.   sysutils, classes, {$IFDEF CLX}QControls, QForms, QGraphics{$ELSE}Controls, Forms, Graphics{$ENDIF};
  13.  
  14. procedure TCONTROLSCROLLBARKIND_R(Self: TCONTROLSCROLLBAR; var T: TSCROLLBARKIND); begin T := Self.KIND; end;
  15. procedure TCONTROLSCROLLBARSCROLLPOS_R(Self: TCONTROLSCROLLBAR; var T: INTEGER); begin t := Self.SCROLLPOS; end;
  16.  
  17. procedure RIRegisterTCONTROLSCROLLBAR(Cl: TIFPSRuntimeClassImporter);
  18. begin
  19.   with Cl.Add(TCONTROLSCROLLBAR) do
  20.   begin
  21.     RegisterPropertyHelper(@TCONTROLSCROLLBARKIND_R, nil, 'KIND');
  22.     RegisterPropertyHelper(@TCONTROLSCROLLBARSCROLLPOS_R, nil, 'SCROLLPOS');
  23.   end;
  24. end;
  25.  
  26. procedure RIRegisterTSCROLLINGWINCONTROL(Cl: TIFPSRuntimeClassImporter);
  27. begin
  28.   with Cl.Add(TSCROLLINGWINCONTROL) do
  29.   begin
  30.     RegisterMethod(@TSCROLLINGWINCONTROL.SCROLLINVIEW, 'SCROLLINVIEW');
  31.   end;
  32. end;
  33.  
  34. procedure RIRegisterTSCROLLBOX(Cl: TIFPSRuntimeClassImporter);
  35. begin
  36.   Cl.Add(TSCROLLBOX);
  37. end;
  38. {$IFNDEF CLX}
  39. procedure TFORMACTIVEOLECONTROL_W(Self: TFORM; T: TWINCONTROL); begin Self.ACTIVEOLECONTROL := T; end;
  40. procedure TFORMACTIVEOLECONTROL_R(Self: TFORM; var T: TWINCONTROL); begin T := Self.ACTIVEOLECONTROL; end;
  41. {$ENDIF}
  42. procedure TFORMDROPTARGET_W(Self: TFORM; T: BOOLEAN); begin Self.DROPTARGET := T; end;
  43. procedure TFORMDROPTARGET_R(Self: TFORM; var T: BOOLEAN); begin T := Self.DROPTARGET; end;
  44. procedure TFORMMODALRESULT_W(Self: TFORM; T: TMODALRESULT); begin Self.MODALRESULT := T; end;
  45. procedure TFORMMODALRESULT_R(Self: TFORM; var T: TMODALRESULT); begin T := Self.MODALRESULT; end;
  46. {$IFNDEF CLX}
  47. procedure TFORMTILEMODE_W(Self: TFORM; T: TTILEMODE); begin Self.TILEMODE := T; end;
  48. procedure TFORMTILEMODE_R(Self: TFORM; var T: TTILEMODE); begin T := Self.TILEMODE; end;
  49. {$ENDIF}
  50.  
  51. procedure TFORMACTIVE_R(Self: TFORM; var T: BOOLEAN); begin T := Self.ACTIVE; end;
  52. procedure TFORMACTIVEMDICHILD_R(Self: TFORM; var T: TFORM); begin T := Self.ACTIVEMDICHILD; end;
  53. procedure TFORMCANVAS_R(Self: TFORM; var T: TCANVAS); begin T := Self.CANVAS; end;
  54. {$IFNDEF CLX}
  55. procedure TFORMCLIENTHANDLE_R(Self: TFORM; var T: Longint); begin T := Self.CLIENTHANDLE; end;
  56. {$ENDIF}
  57. procedure TFORMMDICHILDCOUNT_R(Self: TFORM; var T: INTEGER); begin T := Self.MDICHILDCOUNT; end;
  58. procedure TFORMMDICHILDREN_R(Self: TFORM; var T: TFORM; t1: INTEGER); begin T := Self.MDICHILDREN[T1]; end;
  59. { Innerfuse Pascal Script Class Import Utility (runtime) }
  60.  
  61. procedure RIRegisterTFORM(Cl: TIFPSRuntimeClassImporter);
  62. begin
  63.   with Cl.Add(TFORM) do
  64.   begin
  65.     RegisterVirtualConstructor(@TFORM.CREATENEW, 'CREATENEW');
  66.     RegisterMethod(@TFORM.CLOSE, 'CLOSE');
  67.     RegisterMethod(@TFORM.HIDE, 'HIDE');
  68.     RegisterMethod(@TFORM.SHOW, 'SHOW');
  69.     RegisterMethod(@TFORM.SHOWMODAL, 'SHOWMODAL');
  70.     RegisterMethod(@TFORM.RELEASE, 'RELEASE');
  71.     RegisterPropertyHelper(@TFORMACTIVE_R, nil, 'ACTIVE');
  72.  
  73.     {$IFNDEF MINIVCL}
  74. {$IFNDEF CLX}
  75.     RegisterMethod(@TFORM.ARRANGEICONS, 'ARRANGEICONS');
  76.     RegisterMethod(@TFORM.GETFORMIMAGE, 'GETFORMIMAGE');
  77.     RegisterMethod(@TFORM.PRINT, 'PRINT');
  78.     RegisterMethod(@TFORM.SENDCANCELMODE, 'SENDCANCELMODE');
  79.     RegisterPropertyHelper(@TFORMACTIVEOLECONTROL_R, @TFORMACTIVEOLECONTROL_W, 'ACTIVEOLECONTROL');
  80.     RegisterPropertyHelper(@TFORMCLIENTHANDLE_R, nil, 'CLIENTHANDLE');
  81.     RegisterPropertyHelper(@TFORMTILEMODE_R, @TFORMTILEMODE_W, 'TILEMODE');
  82. {$ENDIF}
  83.     RegisterMethod(@TFORM.CASCADE, 'CASCADE');
  84.     RegisterMethod(@TFORM.CLOSEQUERY, 'CLOSEQUERY');
  85.     RegisterMethod(@TFORM.DEFOCUSCONTROL, 'DEFOCUSCONTROL');
  86.     RegisterMethod(@TFORM.FOCUSCONTROL, 'FOCUSCONTROL');
  87.     RegisterMethod(@TFORM.NEXT, 'NEXT');
  88.     RegisterMethod(@TFORM.PREVIOUS, 'PREVIOUS');
  89.     RegisterMethod(@TFORM.SETFOCUSEDCONTROL, 'SETFOCUSEDCONTROL');
  90.     RegisterMethod(@TFORM.TILE, 'TILE');
  91.     RegisterPropertyHelper(@TFORMACTIVEMDICHILD_R, nil, 'ACTIVEMDICHILD');
  92.     RegisterPropertyHelper(@TFORMCANVAS_R, nil, 'CANVAS');
  93.     RegisterPropertyHelper(@TFORMDROPTARGET_R, @TFORMDROPTARGET_W, 'DROPTARGET');
  94.     RegisterPropertyHelper(@TFORMMODALRESULT_R, @TFORMMODALRESULT_W, 'MODALRESULT');
  95.     RegisterPropertyHelper(@TFORMMDICHILDCOUNT_R, nil, 'MDICHILDCOUNT');
  96.     RegisterPropertyHelper(@TFORMMDICHILDREN_R, nil, 'MDICHILDREN');
  97.     {$ENDIF}
  98.   end;
  99. end;
  100.  
  101. procedure TAPPLICATIONACTIVE_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.ACTIVE; end;
  102. {$IFNDEF CLX}
  103. procedure TAPPLICATIONDIALOGHANDLE_R(Self: TAPPLICATION; var T: Longint); begin T := Self.DIALOGHANDLE; end;
  104. procedure TAPPLICATIONDIALOGHANDLE_W(Self: TAPPLICATION; T: Longint); begin Self.DIALOGHANDLE := T; end;
  105. procedure TAPPLICATIONHANDLE_R(Self: TAPPLICATION; var T: Longint); begin T := Self.HANDLE; end;
  106. procedure TAPPLICATIONHANDLE_W(Self: TAPPLICATION; T: Longint); begin Self.HANDLE := T; end;
  107. procedure TAPPLICATIONUPDATEFORMATSETTINGS_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.UPDATEFORMATSETTINGS; end;
  108. procedure TAPPLICATIONUPDATEFORMATSETTINGS_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.UPDATEFORMATSETTINGS := T; end;
  109. {$ENDIF}
  110. procedure TAPPLICATIONEXENAME_R(Self: TAPPLICATION; var T: STRING); begin T := Self.EXENAME; end;
  111. procedure TAPPLICATIONHELPFILE_R(Self: TAPPLICATION; var T: STRING); begin T := Self.HELPFILE; end;
  112. procedure TAPPLICATIONHELPFILE_W(Self: TAPPLICATION; T: STRING); begin Self.HELPFILE := T; end;
  113. procedure TAPPLICATIONHINT_R(Self: TAPPLICATION; var T: STRING); begin T := Self.HINT; end;
  114. procedure TAPPLICATIONHINT_W(Self: TAPPLICATION; T: STRING); begin Self.HINT := T; end;
  115. procedure TAPPLICATIONHINTCOLOR_R(Self: TAPPLICATION; var T: TCOLOR); begin T := Self.HINTCOLOR; end;
  116. procedure TAPPLICATIONHINTCOLOR_W(Self: TAPPLICATION; T: TCOLOR); begin Self.HINTCOLOR := T; end;
  117. procedure TAPPLICATIONHINTPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTPAUSE; end;
  118. procedure TAPPLICATIONHINTPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTPAUSE := T; end;
  119. procedure TAPPLICATIONHINTSHORTPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTSHORTPAUSE; end;
  120. procedure TAPPLICATIONHINTSHORTPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTSHORTPAUSE := T; end;
  121. procedure TAPPLICATIONHINTHIDEPAUSE_R(Self: TAPPLICATION; var T: INTEGER); begin T := Self.HINTHIDEPAUSE; end;
  122. procedure TAPPLICATIONHINTHIDEPAUSE_W(Self: TAPPLICATION; T: INTEGER); begin Self.HINTHIDEPAUSE := T; end;
  123. procedure TAPPLICATIONMAINFORM_R(Self: TAPPLICATION; var T: {$IFDEF D3PLUS}TCustomForm{$ELSE}TFORM{$ENDIF}); begin T := Self.MAINFORM; end;
  124. procedure TAPPLICATIONSHOWHINT_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.SHOWHINT; end;
  125. procedure TAPPLICATIONSHOWHINT_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.SHOWHINT := T; end;
  126. procedure TAPPLICATIONSHOWMAINFORM_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.SHOWMAINFORM; end;
  127. procedure TAPPLICATIONSHOWMAINFORM_W(Self: TAPPLICATION; T: BOOLEAN); begin Self.SHOWMAINFORM := T; end;
  128. procedure TAPPLICATIONTERMINATED_R(Self: TAPPLICATION; var T: BOOLEAN); begin T := Self.TERMINATED; end;
  129. procedure TAPPLICATIONTITLE_R(Self: TAPPLICATION; var T: STRING); begin T := Self.TITLE; end;
  130. procedure TAPPLICATIONTITLE_W(Self: TAPPLICATION; T: STRING); begin Self.TITLE := T; end;
  131. procedure TAPPLICATIONONACTIVATE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONACTIVATE; end;
  132. procedure TAPPLICATIONONACTIVATE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONACTIVATE := T; end;
  133. procedure TAPPLICATIONONDEACTIVATE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONDEACTIVATE; end;
  134. procedure TAPPLICATIONONDEACTIVATE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONDEACTIVATE := T; end;
  135. procedure TAPPLICATIONONIDLE_R(Self: TAPPLICATION; var T: TIDLEEVENT); begin T := Self.ONIDLE; end;
  136. procedure TAPPLICATIONONIDLE_W(Self: TAPPLICATION; T: TIDLEEVENT); begin Self.ONIDLE := T; end;
  137. procedure TAPPLICATIONONHELP_R(Self: TAPPLICATION; var T: THELPEVENT); begin T := Self.ONHELP; end;
  138. procedure TAPPLICATIONONHELP_W(Self: TAPPLICATION; T: THELPEVENT); begin Self.ONHELP := T; end;
  139. procedure TAPPLICATIONONHINT_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONHINT; end;
  140. procedure TAPPLICATIONONHINT_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONHINT := T; end;
  141. procedure TAPPLICATIONONMINIMIZE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONMINIMIZE; end;
  142. procedure TAPPLICATIONONMINIMIZE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONMINIMIZE := T; end;
  143. procedure TAPPLICATIONONRESTORE_R(Self: TAPPLICATION; var T: TNOTIFYEVENT); begin T := Self.ONRESTORE; end;
  144. procedure TAPPLICATIONONRESTORE_W(Self: TAPPLICATION; T: TNOTIFYEVENT); begin Self.ONRESTORE := T; end;
  145.  
  146. procedure RIRegisterTAPPLICATION(Cl: TIFPSRuntimeClassImporter);
  147. begin
  148.   with Cl.Add(TAPPLICATION) do
  149.   begin
  150.     RegisterMethod(@TAPPLICATION.BRINGTOFRONT, 'BRINGTOFRONT');
  151.     RegisterMethod(@TAPPLICATION.MESSAGEBOX, 'MESSAGEBOX');
  152.     RegisterMethod(@TAPPLICATION.MINIMIZE, 'MINIMIZE');
  153.     RegisterMethod(@TAPPLICATION.PROCESSMESSAGES, 'PROCESSMESSAGES');
  154.     RegisterMethod(@TAPPLICATION.RESTORE, 'RESTORE');
  155.     RegisterMethod(@TAPPLICATION.TERMINATE, 'TERMINATE');
  156.     RegisterPropertyHelper(@TAPPLICATIONACTIVE_R, nil, 'ACTIVE');
  157.     RegisterPropertyHelper(@TAPPLICATIONEXENAME_R, nil, 'EXENAME');
  158.     {$IFNDEF CLX}
  159.     RegisterPropertyHelper(@TAPPLICATIONHANDLE_R, @TAPPLICATIONHANDLE_W, 'HANDLE');
  160.     RegisterPropertyHelper(@TAPPLICATIONUPDATEFORMATSETTINGS_R, @TAPPLICATIONUPDATEFORMATSETTINGS_W, 'UPDATEFORMATSETTINGS');
  161.     {$ENDIF}
  162.     RegisterPropertyHelper(@TAPPLICATIONHINT_R, @TAPPLICATIONHINT_W, 'HINT');
  163.     RegisterPropertyHelper(@TAPPLICATIONMAINFORM_R, nil, 'MAINFORM');
  164.     RegisterPropertyHelper(@TAPPLICATIONSHOWHINT_R, @TAPPLICATIONSHOWHINT_W, 'SHOWHINT');
  165.     RegisterPropertyHelper(@TAPPLICATIONSHOWMAINFORM_R, @TAPPLICATIONSHOWMAINFORM_W, 'SHOWMAINFORM');
  166.     RegisterPropertyHelper(@TAPPLICATIONTERMINATED_R, nil, 'TERMINATED');
  167.     RegisterPropertyHelper(@TAPPLICATIONTITLE_R, @TAPPLICATIONTITLE_W, 'TITLE');
  168.     RegisterPropertyHelper(@TAPPLICATIONONACTIVATE_R, @TAPPLICATIONONACTIVATE_W, 'ONACTIVATE');
  169.     RegisterPropertyHelper(@TAPPLICATIONONDEACTIVATE_R, @TAPPLICATIONONDEACTIVATE_W, 'ONDEACTIVATE');
  170.     RegisterPropertyHelper(@TAPPLICATIONONIDLE_R, @TAPPLICATIONONIDLE_W, 'ONIDLE');
  171.     RegisterPropertyHelper(@TAPPLICATIONONHINT_R, @TAPPLICATIONONHINT_W, 'ONHINT');
  172.     RegisterPropertyHelper(@TAPPLICATIONONMINIMIZE_R, @TAPPLICATIONONMINIMIZE_W, 'ONMINIMIZE');
  173.     RegisterPropertyHelper(@TAPPLICATIONONRESTORE_R, @TAPPLICATIONONRESTORE_W, 'ONRESTORE');
  174.  
  175.     {$IFNDEF MINIVCL}
  176.     RegisterMethod(@TAPPLICATION.CONTROLDESTROYED, 'CONTROLDESTROYED');
  177.     RegisterMethod(@TAPPLICATION.CANCELHINT, 'CANCELHINT');
  178.     {$IFNDEF CLX}
  179.     RegisterPropertyHelper(@TAPPLICATIONDIALOGHANDLE_R, @TAPPLICATIONDIALOGHANDLE_W, 'DIALOGHANDLE');
  180.     RegisterMethod(@TAPPLICATION.CREATEHANDLE, 'CREATEHANDLE');
  181.     RegisterMethod(@TAPPLICATION.HELPCOMMAND, 'HELPCOMMAND');
  182.     RegisterMethod(@TAPPLICATION.HELPCONTEXT, 'HELPCONTEXT');
  183.     RegisterMethod(@TAPPLICATION.HELPJUMP, 'HELPJUMP');
  184.     RegisterMethod(@TAPPLICATION.HOOKMAINWINDOW, 'HOOKMAINWINDOW');
  185.     RegisterMethod(@TAPPLICATION.UNHOOKMAINWINDOW, 'UNHOOKMAINWINDOW');
  186.     {$ENDIF}
  187.     RegisterMethod(@TAPPLICATION.HANDLEEXCEPTION, 'HANDLEEXCEPTION');
  188.     RegisterMethod(@TAPPLICATION.HANDLEMESSAGE, 'HANDLEMESSAGE');
  189.     RegisterMethod(@TAPPLICATION.HIDEHINT, 'HIDEHINT');
  190.     RegisterMethod(@TAPPLICATION.HINTMOUSEMESSAGE, 'HINTMOUSEMESSAGE');
  191.     RegisterMethod(@TAPPLICATION.INITIALIZE, 'INITIALIZE');
  192.     RegisterMethod(@TAPPLICATION.NORMALIZETOPMOSTS, 'NORMALIZETOPMOSTS');
  193.     RegisterMethod(@TAPPLICATION.RESTORETOPMOSTS, 'RESTORETOPMOSTS');
  194.     RegisterMethod(@TAPPLICATION.RUN, 'RUN');
  195.     RegisterMethod(@TAPPLICATION.SHOWEXCEPTION, 'SHOWEXCEPTION');
  196.     RegisterPropertyHelper(@TAPPLICATIONHELPFILE_R, @TAPPLICATIONHELPFILE_W, 'HELPFILE');
  197.     RegisterPropertyHelper(@TAPPLICATIONHINTCOLOR_R, @TAPPLICATIONHINTCOLOR_W, 'HINTCOLOR');
  198.     RegisterPropertyHelper(@TAPPLICATIONHINTPAUSE_R, @TAPPLICATIONHINTPAUSE_W, 'HINTPAUSE');
  199.     RegisterPropertyHelper(@TAPPLICATIONHINTSHORTPAUSE_R, @TAPPLICATIONHINTSHORTPAUSE_W, 'HINTSHORTPAUSE');
  200.     RegisterPropertyHelper(@TAPPLICATIONHINTHIDEPAUSE_R, @TAPPLICATIONHINTHIDEPAUSE_W, 'HINTHIDEPAUSE');
  201.     RegisterPropertyHelper(@TAPPLICATIONONHELP_R, @TAPPLICATIONONHELP_W, 'ONHELP');
  202.     {$ENDIF}
  203.   end;
  204. end;
  205.  
  206. procedure RIRegister_Forms(Cl: TIFPSRuntimeClassImporter);
  207. begin
  208.   {$IFNDEF MINIVCL}
  209.   RIRegisterTCONTROLSCROLLBAR(cl);
  210.   RIRegisterTSCROLLBOX(cl);
  211.   {$ENDIF}
  212.   RIRegisterTScrollingWinControl(cl);
  213.   RIRegisterTForm(Cl);
  214.   {$IFNDEF MINIVCL}
  215.   RIRegisterTApplication(Cl);
  216.   {$ENDIF}
  217. end;
  218.  
  219.  
  220. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  221.  
  222.  
  223. end.
  224.  
  225.  
  226.  
  227.  
  228.  
  229.