/packages/palmunits/src/uicontrols.pp

https://github.com/slibre/freepascal · Puppet · 47 lines · 37 code · 10 blank · 0 comment · 2 complexity · 981ca01ee5bd68a2024184a0dc63886a MD5 · raw file

  1. {$MACRO ON}
  2. (******************************************************************************
  3. *
  4. * Copyright (c) 1998-2000 Palm, Inc. or its subsidiaries.
  5. * All rights reserved.
  6. *
  7. * File: UIControls.h
  8. *
  9. * Release: Palm OS SDK 4.0 (63220)
  10. *
  11. * Description:
  12. * Contrast & brightness control for devices with
  13. * software contrast.
  14. *
  15. * History:
  16. * Name Date Description
  17. * ---- ---- -----------
  18. * bob 02/12/98 Initial version
  19. * bob 03/15/99 Added brightness
  20. * bob 08/27/99 Added UIPickColor, renamed UIControls.h
  21. *
  22. *****************************************************************************)
  23. unit uicontrols;
  24. interface
  25. uses palmos, coretraps, bitmap, window;
  26. // for UIPickColor
  27. const
  28. UIPickColorStartPalette = 0;
  29. UIPickColorStartRGB = 1;
  30. type
  31. UIPickColorStartType = UInt16;
  32. procedure UIContrastAdjust; syscall sysTrapUIContrastAdjust;
  33. procedure UIBrightnessAdjust; syscall sysTrapUIBrightnessAdjust;
  34. function UIPickColor(var indexP: IndexedColorType; var rgbP: RGBColorType;
  35. start: UIPickColorStartType; const titleP, tipP: PChar): Boolean; syscall sysTrapUIPickColor;
  36. implementation
  37. end.