Fill_Color_StringRGB.qry

Download

More scripts: Style By Script

Syntax Highlighing:

comments, key words, predefined symbols, class members & methods, functions & classes

letter$ = left$(CLASS.Class,1)
if (letter$ == "C") num = 40 else num = 0
r = num
g = (num + 40)
b = (num + 60)
r$ = NumToStr(r)
g$ = NumToStr(g)
b$ = NumToStr(b)
FillInside = 1
FillColor$ = r$ + " " + g$ +  " " + b$