Fontname Property

From Lianjapedia
Jump to: navigation, search

The name of the object's font. Read/write.

cFontName = ob.fontname
ob.fontname = cFontName

cFontName

String signifying the font name.

Example

//
// Lianja custom section for page "page1" section "section1"
//
namespace custom1
public textbox1
define class page1_section1 as section
enddefine
 
 
define class font_button as CommandButton
	proc click
		textbox1.fontname = "Dingbats"
		messagebox(textbox1.fontname,0,"Font")
	endproc
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("fontbutton","font_button")
	fontbutton.caption = "Change Font"	
 
	page1_section1.addobject("textbox1", "Textbox")
	textbox1.value = "Textbox"
	textbox1.fontname = "Helvetica"
return page1_section1