olá Patrick, utilize a classe tFont (http://tdn.totvs.com/display/tec/TFont) em conjunto com a classe tButton (http://tdn.totvs.com/display/tec/Construtor+TButton%3ANew)
ou se preferir utilize CSS
Segue dois exemplo:
Usando tFont
Local oFonte := TFont():New("MS Sans Serif",,015,,.T.,,,,,.F.,.F.)
oButton1:= TButton():New( 005, 190, "Avançar >",oDlg,{|| /bAction/ }, 047, 018,,oFonte,.F.,.T.,.F.,,.F.,,,.F. )
Usando CSS
Local cButton := "QPushButton { background: #35ACCA; border: 1px solid #096A82;outline:0; border-radius: 5px; font: normal 12px Arial; padding: 6px;color: #ffffff;} QPushButton:pressed {background-color: #3AAECB;border-style: inset; border-color: #35ACCA; color: #ffffff; }"
oButton1:= TButton():New( 005, 190, "Avançar >",oDlg,{|| /bAction/ }, 047, 018,,,.F.,.T.,.F.,,.F.,,,.F. )
oButton1:SetCss(cButton)
Bom dia Patrick, não compreendi a parte do HTML do SAY, consegue me explicar por favor?
— Daniel Mendes 25 de Jun de 2019Opa, perdão a demora. Então o SAY aceita que o texto que eu passe possua comandos HTML, como por exemplo: @ 021, 055 SAY oSay1 PROMPT "
O QUE DESEJA INCLUIR? " SIZE 150, 015 OF oDlg COLORS 0, 16777215 PIXEL HTML Porem o BUTTON não possui este tal "metodo" HTML — Patrick Zerbinatti 26 de Jun de 2019