Classe: TMultiGet
Cria um objeto do tipo campo memo.
TSrvObject -> TControl -> TMultiGet
Propriedade | Descrição | Tipo |
lWordWrap | Indica se, verdadeiro (.T.), realizará a quebra automática de linhas; caso contrário, falso (.F.). | Lógico |
nPos | Indica a posição do cursor. | Numérico |
Esse objeto permite editar texto de múltiplas linhas.
#include "TOTVS.CH"User Function TMultiget() DEFINE DIALOG oDlg TITLE "Exemplo TMultiget" FROM 180,180 TO 550,700 PIXEL // Usando o New cTexto1 := "Linha 01 Multiget 1" oTMultiget1 := TMultiget():New(01,01,{|u|if(Pcount()>0,cTexto1:=u,cTexto1)},; oDlg,260,92,,,,,,.T.) // Usando o Create cTexto2 := "Linha 01 Multiget 2" oTMultiget2 := TMultiget():Create(oDlg,{|u|if(Pcount()>0,cTexto2:=u,cTexto2)},92,01,; 260,92,,,,,,.T.) ACTIVATE DIALOG oDlg CENTERED Return
Exemplo da classe TMultiGet
Advanced Protheus 6.09
,
Advanced Protheus 7.10
,
Microsiga Protheus 8.11
,
Microsiga Protheus 11
,
Protheus 10
,
TOTVS Application Server 10
,
ByYou Application Server
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas