Estava montando uma telinha simples, sem ser por MVC e me deparei com a seguinte situação, o objeto SAY me da a possibilidade de aumentar o tamanho do texto através do HTML, mas enquanto ao BUTTON? Tem algo que eu possa fazer? Ou terei que fazer alguma gambiarra?
Bom dia Patrick, não compreendi a parte do HTML do SAY, consegue me explicar por favor?
Opa, 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 HTMLPorem o BUTTON não possui este tal “metodo” HTML
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)
Isso me desperta uma duvida que eu sempre tive, existe alguma diferença entre esta TButton que voce passou e esta que eu utilizo? Ex:@ 140, 016 BUTTON btnOutros PROMPT “OUTROS” SIZE 166, 035 OF oDlg PIXEL ACTION U_OUTT1SK5()
A sim, e utilizando essa classe sua funcionou certinho.
Boa tarde Patrick, em ambos os casos é criado um botão, porém quando você coloca @, após a pré-compilação do fonte, ele na verdade se tornar um TButton(), caso queira ver, mande gerar o arquivo ppo do seu fonte.