home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpii_stdctrls.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-07-12  |  24.8 KB  |  635 lines
  1. unit ifpii_stdctrls;
  2.  
  3. {$I ifps3_def.inc}
  4. interface
  5. uses
  6.   ifpscomp, ifps3common, ifps3utl, ifpiclass;
  7. {
  8.    Will register files from:
  9.      stdctrls
  10.  
  11. Requires:
  12.   STD, classes, controls and graphics
  13. }
  14.  
  15. procedure SIRegister_StdCtrls_TypesAndConsts(cl: TIFPSCompileTimeClassesImporter);
  16.  
  17.  
  18.  
  19. procedure SIRegisterTCUSTOMGROUPBOX(Cl: TIFPSCompileTimeClassesImporter);
  20. procedure SIRegisterTGROUPBOX(Cl: TIFPSCompileTimeClassesImporter);
  21. procedure SIRegisterTCUSTOMLABEL(Cl: TIFPSCompileTimeClassesImporter);
  22. procedure SIRegisterTLABEL(Cl: TIFPSCompileTimeClassesImporter);
  23. procedure SIRegisterTCUSTOMEDIT(Cl: TIFPSCompileTimeClassesImporter);
  24. procedure SIRegisterTEDIT(Cl: TIFPSCompileTimeClassesImporter);
  25. procedure SIRegisterTCUSTOMMEMO(Cl: TIFPSCompileTimeClassesImporter);
  26. procedure SIRegisterTMEMO(Cl: TIFPSCompileTimeClassesImporter);
  27. procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TIFPSCompileTimeClassesImporter);
  28. procedure SIRegisterTCOMBOBOX(Cl: TIFPSCompileTimeClassesImporter);
  29. procedure SIRegisterTBUTTONCONTROL(Cl: TIFPSCompileTimeClassesImporter);
  30. procedure SIRegisterTBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  31. procedure SIRegisterTCUSTOMCHECKBOX(Cl: TIFPSCompileTimeClassesImporter);
  32. procedure SIRegisterTCHECKBOX(Cl: TIFPSCompileTimeClassesImporter);
  33. procedure SIRegisterTRADIOBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  34. procedure SIRegisterTCUSTOMLISTBOX(Cl: TIFPSCompileTimeClassesImporter);
  35. procedure SIRegisterTLISTBOX(Cl: TIFPSCompileTimeClassesImporter);
  36. procedure SIRegisterTSCROLLBAR(Cl: TIFPSCompileTimeClassesImporter);
  37.  
  38. procedure SIRegister_StdCtrls(cl: TIFPSCompileTimeClassesImporter);
  39.  
  40.  
  41. implementation
  42. uses
  43.   sysutils, classes{$IFDEF CLX}, QStdCtrls{$ELSE}, StdCtrls{$ENDIF};
  44.  
  45. procedure SIRegisterTCUSTOMGROUPBOX(Cl: TIFPSCompileTimeClassesImporter);
  46. begin
  47.   Cl.Add(cl.FindClass('TCUSTOMCONTROL'), TCustomGroupBox);
  48. end;
  49.  
  50.  
  51. procedure SIRegisterTGROUPBOX(Cl: TIFPSCompileTimeClassesImporter);
  52. begin
  53.   with Cl.Add(cl.FindClass('TCUSTOMGROUPBOX'), TGROUPBOX) do
  54.   begin
  55.     RegisterProperty('CAPTION', 'String', iptrw);
  56.     RegisterProperty('COLOR', 'Longint', iptrw);
  57.     RegisterProperty('FONT', 'TFont', iptrw);
  58.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  59.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  60.  
  61.     {$IFNDEF MINIVCL}
  62.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  63.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  64.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  65.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  66.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  67.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  68.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  69.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  70.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  71.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  72.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  73.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  74.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  75.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  76.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  77.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  78.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  79.     {$ENDIF}
  80.   end;
  81. end;
  82.  
  83.  
  84.  
  85.  
  86.  
  87. procedure SIRegisterTCUSTOMLABEL(Cl: TIFPSCompileTimeClassesImporter);
  88. begin
  89.   with Cl.Add(cl.FindClass('TGRAPHICCONTROL'), TCUSTOMLABEL) do
  90.   begin
  91.     {$IFNDEF MINIVCL}
  92. {$IFNDEF CLX}
  93.     RegisterProperty('CANVAS', 'TCANVAS', iptrw);
  94. {$ENDIF}
  95.     {$ENDIF}
  96.   end;
  97. end;
  98.  
  99.  
  100. procedure SIRegisterTLABEL(Cl: TIFPSCompileTimeClassesImporter);
  101. begin
  102.   with Cl.Add(cl.FindClass('TCUSTOMLABEL'), TLABEL) do
  103.   begin
  104.     RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
  105.     RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
  106.     RegisterProperty('CAPTION', 'String', iptrw);
  107.     RegisterProperty('COLOR', 'Longint', iptrw);
  108.     RegisterProperty('FOCUSCONTROL', 'TWinControl', iptrw);
  109.     RegisterProperty('FONT', 'TFont', iptrw);
  110.     RegisterProperty('WORDWRAP', 'Boolean', iptrw);
  111.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  112.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  113.  
  114.     {$IFNDEF MINIVCL}
  115.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  116.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  117.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  118.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  119.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  120.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  121.     RegisterProperty('SHOWACCELCHAR', 'Boolean', iptrw);
  122.     RegisterProperty('TRANSPARENT', 'Boolean', iptrw);
  123.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  124.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  125.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  126.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  127.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  128.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  129.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  130.     {$ENDIF}
  131.   end;
  132. end;
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140. procedure SIRegisterTCUSTOMEDIT(Cl: TIFPSCompileTimeClassesImporter);
  141. begin
  142.   with Cl.Add(cl.FindClass('TWINCONTROL'), TCUSTOMEDIT) do
  143.   begin
  144.     RegisterMethod('procedure CLEAR');
  145.     RegisterMethod('procedure CLEARSELECTION');
  146.     RegisterMethod('procedure SELECTALL');
  147.     RegisterProperty('MODIFIED', 'BOOLEAN', iptrw);
  148.     RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
  149.     RegisterProperty('SELSTART', 'INTEGER', iptrw);
  150.     RegisterProperty('SELTEXT', 'STRING', iptrw);
  151.     RegisterProperty('TEXT', 'string', iptrw);
  152.  
  153.     {$IFNDEF MINIVCL}
  154.     RegisterMethod('procedure COPYTOCLIPBOARD');
  155.     RegisterMethod('procedure CUTTOCLIPBOARD');
  156.     RegisterMethod('procedure PASTEFROMCLIPBOARD');
  157.     RegisterMethod('function GETSELTEXTBUF(BUFFER:PCHAR;BUFSIZE:INTEGER):INTEGER');
  158.     RegisterMethod('procedure SETSELTEXTBUF(BUFFER:PCHAR)');
  159.     {$ENDIF}
  160.   end;
  161. end;
  162.  
  163.  
  164.  
  165.  
  166. procedure SIRegisterTEDIT(Cl: TIFPSCompileTimeClassesImporter);
  167. begin
  168.   with Cl.Add(cl.FindClass('TCUSTOMEDIT'), TEDIT) do
  169.   begin
  170.     RegisterProperty('AUTOSELECT', 'Boolean', iptrw);
  171.     RegisterProperty('AUTOSIZE', 'Boolean', iptrw);
  172.     RegisterProperty('BORDERSTYLE', 'BorderStyle', iptrw);
  173.     RegisterProperty('COLOR', 'Longint', iptrw);
  174.     RegisterProperty('FONT', 'TFont', iptrw);
  175.     RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
  176.     RegisterProperty('MAXLENGTH', 'Integer', iptrw);
  177.     RegisterProperty('PASSWORDCHAR', 'Char', iptrw);
  178.     RegisterProperty('READONLY', 'Boolean', iptrw);
  179.     RegisterProperty('TEXT', 'string', iptrw);
  180.     RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
  181.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  182.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  183.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  184.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  185.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  186.  
  187.     {$IFNDEF MINIVCL}
  188.     RegisterProperty('CHARCASE', 'TEditCharCase', iptrw);
  189.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  190.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  191.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  192.     RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
  193.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  194.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  195.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  196.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  197.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  198.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  199.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  200.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  201.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  202.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  203.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  204.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  205.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  206.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  207.     {$ENDIF}
  208.   end;
  209. end;
  210.  
  211.  
  212.  
  213.  
  214. procedure SIRegisterTCUSTOMMEMO(Cl: TIFPSCompileTimeClassesImporter);
  215. begin
  216.   with Cl.Add(cl.FindClass('TCUSTOMEDIT'), TCUSTOMMEMO) do
  217.   begin
  218.     {$IFNDEF CLX}
  219.     RegisterProperty('LINES', 'TSTRINGS', iptrw);
  220.     {$ENDIF}
  221.   end;
  222. end;
  223.  
  224.  
  225. procedure SIRegisterTMEMO(Cl: TIFPSCompileTimeClassesImporter);
  226. begin
  227.   with Cl.Add(cl.FindClass('TCUSTOMMEMO'), TMEMO) do
  228.   begin
  229.     {$IFDEF CLX}
  230.     RegisterProperty('LINES', 'TSTRINGS', iptrw);
  231.     {$ENDIF}
  232.     RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
  233.     RegisterProperty('BORDERSTYLE', 'BorderStyle', iptrw);
  234.     RegisterProperty('COLOR', 'Longint', iptrw);
  235.     RegisterProperty('FONT', 'TFont', iptrw);
  236.     RegisterProperty('HIDESELECTION', 'Boolean', iptrw);
  237.     RegisterProperty('MAXLENGTH', 'Integer', iptrw);
  238.     RegisterProperty('READONLY', 'Boolean', iptrw);
  239.     RegisterProperty('SCROLLBARS', 'TScrollStyle', iptrw);
  240.     RegisterProperty('WANTRETURNS', 'Boolean', iptrw);
  241.     RegisterProperty('WANTTABS', 'Boolean', iptrw);
  242.     RegisterProperty('WORDWRAP', 'Boolean', iptrw);
  243.     RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
  244.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  245.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  246.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  247.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  248.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  249.  
  250.     {$IFNDEF MINIVCL}
  251.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  252.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  253.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  254.     RegisterProperty('OEMCONVERT', 'Boolean', iptrw);
  255.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  256.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  257.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  258.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  259.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  260.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  261.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  262.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  263.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  264.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  265.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  266.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  267.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  268.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  269.     {$ENDIF}
  270.   end;
  271. end;
  272.  
  273.  
  274.  
  275.  
  276.  
  277. procedure SIRegisterTCUSTOMCOMBOBOX(Cl: TIFPSCompileTimeClassesImporter);
  278. begin
  279.   with Cl.Add(cl.FindClass('TWINCONTROL'), TCUSTOMCOMBOBOX) do
  280.   begin
  281.     RegisterProperty('DROPPEDDOWN', 'BOOLEAN', iptrw);
  282.     RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
  283.     RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
  284.  
  285.     {$IFNDEF MINIVCL}
  286.     RegisterMethod('procedure CLEAR');
  287.     RegisterMethod('procedure SELECTALL');
  288.     RegisterProperty('CANVAS', 'TCANVAS', iptr);
  289.     RegisterProperty('SELLENGTH', 'INTEGER', iptrw);
  290.     RegisterProperty('SELSTART', 'INTEGER', iptrw);
  291.     RegisterProperty('SELTEXT', 'STRING', iptrw);
  292.     {$ENDIF}
  293.   end;
  294. end;
  295.  
  296.  
  297. procedure SIRegisterTCOMBOBOX(Cl: TIFPSCompileTimeClassesImporter);
  298. begin
  299.   with Cl.Add(cl.FindClass('TCUSTOMCOMBOBOX'), TCOMBOBOX) do
  300.   begin
  301.     RegisterProperty('STYLE', 'TComboBoxStyle', iptrw);
  302.     RegisterProperty('COLOR', 'Longint', iptrw);
  303.     RegisterProperty('DROPDOWNCOUNT', 'Integer', iptrw);
  304.     RegisterProperty('FONT', 'TFont', iptrw);
  305.     RegisterProperty('MAXLENGTH', 'Integer', iptrw);
  306.     RegisterProperty('SORTED', 'Boolean', iptrw);
  307.     RegisterProperty('TEXT', 'string', iptrw);
  308.     RegisterProperty('ONCHANGE', 'TNotifyEvent', iptrw);
  309.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  310.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  311.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  312.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  313.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  314.  
  315.     {$IFNDEF MINIVCL}
  316.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  317.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  318.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  319.     RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
  320.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  321.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  322.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  323.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  324.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  325.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  326.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  327.     RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
  328.     RegisterProperty('ONDROPDOWN', 'TNotifyEvent', iptrw);
  329.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  330.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  331.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  332.     RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
  333.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  334.     {$ENDIF}
  335.   end;
  336. end;
  337.  
  338.  
  339.  
  340. procedure SIRegisterTBUTTONCONTROL(Cl: TIFPSCompileTimeClassesImporter);
  341. begin
  342.   with Cl.Add(cl.FindClass('TWINCONTROL'), TBUTTONCONTROL) do
  343.   begin
  344.   end;
  345. end;
  346.  
  347.  
  348.  
  349. procedure SIRegisterTBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  350. begin
  351.   with Cl.Add(cl.FindClass('TBUTTONCONTROL'), TBUTTON) do
  352.   begin
  353.     RegisterProperty('CANCEL', 'BOOLEAN', iptrw);
  354.     RegisterProperty('CAPTION', 'String', iptrw);
  355.     RegisterProperty('DEFAULT', 'BOOLEAN', iptrw);
  356.     RegisterProperty('FONT', 'TFont', iptrw);
  357.     RegisterProperty('MODALRESULT', 'LONGINT', iptrw);
  358.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  359.  
  360.     {$IFNDEF MINIVCL}
  361.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  362.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  363.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  364.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  365.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  366.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  367.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  368.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  369.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  370.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  371.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  372.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  373.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  374.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  375.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  376.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  377.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  378.     {$ENDIF}
  379.   end;
  380. end;
  381.  
  382.  
  383.  
  384. procedure SIRegisterTCUSTOMCHECKBOX(Cl: TIFPSCompileTimeClassesImporter);
  385. begin
  386.   with Cl.Add(cl.FindClass('TBUTTONCONTROL'), TCUSTOMCHECKBOX) do
  387.   begin
  388.   end;
  389. end;
  390.  
  391.  
  392.  
  393. procedure SIRegisterTCHECKBOX(Cl: TIFPSCompileTimeClassesImporter);
  394. begin
  395.   with Cl.Add(cl.FindClass('TCUSTOMCHECKBOX'), TCHECKBOX) do
  396.   begin
  397.     RegisterProperty('ALIGNMENT', 'TAlignment', iptrw);
  398.     RegisterProperty('ALLOWGRAYED', 'Boolean', iptrw);
  399.     RegisterProperty('CAPTION', 'String', iptrw);
  400.     RegisterProperty('CHECKED', 'Boolean', iptrw);
  401.     RegisterProperty('COLOR', 'Longint', iptrw);
  402.     RegisterProperty('FONT', 'TFont', iptrw);
  403.     RegisterProperty('STATE', 'TCheckBoxState', iptrw);
  404.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  405.  
  406.     {$IFNDEF MINIVCL}
  407.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  408.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  409.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  410.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  411.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  412.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  413.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  414.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  415.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  416.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  417.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  418.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  419.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  420.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  421.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  422.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  423.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  424.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  425.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  426.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  427.     {$ENDIF}
  428.   end;
  429. end;
  430.  
  431.  
  432.  
  433.  
  434.  
  435. procedure SIRegisterTRADIOBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  436. begin
  437.   with Cl.Add(cl.FindClass('TBUTTONCONTROL'), TRADIOBUTTON) do
  438.   begin
  439.     RegisterProperty('ALIGNMENT', 'TALIGNMENT', iptrw);
  440.     RegisterProperty('CAPTION', 'String', iptrw);
  441.     RegisterProperty('CHECKED', 'BOOLEAN', iptrw);
  442.     RegisterProperty('COLOR', 'Longint', iptrw);
  443.     RegisterProperty('FONT', 'TFont', iptrw);
  444.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  445.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  446.  
  447.     {$IFNDEF MINIVCL}
  448.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  449.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  450.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  451.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  452.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  453.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  454.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  455.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  456.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  457.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  458.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  459.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  460.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  461.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  462.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  463.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  464.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  465.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  466.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  467.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  468.     {$ENDIF}
  469.   end;
  470. end;
  471.  
  472.  
  473.  
  474. procedure SIRegisterTCUSTOMLISTBOX(Cl: TIFPSCompileTimeClassesImporter);
  475. begin
  476.   with Cl.Add(cl.FindClass('TWINCONTROL'), TCUSTOMLISTBOX) do
  477.   begin
  478.     RegisterProperty('ITEMS', 'TSTRINGS', iptrw);
  479.     RegisterProperty('ITEMINDEX', 'INTEGER', iptrw);
  480.     RegisterProperty('SELCOUNT', 'INTEGER', iptr);
  481.     RegisterProperty('SELECTED', 'BOOLEAN INTEGER', iptrw);
  482.  
  483.     {$IFNDEF MINIVCL}
  484.     RegisterMethod('procedure CLEAR');
  485.     RegisterMethod('function ITEMATPOS(POS:TPOINT;EXISTING:BOOLEAN):INTEGER');
  486.     RegisterMethod('function ITEMRECT(INDEX:INTEGER):TRECT');
  487.     RegisterProperty('CANVAS', 'TCANVAS', iptr);
  488.     RegisterProperty('TOPINDEX', 'INTEGER', iptrw);
  489.     {$ENDIF}
  490.   end;
  491. end;
  492.  
  493.  
  494.  
  495. procedure SIRegisterTLISTBOX(Cl: TIFPSCompileTimeClassesImporter);
  496. begin
  497.   with Cl.Add(cl.FindClass('TCUSTOMLISTBOX'), TLISTBOX) do
  498.   begin
  499.     RegisterProperty('BORDERSTYLE', 'TBorderStyle', iptrw);
  500.     RegisterProperty('COLOR', 'Longint', iptrw);
  501.     RegisterProperty('FONT', 'TFont', iptrw);
  502.     RegisterProperty('MULTISELECT', 'Boolean', iptrw);
  503.     RegisterProperty('SORTED', 'Boolean', iptrw);
  504.     RegisterProperty('STYLE', 'TListBoxStyle', iptrw);
  505.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  506.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  507.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  508.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  509.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  510.  
  511.     {$IFNDEF MINIVCL}
  512.     RegisterProperty('COLUMNS', 'Integer', iptrw);
  513.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  514.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  515.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  516.     RegisterProperty('EXTENDEDSELECT', 'Boolean', iptrw);
  517.     RegisterProperty('INTEGRALHEIGHT', 'Boolean', iptrw);
  518.     RegisterProperty('ITEMHEIGHT', 'Integer', iptrw);
  519.     RegisterProperty('PARENTCOLOR', 'Boolean', iptrw);
  520.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  521.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  522.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  523.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  524.     RegisterProperty('TABWIDTH', 'Integer', iptrw);
  525.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  526.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  527.     RegisterProperty('ONDRAWITEM', 'TDrawItemEvent', iptrw);
  528.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  529.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  530.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  531.     RegisterProperty('ONMEASUREITEM', 'TMeasureItemEvent', iptrw);
  532.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  533.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  534.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  535.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  536.     {$ENDIF}
  537.   end;
  538. end;
  539.  
  540.  
  541.  
  542.  
  543.  
  544.  
  545. procedure SIRegisterTSCROLLBAR(Cl: TIFPSCompileTimeClassesImporter);
  546. begin
  547.   with Cl.Add(cl.FindClass('TWINCONTROL'), TSCROLLBAR) do
  548.   begin
  549.     RegisterProperty('KIND', 'TSCROLLBARKIND', iptrw);
  550.     RegisterProperty('MAX', 'INTEGER', iptrw);
  551.     RegisterProperty('MIN', 'INTEGER', iptrw);
  552.     RegisterProperty('POSITION', 'INTEGER', iptrw);
  553.     RegisterProperty('ONCHANGE', 'TNOTIFYEVENT', iptrw);
  554.  
  555.     {$IFNDEF MINIVCL}
  556.     RegisterMethod('procedure SETPARAMS(APOSITION,AMIN,AMAX:INTEGER)');
  557.     RegisterProperty('CTL3D', 'Boolean', iptrw);
  558.     RegisterProperty('DRAGCURSOR', 'Longint', iptrw);
  559.     RegisterProperty('DRAGMODE', 'TDragMode', iptrw);
  560.     RegisterProperty('LARGECHANGE', 'TSCROLLBARINC', iptrw);
  561.     RegisterProperty('PARENTCTL3D', 'Boolean', iptrw);
  562.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  563.     RegisterProperty('POPUPMENU', 'TPopupMenu', iptrw);
  564.     RegisterProperty('SMALLCHANGE', 'TSCROLLBARINC', iptrw);
  565.     RegisterProperty('ONDRAGDROP', 'TDragDropEvent', iptrw);
  566.     RegisterProperty('ONDRAGOVER', 'TDragOverEvent', iptrw);
  567.     RegisterProperty('ONENDDRAG', 'TEndDragEvent', iptrw);
  568.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  569.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  570.     RegisterProperty('ONKEYDOWN', 'TKeyEvent', iptrw);
  571.     RegisterProperty('ONKEYPRESS', 'TKeyPressEvent', iptrw);
  572.     RegisterProperty('ONKEYUP', 'TKeyEvent', iptrw);
  573.     RegisterProperty('ONSCROLL', 'TSCROLLEVENT', iptrw);
  574.     RegisterProperty('ONSTARTDRAG', 'TStartDragEvent', iptrw);
  575.     {$ENDIF}
  576.   end;
  577. end;
  578.  
  579.  
  580.  
  581. procedure SIRegister_StdCtrls_TypesAndConsts(cl: TIFPSCompileTimeClassesImporter);
  582. begin
  583.   cl.se.AddTypeS('TEditCharCase', '(ecNormal, ecUpperCase, ecLowerCase)');
  584.   cl.se.AddTypeS('TScrollStyle', '(ssNone, ssHorizontal, ssVertical, ssBoth)');
  585.   cl.se.AddTypeS('TComboBoxStyle', '(csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable)');
  586.   cl.se.AddTypeS('TDrawItemEvent', 'procedure(Control: TWinControl; Index: Integer; Rect: TRect; State: Byte)');
  587.   cl.se.AddTypeS('TMeasureItemEvent', 'procedure(Control: TWinControl; Index: Integer; var Height: Integer)');
  588.   cl.se.AddTypeS('TCheckBoxState', '(cbUnchecked, cbChecked, cbGrayed)');
  589.   cl.se.AddTypeS('TListBoxStyle', '(lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable)');
  590.   cl.se.AddTypeS('TScrollCode', '(scLineUp, scLineDown, scPageUp, scPageDown, scPosition, scTrack, scTop, scBottom, scEndScroll)');
  591.   cl.se.AddTypeS('TScrollEvent', 'procedure(Sender: TObject; ScrollCode: TScrollCode;var ScrollPos: Integer)');
  592.   Cl.Se.AddConstantN('odSelected', 'Byte')^.Value.Value := #1;
  593.   Cl.Se.AddConstantN('odGrayed', 'Byte')^.Value.Value := #2;
  594.   Cl.Se.AddConstantN('odChecked', 'Byte')^.Value.Value := #4;
  595.   Cl.Se.AddConstantN('odFocused', 'Byte')^.Value.Value := #8;
  596. end;
  597.  
  598.  
  599. procedure SIRegister_stdctrls(cl: TIFPSCompileTimeClassesImporter);
  600. begin
  601.   SIRegister_StdCtrls_TypesAndConsts(cl);
  602.   {$IFNDEF MINIVCL}
  603.   SIRegisterTCUSTOMGROUPBOX(Cl);
  604.   SIRegisterTGROUPBOX(Cl);
  605.   {$ENDIF}
  606.   SIRegisterTCUSTOMLABEL(Cl);
  607.   SIRegisterTLABEL(Cl);
  608.   SIRegisterTCUSTOMEDIT(Cl);
  609.   SIRegisterTEDIT(Cl);
  610.   SIRegisterTCUSTOMMEMO(Cl);
  611.   SIRegisterTMEMO(Cl);
  612.   SIRegisterTCUSTOMCOMBOBOX(Cl);
  613.   SIRegisterTCOMBOBOX(Cl);
  614.   SIRegisterTBUTTONCONTROL(Cl);
  615.   SIRegisterTBUTTON(Cl);
  616.   SIRegisterTCUSTOMCHECKBOX(Cl);
  617.   SIRegisterTCHECKBOX(Cl);
  618.   SIRegisterTRADIOBUTTON(Cl);
  619.   SIRegisterTCUSTOMLISTBOX(Cl);
  620.   SIRegisterTLISTBOX(Cl);
  621.   {$IFNDEF MINIVCL}
  622.   SIRegisterTSCROLLBAR(Cl);
  623.   {$ENDIF}
  624. end;
  625.  
  626. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  627.  
  628.  
  629. end.
  630.  
  631.  
  632.  
  633.  
  634.  
  635.