classes.pp 1.8 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  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. sysutils,
  19. types,
  20. typinfo,
  21. rtlconst;
  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. DoneThreads;
  30. CommonCleanup;
  31. end.
  32. {
  33. $Log$
  34. Revision 1.6 2005-02-06 16:57:18 peter
  35. * threads for go32v2,os,emx,netware
  36. Revision 1.5 2004/09/26 19:25:49 armin
  37. * exiting threads at nlm unload
  38. Revision 1.4 2004/08/01 20:02:48 armin
  39. * changed dir separator from \ to /
  40. * long namespace by default
  41. * dos.exec implemented
  42. * getenv ('PATH') is now supported
  43. * changed FExpand to global version
  44. * fixed heaplist growth error
  45. * support SysOSFree
  46. * stackcheck was without saveregisters
  47. * fpc can compile itself on netware
  48. Revision 1.3 2004/01/22 17:11:23 peter
  49. * classes uses types to import TPoint and TRect
  50. Revision 1.2 2004/01/10 20:15:21 michael
  51. + Some more fixes to rtlconst. Const strings moved from classes to rtlconst
  52. Revision 1.1 2003/10/06 21:01:06 peter
  53. * moved classes unit to rtl
  54. Revision 1.1 2003/03/25 17:56:19 armin
  55. * first fcl implementation for netware
  56. Revision 1.3 2002/09/07 15:15:28 peter
  57. * old logs removed and tabs fixed
  58. }