Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Nota
titleAtenção

Atenção: Essa classe é de uso interno.

Por favor use a classe TFolder

Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
TWorkSpaceFolder
TWorkSpaceFolder

Classe: TWorkSpaceFolder

Cria um objeto do tipo pasta que recebe um objeto do tipo TWorkSpace.

TSrvObject -> TControl -> TWorkSpaceFolder


New

Método construtor da classe.


TWorkSpaceFolder(): New ( [ oWnd], [ nLeft], [ nTop], [ nWidth], [ nHeight], [ uParam6] ) --> oObjeto



NomeTipoDescriçãoObrigatórioReferência
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.

nLeftArray of RecordIndica a coordenada horizontal.

nTopArray of RecordIndica a coordenada vertical.

nWidthArray of RecordIndica a largura em pixels do objeto.

nHeightArray of RecordIndica a altura em pixels do objeto.

uParam6LógicoCompatibilidade.


oObjeto
    (objeto)
  • Retorna o objeto criado.

oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)

SetOption

Muda a aba selecionada.


TWorkSpaceFolder(): SetOption ( < nAba> ) -->



NomeTipoDescriçãoObrigatórioReferência
nAbaNuméricoIndica o número da aba que será selecionada.X



oWSpaceFolder:SetOption(2)

SetTabIcon

Insere icone em uma determinada aba da WorkSpace.


TWorkSpaceFolder(): SetOption ( < nAba>, <cIcon> ) -->



NomeTipoDescriçãoObrigatórioReferência
nAbaNuméricoIndica o número da aba que será selecionada.X
cIconAlfanuméricoIndica o nome da imagem (recurso)X



oWFolder:SetTabIcon(2, "ws_play.png")

Propriedade


PropriedadeDescriçãoTipo
bCaptionChangedIndica o bloco de código que será executado a cada troca de pasta retornando o próprio objeto ativo e seu respectivo texto (caption).Bloco de código



#include

"TOTVS.CH"

User

Function

TWorkSpaceFolder()

DEFINE

DIALOG

oDlg

TITLE

"Exemplo

TWorkSpaceFolder"

FROM

180,180

TO

550,700

PIXEL oWSpaceFolder :=

PIXEL

oWSpaceFolder := TWorkspaceFolder():New(oDlg,0,0,260,184)


oWSpaceFolder:bCaptionChanged

:=

{|x,c|

Iif(

empty(

c

),

ConOut(

"Empty!"

),

ConOut(

c

)

)

}

oWSpace1

:=

TWorkSpace():New(

"

Totvs

10-Aba

01

",

oWSpaceFolder

)


oWSpace1:SetStatusBarText("Texto

da

barra

de

status

01")

ACTIVATE DIALOG oDlg CENTERED

ACTIVATE DIALOG oDlg CENTERED

Return


Exemplo da classe TWorkSpaceFolder

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server