Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/327912/newLayout.css |
...
Pagetitle |
---|
...
|
|
...
|
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
...
...
- TSay
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Exemplos
Bloco de código | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
#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 := CreateMétodo cosntrutor da classe.TSay(): Create ( [ oWnd], [ bText], [ nRow], [ nCol], [ cPicture], [ oFont], [ uParam7], [ uParam8], [ uParam9], [ lPixels], [ nClrText], [ nClrBack], [ nWidth], [ nHeight], [ uParam15], [ uParam16], [ uParam17], [ uParam18], [ uParam19], [ uParam20] ) --> oObjeto
oObjeto
oSay:= TSay():Create(oDlg,{||'Texto para exibição'},20,01,,oFont,,; ,,.T.,CLR_RED,CLR_WHITE,200,20) NewMétodo construtor da classe.TSay(): New ( [ nRow], [ nCol], [ bText], [ oWnd], [ cPicture], [ oFont], [ uParam7], [ uParam8], [ uParam9], [ lPixels], [ nClrText], [ nClrBack], [ nWidth], [ nHeight], [ uParam15], [ uParam16], [ uParam17], [ uParam18], [ uParam19], [ lHTML] ) --> oObjeto
oObjeto
oSay:= TSay():New(01,01,{||'Texto para exibição'},oDlg,,,,; ,,.T.,CLR_RED,CLR_WHITE,200,20) CtrlRefreshForça a atualização do objeto.TSay(): CtrlRefresh ( ) --> oSay:CtrlRefresh() SetTextAltera o texto que será apresentado pelo objeto.TSay(): SetText ( [ xVal] ) -->
oSay:SetText( "Novo Texto" )
#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étodoNew oSay 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) ACTIVATE DIALOG oDlg CENTERED Exemplo da classe TSay
// 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
...
...