/packages/palmunits/src/uicolor.pp
Puppet | 88 lines | 68 code | 20 blank | 0 comment | 1 complexity | d197954bbf10d65a489d4c45e8ccd6c7 MD5 | raw file
Possible License(s): LGPL-2.0, LGPL-2.1, LGPL-3.0
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 23unit uicolor; 24 25interface 26 27uses palmos, coretraps, bitmap, window; 28 29type 30 UIColorTableEntries = Enum; 31 32const 33 UIObjectFrame = 0; 34 UIObjectFill = Succ(UIObjectFrame); 35 UIObjectForeground = Succ(UIObjectFill); 36 UIObjectSelectedFill = Succ(UIObjectForeground); 37 UIObjectSelectedForeground = Succ(UIObjectSelectedFill); 38 39 UIMenuFrame = Succ(UIObjectSelectedForeground); 40 UIMenuFill = Succ(UIMenuFrame); 41 UIMenuForeground = Succ(UIMenuFill); 42 UIMenuSelectedFill = Succ(UIMenuForeground); 43 UIMenuSelectedForeground = Succ(UIMenuSelectedFill); 44 45 UIFieldBackground = Succ(UIMenuSelectedForeground); 46 UIFieldText = Succ(UIFieldBackground); 47 UIFieldTextLines = Succ(UIFieldText); 48 UIFieldCaret = Succ(UIFieldTextLines); 49 UIFieldTextHighlightBackground = Succ(UIFieldCaret); 50 UIFieldTextHighlightForeground = Succ(UIFieldTextHighlightBackground); 51 UIFieldFepRawText = Succ(UIFieldTextHighlightForeground); 52 UIFieldFepRawBackground = Succ(UIFieldFepRawText); 53 UIFieldFepConvertedText = Succ(UIFieldFepRawBackground); 54 UIFieldFepConvertedBackground = Succ(UIFieldFepConvertedText); 55 UIFieldFepUnderline = Succ(UIFieldFepConvertedBackground); 56 57 UIFormFrame = Succ(UIFieldFepUnderline); 58 UIFormFill = Succ(UIFormFrame); 59 60 UIDialogFrame = Succ(UIFormFill); 61 UIDialogFill = Succ(UIDialogFrame); 62 63 UIAlertFrame = Succ(UIDialogFill); 64 UIAlertFill = Succ(UIAlertFrame); 65 66 UIOK = Succ(UIAlertFill); 67 UICaution = Succ(UIOK); 68 UIWarning = Succ(UICaution); 69 70 UILastColorTableEntry = Succ(UIWarning); 71 72//------------------------------------------------------------ 73// UI Color Table Manipulation Routines 74//------------------------------------------------------------ 75 76function UIColorGetTableEntryIndex(which: UIColorTableEntries): IndexedColorType; syscall sysTrapUIColorGetTableEntryIndex; 77 78procedure UIColorGetTableEntryRGB(which: UIColorTableEntries; var rgbP: RGBColorType); syscall sysTrapUIColorGetTableEntryRGB; 79 80function UIColorSetTableEntry(which: UIColorTableEntries; {const} var rgbP: RGBColorType): Err; syscall sysTrapUIColorSetTableEntry; 81 82function UIColorPushTable: Err; syscall sysTrapUIColorPushTable; 83 84function UIColorPopTable: Err; syscall sysTrapUIColorPopTable; 85 86implementation 87 88end.