Forecolor Property

An object's foreground color. Read/write.

nForeColor = ob.forecolor
ob.forecolor = nColor | cColor

nForeColor

Forecolor is returned as a decimal number.

nColor

Decimal number:

ob.forecolor = 16711935

Or decimal using the rgb() function:

ob.forecolor = rgb(255,0,255)

Hexadecimal number:

ob.forecolor = 0xFF00FF

cColor

Color constant:

ob.forecolor = "magenta"

HTML style six-digit hexadecimal number for red, green, blue components:

ob.forecolor = "#FF00FF"

Example

//
// Lianja custom section for page "page1" section "section1"
//
namespace custom
public textbox1
define class page1_section1 as section
enddefine
 
define class color_button as CommandButton
	proc click
		textbox1.forecolor = "green"
		messagebox(etos(int(textbox1.forecolor)),0,"Forecolor")
	endproc
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("colorbutton","color_button")
	colorbutton.caption = "Go Green!"
 
	page1_section1.addobject("textbox1", "Textbox")
	textbox1.value = "Textbox 1"
	textbox1.forecolor = rgb(255,0,255)
 
return page1_section1