Composition Setup |
---|
import.css=/download/attachments/6062824/tecnologia.css
|
Cria um objeto do tipo label. Desta forma, o objeto apresentará o conteúdo do texto estático sobre uma janela ou controle visual.
Hierarquia
Construtores
Inclusão de trecho |
---|
| Classe TSay - Construtores |
---|
| Classe TSay - Construtores |
---|
nopanel | true |
---|
|
Propriedades
Inclusão de trecho |
---|
| Classe TSay - Propriedades |
---|
| Classe TSay - Propriedades |
---|
nopanel | true |
---|
|
Métodos
Inclusão de trecho |
---|
| Classe TSay - Métodos |
---|
| Classe TSay - Métodos |
---|
nopanel | true |
---|
|
Exemplos
Bloco de código |
---|
language | cpp |
---|
theme | Eclipse | title | Exemplo 1 |
---|
linenumbers | true |
---|
collapse | false |
---|
|
#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