change a font on line

[Silvio.Falconi]

I must change a font of a say on line

But I not Know How make it

I made a combo with all font

LOCAL hDC := GetDC( oWnd:hWnd )

aFonts := ASort( GetFontNames( hDC ) )

ReleaseDC( oWnd:hWnd, hDC )

@ .27, 1.8 COMBOBOX oFonts VAR cFont ITEMS aFonts ;
SIZE 170, 100 FONT oFont ;
MESSAGE "Changes the font of the selection" ;
OF oBar1

@ .38, 23.5 GET oSize VAR nSize OF oBar1 ;
FONT oFont SIZE 20, 19 ;
PICTURE "99" SPINNER MIN 6 MAX 99 ;
MESSAGE "Changes the font size of the selection"

oFonts:bChange := { || WndChild():SetFont( oFonts:varget() ), ;
WndChild():SetFocus() }


the WndChild() function return the oControl SAY active ( lactive) on dialog
it make error because not found hfont

how I can change the font ( cfontname and sizes ) of the say ?

[Antonio Linares]

Silvio,

Please provide complete self contained PRGs as examples, not just portions of the code

so we can quickly copy and build them

thanks

[ukoenig]

Antonio,

I think my tool, I created some times ago includes many solutions.
A fontselect can display the text on a window or say.
The fontstring can be saved / loaded to / from a dbf.
It doesn't matter if You load a font from a DBF, Combo or Fontselector.



best regards
Uwe

[Silvio.Falconi]

perhaps it not is need for the moment , I found another solution ...seems