Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!sdd.hp.com!uakari.primate.wisc.edu!relay.nswc.navy.mil!oasys!roth
From: roth@oasys.dt.navy.mil (Pete Roth)
Newsgroups: comp.lang.pascal
Subject: TVision Colors, Annotated
Message-ID: <8377@oasys.dt.navy.mil>
Date: 12 Jun 91 11:18:19 GMT
Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
Organization: David Taylor Research Center, Bethesda, MD
Lines: 105

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.