home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpii_buttons.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  3KB  |  96 lines
  1. unit ifpii_buttons;
  2. {$I ifps3_def.inc}
  3. interface
  4. uses
  5.   ifpscomp, ifps3common, ifps3utl, ifpiclass;
  6.  
  7. {
  8.   Will register files from:
  9.     Buttons
  10.  
  11.   Requires
  12.       STD, classes, controls and graphics and StdCtrls
  13. }
  14. procedure SIRegister_Buttons_TypesAndConsts(Cl: TIFPSCompileTimeClassesImporter);
  15.  
  16. procedure SIRegisterTSPEEDBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  17. procedure SIRegisterTBITBTN(Cl: TIFPSCompileTimeClassesImporter);
  18.  
  19. procedure SIRegister_Buttons(Cl: TIFPSCompileTimeClassesImporter);
  20.  
  21. implementation
  22. uses
  23.   {$IFDEF CLX}
  24.   QButtons
  25.   {$ELSE}
  26.   Buttons
  27.   {$ENDIF};
  28.  
  29. procedure SIRegisterTSPEEDBUTTON(Cl: TIFPSCompileTimeClassesImporter);
  30. begin
  31.   with Cl.Add(cl.FindClass('TGRAPHICCONTROL'), TSPEEDBUTTON) do
  32.   begin
  33.     RegisterProperty('ALLOWALLUP', 'BOOLEAN', iptrw);
  34.     RegisterProperty('GROUPINDEX', 'INTEGER', iptrw);
  35.     RegisterProperty('DOWN', 'BOOLEAN', iptrw);
  36.     RegisterProperty('CAPTION', 'String', iptrw);
  37.     RegisterProperty('FONT', 'TFont', iptrw);
  38.     RegisterProperty('GLYPH', 'TBITMAP', iptrw);
  39.     RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
  40.     RegisterProperty('MARGIN', 'INTEGER', iptrw);
  41.     RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
  42.     RegisterProperty('PARENTFONT', 'Boolean', iptrw);
  43.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  44.     RegisterProperty('SPACING', 'INTEGER', iptrw);
  45.     RegisterProperty('ONCLICK', 'TNotifyEvent', iptrw);
  46.     RegisterProperty('ONDBLCLICK', 'TNotifyEvent', iptrw);
  47.     RegisterProperty('ONMOUSEDOWN', 'TMouseEvent', iptrw);
  48.     RegisterProperty('ONMOUSEMOVE', 'TMouseMoveEvent', iptrw);
  49.     RegisterProperty('ONMOUSEUP', 'TMouseEvent', iptrw);
  50.   end;
  51. end;
  52.  
  53. procedure SIRegisterTBITBTN(Cl: TIFPSCompileTimeClassesImporter);
  54. begin
  55.   with Cl.Add(cl.FindClass('TBUTTON'), TBITBTN) do
  56.   begin
  57.     RegisterProperty('GLYPH', 'TBITMAP', iptrw);
  58.     RegisterProperty('KIND', 'TBITBTNKIND', iptrw);
  59.     RegisterProperty('LAYOUT', 'TBUTTONLAYOUT', iptrw);
  60.     RegisterProperty('MARGIN', 'INTEGER', iptrw);
  61.     RegisterProperty('NUMGLYPHS', 'BYTE', iptrw);
  62.     RegisterProperty('PARENTSHOWHINT', 'Boolean', iptrw);
  63.     RegisterProperty('STYLE', 'TBUTTONSTYLE', iptrw);
  64.     RegisterProperty('SPACING', 'INTEGER', iptrw);
  65.     RegisterProperty('ONENTER', 'TNotifyEvent', iptrw);
  66.     RegisterProperty('ONEXIT', 'TNotifyEvent', iptrw);
  67.   end;
  68. end;
  69.  
  70.  
  71.  
  72. procedure SIRegister_Buttons_TypesAndConsts(Cl: TIFPSCompileTimeClassesImporter);
  73. begin
  74.   Cl.Se.AddTypeS('TButtonLayout', '(blGlyphLeft, blGlyphRight, blGlyphTop, blGlyphBottom)');
  75.   Cl.Se.AddTypeS('TButtonState', '(bsUp, bsDisabled, bsDown, bsExclusive)');
  76.   Cl.Se.AddTypeS('TButtonStyle', '(bsAutoDetect, bsWin31, bsNew)');
  77.   Cl.Se.AddTypeS('TBitBtnKind', '(bkCustom, bkOK, bkCancel, bkHelp, bkYes, bkNo, bkClose, bkAbort, bkRetry, bkIgnore, bkAll)');
  78.  
  79. end;
  80.  
  81. procedure SIRegister_Buttons(Cl: TIFPSCompileTimeClassesImporter);
  82. begin
  83.   SIRegister_Buttons_TypesAndConsts(cl);
  84.   SIRegisterTSPEEDBUTTON(cl);
  85.   SIRegisterTBITBTN(cl);
  86. end;
  87.  
  88. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  89.  
  90.  
  91. end.
  92.  
  93.  
  94.  
  95.  
  96.