Post by Gordon Rahman on Mar 14, 2019 17:22:17 GMT -5
I don't know where this file comes from:
'test_colors
' LB5 Version$ = LB5.0
nomainwin
data "black"
data "blue"
data "brown"
data "chartreuse"
data "cyan"
data "darkCyan"
data "darkGray"
data "darkGreen"
data "darkMagenta"
data "darkRed"
data "gray"
data "green"
data "lightCyan"
data "lightGray"
data "lightYellow"
data "magenta"
data "navy"
data "olive"
data "orange"
data "orchid"
data "paleGreen"
data "pink"
data "purple"
data "red"
data "royalBlue"
data "salmon"
data "springGreen"
data "veryDarkGray"
data "veryLightGray"
data "white"
data "yellow"
data "over"
[lb4colors]
data "yellow"
data "brown"
data "red"
data "darkred"
data "pink"
data "darkpink"
data "blue"
data "darkblue"
data "green"
data "darkgreen"
data "cyan"
data "darkcyan"
data "white"
data "black"
data "lightgray"
data "darkgray"
data "over"
open "test" for graphics as #gr
#gr "trapclose [quit]"
#gr "down"
'if Version$ <> "" then [LBColorsOnly]
x = 10
y = 10
#gr place(x,y)
#gr "\LB5.0 colors"
y=y+10
while 1
read colr$
if colr$ = "over" then [exitWhile]'exit while
#gr place(x,y)
#gr backcolor(colr$)
#gr boxfilled(x+100,y+7)
y=y+10
wend
[exitWhile]
[LBColorsOnly]
restore [lb4colors]
x = 150
y = 10
#gr place(x,y)
#gr "\LB4.51 colors"
y=y+10
colr$ = ""
while 1
read colr$
if colr$ = "over" then [exitWhile2]'exit while
#gr place(x,y)
#gr backcolor(colr$)
#gr boxfilled(x+100,y+7)
y=y+10
wend
[exitWhile2]
#gr "flush"
wait
[quit]
close #gr
end 
