> >
> >
> > Yes its possible with a textbox but putting the textbox fontname to FOXFONT.
> > in textbox.init
> >

> > this.fontname="Foxfont"
> > this.value=chr(243)
> > 

> >
> > Dont rate please.its only for the pleasure to help.Give me only a feed back.
> > Yousfi Benameur
>
> **************************************************************************************
> **************************************************************************************
>
> Yeap, it was possible to put to FOXFONT on the textbox. I bind this text box to a field in a table. It writes to a table with a different symbol instead and I was trying to change the font to FOXFONT for the table too but didn't work. How do you change to FOXFONT on the report also? Thanks.
>
> Tai Nguyen.

PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
	Top = 108
	Left = 218
	Height = 205
	Width = 327
	DoCreate = .T.
	Caption = "Form1"
	Name = "form1"

	ADD OBJECT text1 AS textbox WITH ;
		Height = 73, ;
		Left = 24, ;
		Top = 72, ;
		Width = 265, ;
		Name = "Text1"

	ADD OBJECT command5 AS commandbutton WITH ;
		Top = 36, ;
		Left = 96, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Process", ;
		Name = "Command5"

	PROCEDURE command5.Click
		CREATE cursor Chars (NumberVal I, CharVal C(1))
		FOR x = 33 TO 255
		INSERT INTO Chars (NumberVal, CharVal) ;
		VALUES (x, CHR(x))
		ENDFOR
		*brow font "foxfont"

		thisform.text1.fontname="Foxfont"
		thisform.text1.fontsize=28
		thisform.text1.controlSource="Chars.Charval"


		declare integer Sleep in win32api integer

		scan
		thisform.text1.value=Charval
		sleep(50)
		endscan
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1

for installing a font on a report , open the designer...properties.....font



Dont rate please.its only for the pleasure to help.Give me only a feed back.
Yousfi Benameur