home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 November / Chip_2002-11_cd1.bin / zkuste / delphi / kompon / d456 / CAJSCRPT.ZIP / ifps3 / ifpiir_buttons.pas < prev    next >
Pascal/Delphi Source File  |  2002-07-12  |  937b  |  44 lines
  1. unit ifpiir_buttons;
  2. {$I ifps3_def.inc}
  3. interface
  4. uses
  5.   ifps3, ifps3common, ifps3utl, ifpiclassruntime;
  6. {
  7.   Will register files from:
  8.     Buttons
  9.  
  10.   Requires
  11.       STD, classes, controls and graphics and StdCtrls
  12. }
  13.  
  14. procedure RIRegisterTSPEEDBUTTON(Cl: TIFPSRuntimeClassImporter);
  15. procedure RIRegisterTBITBTN(Cl: TIFPSRuntimeClassImporter);
  16.  
  17. procedure RIRegister_Buttons(Cl: TIFPSRuntimeClassImporter);
  18.  
  19. implementation
  20. uses
  21.   Classes{$IFDEF CLX}, QControls, QButtons{$ELSE}, Controls, Buttons{$ENDIF};
  22.  
  23. procedure RIRegisterTSPEEDBUTTON(Cl: TIFPSRuntimeClassImporter);
  24. begin
  25.   Cl.Add(TSPEEDBUTTON);
  26. end;
  27.  
  28.  
  29. procedure RIRegisterTBITBTN(Cl: TIFPSRuntimeClassImporter);
  30. begin
  31.   Cl.Add(TBITBTN);
  32. end;
  33.  
  34. procedure RIRegister_Buttons(Cl: TIFPSRuntimeClassImporter);
  35. begin
  36.   RIRegisterTSPEEDBUTTON(cl);
  37.   RIRegisterTBITBTN(cl);
  38. end;
  39.  
  40. // MiniVCL changes by Martijn Laan (mlaan at wintax _dot_ nl)
  41.  
  42.  
  43. end.
  44.