Classe: TSayCria um objeto do tipo label.Desta forma, o objeto apresentará o conteúdo do texto estático sobre uma janela ou controle visual. 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 Nome | Tipo | Descrição | Obrigatório | Referência | oWnd | Array of Record | Indica a janela ou controle visual onde o objeto será criado. | | | bText | Array of Record | Indica o bloco de código que será executado para retornar e apresentar uma string. | | | nRow | Array of Record | Indica a coordenada vertical em pixels ou caracteres. | | | nCol | Array of Record | Indica a coordenada horizontal em pixels ou caracteres. | | | cPicture | Array of Record | Indica a máscara de formatação, do conteúdo, que será apresentada. | | | oFont | Array of Record | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | | | uParam7 | Array of Record | Compatibilidade. | | | uParam8 | Array of Record | Compatibilidade. | | | uParam9 | Array of Record | Compatibilidade. | | | lPixels | Array of Record | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | nClrText | Array of Record | Indica a cor do texto do objeto. | | | nClrBack | Array of Record | Indica a cor de fundo do objeto. | | | nWidth | Array of Record | Indica a largura em pixels do objeto. | | | nHeight | Array of Record | Indica a altura em pixels do objeto. | | | uParam15 | Array of Record | Compatibilidade. | | | uParam16 | Array of Record | Compatibilidade. | | | uParam17 | Array of Record | Compatibilidade. | | | uParam18 | Array of Record | Compatibilidade. | | | uParam19 | Array of Record | Compatibilidade. | | | uParam20 | Array of Record | Compatibilidade. | | |
oObjeto()- Retorna o objeto criado.
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 Nome | Tipo | Descrição | Obrigatório | Referência | nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | | | nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | | | bText | Bloco de código | Indica o bloco de código que será executado para retornar e apresentar uma string. | | | oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | | | cPicture | Caracter | Indica a máscara de formatação, do conteúdo, que será apresentada. | | | oFont | Objeto | Indica o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual. | | | uParam7 | Lógico | Compatibilidade. | | | uParam8 | Lógico | Compatibilidade. | | | uParam9 | Lógico | Compatibilidade. | | | lPixels | Lógico | Indica se considera as coordenadas passadas em pixels (.T.) ou caracteres (.F.). | | | nClrText | Numérico | Indica a cor do texto do objeto. | | | nClrBack | Numérico | Indica a cor de fundo do objeto. | | | nWidth | Numérico | Indica a largura em pixels do objeto. | | | nHeight | Numérico | Indica a altura em pixels do objeto. | | | uParam15 | Lógico | Compatibilidade. | | | uParam16 | Lógico | Compatibilidade. | | | uParam17 | Lógico | Compatibilidade. | | | uParam18 | Lógico | Compatibilidade. | | | uParam19 | Lógico | Compatibilidade. | | | lHTML | Lógico | Indica se, verdadeiro (.T.), habilita a visualização do texto no formato HTML; caso contrário, falso (.F.). | | |
oObjeto()- Retorna o objeto criado.
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 ( ) --> SetTextAltera o texto que será apresentado pelo objeto.TSay(): SetText ( [ xVal] ) --> Nome | Tipo | Descrição | Obrigatório | Referência | xVal | Qualquer | Indica o texto que será apresentado. Observação: O tipo de dado desse parâmetro pode ser: Caracter, Numérico e Data. | | |
oSay:SetText( "Novo Texto" ) Propriedade | Descrição | Tipo | lTransparent | Indica se a cor de fundo, do objeto, deve ser ignorada. Desta forma, o objeto assumirá o conteúdo ou a cor do controle visual ao fundo. Observação: O conteúdo padrão desse parâmetro é verdadeiro (.T.). | Lógico | lWordWrap | Indica se, verdadeiro (.T.), o texto será dividido em várias linhas para enquadrar o conteúdo, na área determinada, do objeto. Observação: O conteúdo padrão desse parâmetro é falso (.F.). | Lógico |
#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 oSay:= TSay():New(01,01,{||'Texto para exibição'},oDlg,,oFont,, ; ,,.T.,CLR_RED,CLR_WHITE,200,20)
// Usando o método Create Create oSay:= TSay():Create(oDlg,{||'Texto para exibição'},20,01,,oFont,, ; ,,.T.,CLR_RED,CLR_WHITE,200,20) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TSay Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server |