Fontstretch Property

The amount an object's font is expanded or compressed. Read/write.

nFontStretch = ob.fontstretch
ob.fontstretch = nFontStretch

nFontStretch

Numeric signifying the amount of font stretch:

Value	Description
50	UltraCondensed
62	ExtraCondensed
75	Condensed
87	SemiCondensed
100	Unstretched
112	SemiExpanded
125	Expanded
150	ExtraExpanded
200	UltraExpanded

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.fontstretch = 200
		messagebox(etos(int(textbox1.fontstretch)),0,"Fontstretch")
	endproc
enddefine
 
proc page1_section1 
	page1_section1 = createobject("page1_section1")
 
	page1_section1.addobject("fontbutton","font_button")
	fontbutton.caption = "Stretch It!"	
 
	page1_section1.addobject("textbox1", "Textbox")
	textbox1.value = "Textbox"
	textbox1.fontstretch = 75
return page1_section1