/packages/palmunits/src/uicolor.pp

https://github.com/slibre/freepascal · Puppet · 88 lines · 68 code · 20 blank · 0 comment · 1 complexity · d197954bbf10d65a489d4c45e8ccd6c7 MD5 · raw file

  1. {$MACRO ON}
  2. (******************************************************************************
  3. *
  4. * Copyright (c) 1999-2000 Palm, Inc. or its subsidiaries.
  5. * All rights reserved.
  6. *
  7. * File: UIColor.h
  8. *
  9. * Release: Palm OS SDK 4.0 (63220)
  10. *
  11. * Description:
  12. * This file defines structs and functions for setting the "system
  13. * colors" that the UI routines use.
  14. *
  15. * History:
  16. * January 20, 1999 Created by Bob Ebert
  17. * 08/21/99 kwk Added UIFieldFepRawText...UIFieldFepConvertedBackground
  18. * to the UIColorTableEntries enum.
  19. * 10/09/99 kwk Added UIFieldFepUnderline to UIColorTableEntries enum.
  20. *
  21. *****************************************************************************)
  22. unit uicolor;
  23. interface
  24. uses palmos, coretraps, bitmap, window;
  25. type
  26. UIColorTableEntries = Enum;
  27. const
  28. UIObjectFrame = 0;
  29. UIObjectFill = Succ(UIObjectFrame);
  30. UIObjectForeground = Succ(UIObjectFill);
  31. UIObjectSelectedFill = Succ(UIObjectForeground);
  32. UIObjectSelectedForeground = Succ(UIObjectSelectedFill);
  33. UIMenuFrame = Succ(UIObjectSelectedForeground);
  34. UIMenuFill = Succ(UIMenuFrame);
  35. UIMenuForeground = Succ(UIMenuFill);
  36. UIMenuSelectedFill = Succ(UIMenuForeground);
  37. UIMenuSelectedForeground = Succ(UIMenuSelectedFill);
  38. UIFieldBackground = Succ(UIMenuSelectedForeground);
  39. UIFieldText = Succ(UIFieldBackground);
  40. UIFieldTextLines = Succ(UIFieldText);
  41. UIFieldCaret = Succ(UIFieldTextLines);
  42. UIFieldTextHighlightBackground = Succ(UIFieldCaret);
  43. UIFieldTextHighlightForeground = Succ(UIFieldTextHighlightBackground);
  44. UIFieldFepRawText = Succ(UIFieldTextHighlightForeground);
  45. UIFieldFepRawBackground = Succ(UIFieldFepRawText);
  46. UIFieldFepConvertedText = Succ(UIFieldFepRawBackground);
  47. UIFieldFepConvertedBackground = Succ(UIFieldFepConvertedText);
  48. UIFieldFepUnderline = Succ(UIFieldFepConvertedBackground);
  49. UIFormFrame = Succ(UIFieldFepUnderline);
  50. UIFormFill = Succ(UIFormFrame);
  51. UIDialogFrame = Succ(UIFormFill);
  52. UIDialogFill = Succ(UIDialogFrame);
  53. UIAlertFrame = Succ(UIDialogFill);
  54. UIAlertFill = Succ(UIAlertFrame);
  55. UIOK = Succ(UIAlertFill);
  56. UICaution = Succ(UIOK);
  57. UIWarning = Succ(UICaution);
  58. UILastColorTableEntry = Succ(UIWarning);
  59. //------------------------------------------------------------
  60. // UI Color Table Manipulation Routines
  61. //------------------------------------------------------------
  62. function UIColorGetTableEntryIndex(which: UIColorTableEntries): IndexedColorType; syscall sysTrapUIColorGetTableEntryIndex;
  63. procedure UIColorGetTableEntryRGB(which: UIColorTableEntries; var rgbP: RGBColorType); syscall sysTrapUIColorGetTableEntryRGB;
  64. function UIColorSetTableEntry(which: UIColorTableEntries; {const} var rgbP: RGBColorType): Err; syscall sysTrapUIColorSetTableEntry;
  65. function UIColorPushTable: Err; syscall sysTrapUIColorPushTable;
  66. function UIColorPopTable: Err; syscall sysTrapUIColorPopTable;
  67. implementation
  68. end.