add button on ribonbar with font

[Silvio.Falconi]

I create a button on ribbonbar type SAYBUTTON

@ 7,5 ADD BUTTON oSelected ;
PROMPT " N."+str(ncella) ;
SIZE 100,85 ;
BITMAP cImagebar ;
OF oApp():oGrSelected MOSTLEFT SAYBUTTON
oSelected:DISABLE()

How I can to change the font of text ?
on include ( ribbon.ch) I cannot insert Font
How it is possible ?

[ukoenig]

Silvio,

a sample :

Code: Select all  Expand view

@ 45, 100 ADD BUTTON oSay1 GROUP oGrS1 SIZE 200, 40 ;
       PROMPT "A Say" SAYBUTTON ;
       CENTER ROUND BORDER ACTION( MsgInfo( "Say Button" ) )
       oSay1:SetFont( oFontBigNum )
 

regards
Uwe

[Silvio.Falconi]

thanks