Frameworksp

Páginas filhas
  • MsExplorer

Versões comparadas

Versão antiga 1

changes.mady.by.user admin

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: binary and image files updated

...

Portuguese

Pagetitle
MsExplorer
MsExplorer

Classe: MsExplorer

Esta classe cria um objeto gráfico do tipo "Explorer" (Painel Gerencial), permitindo que o usuário adicione inúmeros itens em uma "Arvore" de opções e defina um painel contemplando objetos graficos para cada item de arvore adicional.


Hierarquia


Construtores
New

New

Inicializador da Classe (Construtor)


Sintaxe

MsExplorer(): New ( < cTitle>, < nTop>, < nLeft>, < nBottom>, < nRight>, [ oWnd], [ lToolBar], [ lAddressBar] ) --> uRet


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cTitleCaracterTitulo da janela (dialog) principal X
nTopNuméricoCoordenada vertical inicial (em pixels) X
nLeftNuméricoCoordenada horizontal inicial (em pixels) X
nBottomNuméricoAltura do painel principal (em pixels) X
nRightNuméricoLargura do painel principal (em pixels) X
oWndObjetoObjeto gráfico do tipo MsDialog utilizado para montagem do painel e arvore
lToolBarLógicoExibe/Oculta a barra de botões superior (ButtonBar)
lAddressBarLógicoExibe/Oculta a ComboBox de caminhos (itens) a serem posicionado
Retorno
    uRet(nulo)
  • Não existe retorno

Observações


Métodos
Activate

Activate

Exibe o objeto gráfico (ShowMode)


Sintaxe

MsExplorer(): Activate ( ) --> Nil

Retorno
    Nil(nulo)
  • Não existe retorno para o método

Observações
 
Veja Também
DBTree, TPanel
AddDefButton

AddDefButton

Permite adicionar um ou mais botões a EnchoiceButtons no painel principal


Sintaxe

MsExplorer(): AddDefButton ( < cResource>, [ cToolTip], < bAction>, [ uPar4], [ bWhen], [ nWidth], [ cTitulo] ) --> oBtn


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cResourceCaracterNome do resource (imagem utilizada como ícone) do botão a ser criado. X
cToolTipCaracterToolTip (descritivo) do botão a ser criado
bActionBloco de códigoAção (função) a ser executada ao click do mouse sobre o botão a ser criado. X
uPar4CaracterCompatibilidade
bWhenBloco de códigoCondição lógica para ativar/desativar a utilização do botão (Enable/Disable)
nWidthNuméricoLargura do botão. (em pixels)
cTituloCaracterTitulo do botão
Retorno
    oBtn()
  • Objeto do botão criado

Observações
 
AddItem

AddItem

Adiciona um subitem dentro de um item de arvore, a esquerda do painel principal


Sintaxe

MsExplorer(): AddItem ( ) -->


Observações
 
AddTree

AddTree

Adiciona um item na arvore a esqueda do painel principal


Sintaxe

MsExplorer(): AddTree ( < cPrompt>, [ cResource1], [ cResource2], < cCargo>, [ lPanel] ) --> nRet


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
cPromptCaracterLabel do item X
cResource1CaracterNome do resource (Imagem) a ser utilizado como icone no item da arvore, quando não-expandido.
cResource2CaracterNome do resource (Imagem) a ser utilizado como icone no item da arvore, quando expandido.
cCargoCaracterIdentificador do nó (item da arvore) X
lPanelLógicoItem possui ou não um novo painel associado.
Retorno
    nRet()
  • Numero do item dentro da arvore

Observações
 
DeActivate

DeActivate

Finaliza a exibição do objeto gráfico.


Sintaxe

MsExplorer(): DeActivate ( ) --> Nil

Retorno
    Nil()
  • Não possui retorno definido.

Observações
 
Veja Também
DBTree, TPanel
DefaultBar

DefaultBar

Carrega os botões padrões ("Copiar", "Recortar", "Colar", "Calculadora") na ButtonBar. (Apenas quando a propriedade lToolBar for .T.)


Sintaxe

MsExplorer(): DefaultBar ( ) -->


Observações
 

Veja Também
DBTree, TPanel
EndTree

EndTree

Finaliza a construção de um item de Arvore


Sintaxe

MsExplorer(): EndTree ( ) --> Nil

Retorno
    Nil(nulo)
  • Não existe retorno para o método

Observações
 
GetPanel

GetPanel

Retorna o nome do componente TPanel do item informado como parametro.


Sintaxe

MsExplorer(): GetPanel ( < nID> ) --> oPanel


Parâmetros
NomeTipoDescriçãoObrigatórioReferência
nIDNuméricoNro do item dentro da arvore X
Retorno
    oPanel()
  • Objeto tipo "TPanel" referente ao item passado como parametro

Observações
 

Veja Também
DBTree, TPanel
Refresh

Refresh

Atualiza todos os componentes do objeto em relação a suas variáveis e conteúdos (recarrega)


