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