classes.pp 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. {
  2. $Id$
  3. This file is part of the Free Component Library (FCL)
  4. Copyright (c) 1999-2002 by the Free Pascal development team
  5. Classes unit for OS/2
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. {$mode objfpc}
  13. { determine the type of the resource/form file }
  14. {$define Win16Res}
  15. unit Classes;
  16. interface
  17. uses
  18. sysutils,
  19. rtlconst,
  20. types,
  21. typinfo;
  22. {$i classesh.inc}
  23. implementation
  24. { OS - independent class implementations are in /inc directory. }
  25. {$i classes.inc}
  26. initialization
  27. CommonInit;
  28. finalization
  29. CommonCleanup;
  30. end.
  31. {
  32. $Log$
  33. Revision 1.4 2004-01-22 17:11:23 peter
  34. * classes uses types to import TPoint and TRect
  35. Revision 1.3 2004/01/10 20:14:05 michael
  36. + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
  37. Revision 1.2 2003/11/05 09:13:59 yuri
  38. * exec fix
  39. * unused units removed
  40. Revision 1.1 2003/10/06 21:01:06 peter
  41. * moved classes unit to rtl
  42. Revision 1.1 2003/10/06 20:33:58 peter
  43. * classes moved to rtl for 1.1
  44. * classes .inc and classes.pp files moved to fcl/classes for
  45. backwards 1.0.x compatiblity to have it in the fcl
  46. Revision 1.7 2003/09/02 19:49:16 hajny
  47. * compilation fix (typinfo needed already in interface now)
  48. Revision 1.6 2002/09/07 15:15:27 peter
  49. * old logs removed and tabs fixed
  50. Revision 1.5 2002/02/10 13:38:14 hajny
  51. * DosCalls dependency removed to avoid type redefinitions
  52. }