Sintaxe

MsExplorer(): Refresh ( ) -->


Observações
 

Veja Também
DBTree, TPanel

Propriedade
PropriedadeDescriçãoTipo
nBottomCoordenada horizontal (Y) inicial do painel principalNumérico
nPanelHeightAltura em pixels do painel principalNumérico
nPanelWidthLargura em pixels do painel principalNumérico
nRightCoordenada vertical (X) inicial do painel principalNumérico
oDlgObjeto tipo "MsDialog", referente ao painel principal da classe.Objeto
oTreeObjeto tipo "oTree" presente no painel principal da classeObjeto

Observações


Exemplos 
#INCLUDE "PROTHEUS.CH"User Function MsExpl()Local oDlg := NilLocal oExpl := NilLocal oPanel := NilLocal aPanels := {}//Instancia ObjetooExpl := MsExplorer():New("Titulo da MSExplorer",10,10,400,700,oDlg,/*lToolBar*/,/*lAddressBar*/,/*lDefBar*/,/*oTreeFont*/,/*cBitmap*/,/*nBmpWidth*/,/*oParent*/)//Cria EnchoiceButtonsoExpl:AddDefButton("CLIPS"		,"ToolTip 01"	,{|| msgInfo("Botao ZeroUm")}		,/*cDefaultAct*/	,/*bWhen*/,/*nWidth*/,"Botao Zero Um - 01")oExpl:AddDefButton("CLIENTE"	,"ToolTip 02"	,{|| msgInfo("Botao ZeroDois")}		,/*cDefaultAct*/	,/*bWhen*/,/*nWidth*/,"Botao Zero Um - 02")oExpl:AddDefButton("CHAT"		,"ToolTip 03"	,{|| msgInfo("Botao ZeroTres")}		,/*cDefaultAct*/	,/*bWhen*/,/*nWidth*/,"Botao Zero Um - 03")oExpl:AddDefButton("COMSOM"		,"ToolTip 04"	,{|| msgInfo("Botao ZeroQuatro")}	,/*cDefaultAct*/	,/*bWhen*/,/*nWidth*/,"Botao Zero Um - 04")oExpl:AddDefButton("CARGA"		,"ToolTip 04"	,{|| msgInfo("Botao ZeroCinco")}	,/*cDefaultAct*/	,/*bWhen*/,/*nWidth*/,"Botao Zero Um - 05")//Cria um item da ArvoreaAdd(aPanels,    oExpl:AddTree("Item01","BR_LARANJA"	,"BR_VERDE","#1000",.T.))//Cria itens na ArvoreaAdd(aPanels,    oExpl:AddItem("S1.1","BR_ROXO","#1100",.T.))aAdd(aPanels,    oExpl:AddItem("S1.2","BR_ROXO","#1200",.T.))//Adiciona um sub-item composto na ArvoreaAdd(aPanels,    oExpl:AddTree("S1.3","BR_PRETO"	,"BR_BRANCO","#1300",.T.))aAdd(aPanels,    oExpl:AddItem("S1.3.1","BR_ROXO","#1310",.T.))aAdd(aPanels,    oExpl:AddItem("S1.3.2","BR_ROXO","#1320",.T.))aAdd(aPanels,    oExpl:AddItem("S1.3.3","BR_ROXO","#1330",.T.))oExpl:EndTree() //Fecha subitemoExpl:EndTree() //Fecha item//Cria um novo item da ArvoreaAdd(aPanels,    oExpl:AddTree("Item02","BR_LARANJA"	,"BR_VERDE","#2000",.T.))aAdd(aPanels,    oExpl:AddItem("S2.1","BR_ROXO","#2100",.T.))aAdd(aPanels,    oExpl:AddItem("S2.2","BR_ROXO","#2200",.T.))oExpl:EndTree() //Fecha Item//Desenha nos paineis de cada item@50,50 SAY "SELECIONOU A OPCAO: Item01"	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[1])@50,50 SAY "SELECIONOU A OPCAO: S1.1" 	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[2])@50,50 SAY "SELECIONOU A OPCAO: S1.2" 	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[3])@50,50 SAY "SELECIONOU A OPCAO: S1.3" 	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[4])@50,50 SAY "SELECIONOU A OPCAO: S1.3.1"	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[5])@50,50 SAY "SELECIONOU A OPCAO: S1.3.2"	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[6])@50,50 SAY "SELECIONOU A OPCAO: S1.3.3"	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[7])@50,50 SAY "SELECIONOU A OPCAO: Item02"	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[8])@50,50 SAY "SELECIONOU A OPCAO: S2.1" 	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[9])@50,50 SAY "SELECIONOU A OPCAO: S2.2" 	PIXEL SIZE 150,25 OF oExpl:GetPanel(aPanels[10])//Exibe a MsExplorer                                                                oExpl:Activate(.T.)Return

Preview

Image RemovedImage Added

Abrangência
Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10

Veja Também
DBTree, TPanel