**** Skin 1 = Green
p_val(@peg_red,   "14337534")
p_val(@peg_blue,  "12975553")
p_val(@peg_green, "16775410")
p_val(@peg_fred,  "255")
p_val(@peg_fblue, "65280")
p_val(@peg_fgreen,"10485760")

****_fon_css = Array With Def Colors and fonts for Pegasus
p_val(@_fon_css, "{}")

***1 field get font, fgcol, bgcol
aadd(_fon_css, {16, 0, 0})

***2 field say font, fgcol, bgcol
aadd(_fon_css, {15, 39270, 13234664})

***3 memo get font, fgcol, bgcol
aadd(_fon_css, {14, 0, 0})

***4 memo say font, fgcol, bgcol
aadd(_fon_css, {7, 1130548, 14743794})

***5 browse font, style
aadd(_fon_css, {9, 99})

***6 browse titles fgcol, bgcol
aadd(_fon_css, {16777215, 2128741})

***7 browse  fgcol, bgcol
aadd(_fon_css, {1130548, 16776701})

***8 browse selected row fgcol, bgcol
aadd(_fon_css, { 864552, 3722151})

***9 bmp (buttons) def path
aadd(_fon_css, {'..\..\icons\skin1\'})

***10 dialog boxes (windows) {font, fgcol, bgcol}
aadd(_fon_css, {0, 1130548, 16776701})

***11 {button bar bgcol, outlook fgcol, outlook bgcol}
aadd(_fon_css, { 7592897, 0, 7592897})
##RETURN
