PageRenderTime 28ms CodeModel.GetById 19ms app.highlight 8ms RepoModel.GetById 0ms app.codeStats 0ms

/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
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.