Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css
Portuguese

Pagetitle

...

Classe TControl

Classe

...

TControl

Classe

...

abstrata

...

herdada

...

por

...

todos

...

os

...

componentes

...

visuais.

Hierarquia

...

Métodos

Click

Dispara o evento, configurado no bloco de código <bLClicked>, do objeto.

TControl(): Click ( ) -->

oObject:Click()

LoadResourceImage

Define uma imagem para o objeto.

TControl(): LoadResourceImage ( ) -->

Antes de definir uma imagem para o objeto, é necessário que a mesma esteja compilada no repositório.

// Define a imagem do botãooButton:LoadResourceImage('S4WB063N')

NextControl

Retorna o próximo objeto da lista que permite foco.

TControl(): NextControl ( ) --> oObjeto

oObjeto
    (objeto)
  • Retorna o próximo objeto da lista que permite foco.
// Foca o proximo objeto da listaoObject:NextControl(.F.):SetFocus()

...

SetPopup

Define um menu do tipo popup para os compoentes visuais.

TControl(): SetPopup ( oMenu ) --> oObjeto

NomeTipoDescriçãoObrigatórioReferência
oMenuObjetoObjeto do tipo TMenuX 

...

Inclusão de trecho
Classe TControl - Métodos
Classe TControl - Métodos
nopaneltrue

Observações

Esta classe não pode ser instanciada diretamente.

Propriedades

...

Este método estará disponível em versões superiores à 120420A.
 
Bloco de código
linenumberstrue
oMenu := TMenu():New(0,0,0,0,.T.) 
oTMenuIte1 := TMenuItem():New(oDlg,"TMenuItem 01",,,,{|| conout("TMenuItem 01") },,,,,,,,,.T.)
oTMenuIte2 := TMenuItem():New(oDlg,"TMenuItem 02",,,,{|| conout("TMenuItem 02") },,,,,,,,,.T.)
oTMenuIte3 := TMenuItem():New(oDlg,"TMenuItem 03",,,,{|| conout("TMenuItem 03") },,,,,,,,,.T.)
oMenu:Add(oTMenuIte1)
oMenu:Add(oTMenuIte2)
oMenu:Add(oTMenuIte3)
oPanel:SetPopup(oMenu)

 

 

SetAccName

Configura o identificador do objeto de interface para integração do TOTVS Smart Client com ferramentas de acessibilidade compatíveis com o Microsoft Active Accessibility (MSAA).

TControl(): SetAccName ( [ cIdentificado] ) -->

 

NomeTipoDescriçãoObrigatórioReferência
cIdentificadoCaracterIndica o identificador do controle, caracter, obrigatório.  

 

Método disponível a partir da build 7.00.100601A.

tControl::setaccname( <cIdentificador> ) -> nil

SetFocus

Altera o foco da entrada de dados para o objeto.

TControl(): SetFocus ( ) -->

oObject:SetFocus()

VarPut

Atualiza o valor do objeto.

TControl(): VarPut ( < uValue> ) -->

 

NomeTipoDescriçãoObrigatórioReferência
uValueQualquerIndica o valor que será atribuído ao objeto.X 

 

oGet:VarPut( Eval( oGet:bSetGet ) )

 

Propriedade

Descrição

Tipo

bChange

Indica o bloco de código que será executado quando o estado ou conteúdo do objeto é modificado pela ação sobre o controle visual.

Bloco de código

bSetGet

Indica o bloco de código que será executado na mudança do item selecionado. O bloco de código é responsável pela mudança do valor, da variável numérica, que indica o item selecionado.

...

Blocode código

lModified

Indica se o conteúdo da variável associada ao objeto foi modificado.

Lógico

lOutGet

Indica se o bloco de código configurado no parâmetro bValid, da classe TSrvObject, será executado quando o objeto perder o foco. Se verdadeiro (.T.), impede a execução; caso contrário, falso (.F.).

Lógico

lReadOnly

Indica se o conteúdo da variável associada ao objeto permanecerá apenas para leitura.

Lógico

lVisibleControl

Indica se o objeto está (.T.) ou não (.F.) visível.

Lógico

Align

Indica o alinhamento do objeto no espaço disponibilizado pelo seu objeto pai. Sendo: 0=Nenhum (padrão), 1=No topo, 2=no rodapé, 3=à esquerda, 4=à direita e 5=em todo o parente.

Numérico

nParent

Indica o handle do objeto sobre o qual o controle visual foi criado.

Numérico

...

 

Esta classe não pode ser instanciada diretamente.

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

...