roth@oasys.dt.navy.mil (Pete Roth) (06/12/91)
The color mapping in TVision gave me fits until I annotated
the colors in APP.PAS as shown below. And, I'm too old to
learn the (hex) numbers of the colors; I wanted NAMES!
Clip & insert in your own file(s). Note that I've already changed
some of the colors, such as the menus and desktop...
---------------cut here-------------------cut here---------------
{
Annotation for APP.PAS by Peter N Roth.
Released to public domain on 12 June 1991.
The PC color chart. Use it to modify the color palette.
(from the Turbo Pascal Help file, graphics chars modified).
Dark Colors :
(Foreground & : Light Colors
Background) : (Foreground)
===================================
Black 0 : DarkGray 8
Blue 1 : LightBlue 9
Green 2 : LightGreen 10 = $A
Cyan 3 : LightCyan 11 = $B
Red 4 : LightRed 12 = $C
Magenta 5 : LightMagenta 13 = $D
Brown 6 : Yellow 14 = $E
LightGray 7 : White 15 = $F
}
{ TApplication palettes }
CColor =
#$3F { 1 WhiteOnCyan Desktop Background }
+ #$3F { 2 WhiteOnCyan Normal text Menus & status }
+ #$38 { 3 DarkGrayOnCyan Disabled Text }
+ #$3E { 4 YellowOnCyan Shortcut Text }
+ #$1F { 5 WhiteOnBlue Normal Selection }
+ #$3D { 6 LightMagentaOnCyan Disabled Selection }
+ #$1F { 7 WhiteOnBlue Shortcut Selection }
+ #$17 { 8 LtGrayOnBlue Frame Passive Blue Windows }
+ #$1F { 9 WhiteOnBlue Frame Active }
+ #$1A { 10 LightGreenOnBlue Frame Icon }
+ #$31 { 11 BlueOnCyan Scrollbar Page }
+ #$31 { 12 BlueOnCyan Scrollbar reserved }
+ #$1E { 13 YellowOnBlue Scrollbar Normal text }
+ #$71 { 14 BlueOnLtGray Scrollbar Selected text }
+ #$00 { 15 BlackOnBlack Reserved }
+ #$37 { 16 LtGrayOnCyan Frame Passive Cyan Windows }
+ #$3F { 17 WhiteOnCyan Frame Active }
+ #$3A { 18 LightGreenOnCyan Frame Icon }
+ #$13 { 19 CyanOnBlue Scrollbar page }
+ #$13 { 20 CyanOnBlue Scrollbar Reserved }
+ #$3E { 21 YellowOnCyan Scrollbar Normal }
+ #$21 { 22 BlueOnGreen Scrollbar Selected }
+ #$00 { 23 BlackOnBlack Reserved }
+ #$70 { 24 BlackOnLtGray Frame Passive Gray Windows }
+ #$7F { 25 WhiteOnLtGray Frame Active }
+ #$7A { 26 LightGreenOnLtGray Frame Icon }
+ #$13 { 27 CyanOnBlue Scrollbar Page }
+ #$13 { 28 CyanOnBlue Scrollbar Reserved }
+ #$70 { 29 BlackOnLtGray Scrollbar Normal }
+ #$7F { 30 WhiteOnLtGray Scrollbar Selected }
+ #$00 { 31 BlackOnBlack Reserved }
+ #$70 { 32 BlackOnLtGray Frame Passive Dialog Box }
+ #$7F { 33 WhiteOnLtGray Frame Active }
+ #$7A { 34 LightGreenOnLtGray Frame Icon }
+ #$13 { 35 CyanOnBlue Scrollbar page }
+ #$13 { 36 CyanOnBlue Scrollbar controls }
+ #$70 { 37 BlackOnLtGray Static Text }
+ #$70 { 38 BlackOnLtGray Label Normal }
+ #$7F { 39 WhiteOnLtGray Label Highlight }
+ #$7E { 40 YellowOnLtGray Label Shortcut }
+ #$20 { 41 BlackOnGreen Button Normal }
+ #$2B { 42 LightCyanOnGreen Button Default }
+ #$2F { 43 WhiteOnGreen Button Selected }
+ #$78 { 44 DarkGrayOnLtGray Button Disabled }
+ #$2E { 45 YellowOnGreen Button Shortcut }
+ #$70 { 46 BlackOnLtGray Button shadow }
+ #$30 { 47 BlackOnCyan Cluster Normal }
+ #$3F { 48 WhiteOnCyan Cluster Selected }
+ #$3E { 49 YellowOnCyan Cluster Shortcut }
+ #$1F { 50 WhiteOnBlue Inputline Normal }
+ #$2F { 51 WhiteOnGreen Inputline Selected }
+ #$1A { 52 LightGreenOnBlue Inputline Arrows }
+ #$20 { 53 BlackOnGreen History Arrow }
+ #$72 { 54 GreenOnLtGray History Sides }
+ #$31 { 55 BlueOnCyan History Win Scroll page }
+ #$31 { 56 BlueOnCyan History Win Scroll controls }
+ #$30 { 57 BlackOnCyan Listviewer Normal }
+ #$2F { 58 WhiteOnGreen Listviewer Focused }
+ #$3E { 59 YellowOnCyan Listviewer Selected }
+ #$31 { 60 BlueOnCyan Listviewer Divider }
+ #$13 { 61 CyanOnBlue Infopane }
+ #$00 { 62 BlackOnBlack Reserved }
+ #$00 { 63 BlackOnBlack Reserved }
;
---------------cut here-------------------cut here---------------
regards,
pete
- - - - - - - - - - - - - - - - - - - - - - - - - -
Peter N Roth roth@oasys.dt.navy.mil
Objects in this office are closer than they appear.