classes.pp 1.4 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465
  1. {
  2. $Id$
  3. This file is part of the Free Component Library (FCL)
  4. Copyright (c) 1999-2000 by Michael Van Canneyt and Florian Klaempfl
  5. Classes unit for win32
  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. typinfo,
  19. rtlconst,
  20. types,
  21. sysutils;
  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.3 2004-01-22 17:11:23 peter
  34. * classes uses types to import TPoint and TRect
  35. Revision 1.2 2004/01/10 20:13:19 michael
  36. + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
  37. Revision 1.1 2003/10/06 21:01:06 peter
  38. * moved classes unit to rtl
  39. Revision 1.1 2003/10/06 20:33:58 peter
  40. * classes moved to rtl for 1.1
  41. * classes .inc and classes.pp files moved to fcl/classes for
  42. backwards 1.0.x compatiblity to have it in the fcl
  43. Revision 1.3 2002/09/07 15:15:24 peter
  44. * old logs removed and tabs fixed
  45. }