Páginas filhas
  • MsExplorer

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
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.




New

New

Inicializador da Classe (Construtor)


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


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
    uRet(nulo)
  • Não existe retorno



Activate

Exibe o objeto gráfico (ShowMode)


MsExplorer(): Activate ( ) --> Nil

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

 

AddDefButton

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


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


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
    oBtn()
  • Objeto do botão criado

 

AddItem

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


MsExplorer(): AddItem ( ) -->


 

AddTree

Adiciona um item na arvore a esqueda do painel principal


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


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.
    nRet()
  • Numero do item dentro da arvore

 

DeActivate

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


MsExplorer(): DeActivate ( ) --> Nil

    Nil()
  • Não possui retorno definido.

 

DefaultBar

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


MsExplorer(): DefaultBar ( ) -->


 

EndTree

Finaliza a construção de um item de Arvore


MsExplorer(): EndTree ( ) --> Nil

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

 

GetPanel

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


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


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

 

Refresh

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


MsExplorer(): Refresh ( ) -->


 


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



#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



Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10