Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Amarrar documentação com o exemplo do comando @ .. SAY

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
 #include "TOTVS.CH"
 
 User Function TSay()
  DEFINE DIALOG oDlg TITLE "Exemplo TSay" FROM 180,180 TO 550,700 PIXEL
  
  // Cria Fonte para visualização
  oFont := TFont():New('Courier new',,-18,.T.)
  
  // Usando o método New
  oSay1:= TSay():New(01,01,{||'Texto para exibição I'},oDlg,,oFont,,,,.T.,CLR_RED,CLR_WHITE,200,20)
   
  // Usando o método Create
  oSay:= TSay():Create(oDlg,{||'Texto para exibição'},20,01,,oFont,,,,.T.,CLR_RED,CLR_WHITE,200,20)
 
  // Métodos
  oSay:CtrlRefresh()

  oSay:SetText( "Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto Novo Texto " )
  
  oSay:SetTextAlign( 2, 2 )

  // Propriedades
  oSay:lTransparent = .T.
 
  oSay:lWordWrap = .F.
 
 ACTIVATE DIALOG oDlg CENTERED
 Return

Resultado do Exemplo

Referências

A construção de um componente da classe TSAY() também pode ser feita através do comando AdvPL @ .. SAY 

Abrangência

Advanced Protheus 6.09 ,Advanced Protheus 7.10, Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server