Fontunderline Property

Whether the object's font is underlined. Read/write.

bFontUnderline = ob.fontunderline
ob.fontunderline = bFontUnderline

bFontUnderline

Boolean signifying whether the font is underlined or not:

True	False
True	False
.T.	.F.
1	0

Example

//
// Lianja custom section for page "page1" section "section1"
//
namespace custom1
public textbox1, textbox2
define class page1_section1 as section
enddefine
 
 
define class font_button as CommandButton
	proc click
		textbox1.fontunderline = not textbox1.fontunderline
		textbox2.fontunderline = not textbox2.fontunderline
	endproc
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("fontbutton","font_button")
	fontbutton.caption = "Toggle Underline"	
 
	page1_section1.addobject("textbox1", "Textbox")
	textbox1.value = "Textbox 1"
	textbox1.fontunderline = True
 
	page1_section1.addobject("textbox2", "Textbox")
	textbox2.value = "Textbox 2"
return page1_section1