Árvore de páginas

Cria um objeto do tipo grade, que permite a inserção de outros objetos visuais em suas células.
Este componente não deve ser utilizado para edição de informações.

Este componente esta disponivel em build superior a 131227A.

Hierarquia

TSrvObject -> TControl -> TGridContainer

Construtor

Sintaxe

TGridContainer():New( < anRow>, <anCol> , <anWidth> , <anHeigth> , <anRows> , <anCols> , <aoWnd> , <alShowGrid> , <alShowHeader> , <abKeyBlock> ) --> oObjeto

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

anRow

Numerico

Coordenada Vertical

X

 

anCol

Numerico

Coordenada Horizontal

X

 

anWidth

Numerico

Largura

X

 

anHeigth

Numerico

Altura

X

 

anRows

Numerico

Numero de linhas

X

 

anCols

Numerico

Numero de colunas

X

 

aoWnd

Objeto

Indica o controle visual onde o componente será criado.

X

 

alShowGrid

Lógico

Se .T. exibe as linhas divisórias entre as células

 

 

alShowHeader

Lógico

Se .T. exibe o cabeçalho da Grade

 

 

abKeyBlock

Bloco de código

Indica o bloco de código que será disparado ao pressionar apenas o Enter e o Return

 

 

Retorno

oObjeto (objeto)
Retorna o objeto.

Exemplo

nLines := 10
nCols  := 5		
oBrowse := TGridContainer():New( 01, 01, 260, 156, nLines, nCols, oPanel1, lShowGrid, lShowHeader, {|o,nKey| pressedKey(o, nKey)} )

Métodos

setRowsHeight

Define altura de todas as linhas da Grade.

Sintaxe

TGridContainer:setRowsHeight ( < nHeight> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nHeight

Numerico

Altura de todas as linhas da Grade

X

 

Exemplo

oBrowse:setRowsHeight(45) --> Nil

setRowHeight

Define altura da linha desejada.

Sintaxe

TGridContainer:setRowHeight( < nRow>, < nHeight> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha a ser ajustada

X

 

nHeight

Numerico

Altura da linha

X

 

Exemplo

oBrowse:setRowHeight(2, 45) --> Nil

setColWidth

Define a largura da coluna desejada.

Sintaxe

TGridContainer:setColWidth( < nCol>, < nWidth> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nCol

Numerico

Coluna a ser ajustada

X

 

nWidth

Numerico

Largura da coluna

X

 

Exemplo

oBrowse:setColWidth(2, 100) --> Nil

setSpan

Aglutina linhas e colunas a fim de criar células compostas.

Sintaxe

TGridContainer:setSpan( < nRow>, < nCol>, < nRowSpan>, < nColSpan> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha inicial a ser aglutinada

X

 

nCol

Numerico

Coluna inicial a ser aglutinada

X

 

nRowSpan

Numerico

Numero de Linhas para aglutinar

X

 

nColSpan

Numerico

Numero de Colunas para aglutinar

X

 

Exemplo

oBrowse:setSpan(3,4,3,4) --> Nil

setCellWidget

Define um objeto visual que será inserido em determinada célula.

Sintaxe

TGridContainer:setCellWidget( < nRow>, < nCol>, < oObjeto> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha

X

 

nCol

Numerico

Coluna

X

 

oObjeto

Objeto

Objeto visual

X

 

Exemplo

@ 029, 021 MSPANEL frameNew SIZE 143, 040 OF oDlg
@ 005, 004 SAY oSay PROMPT "TPANEL - SetCellWidget" SIZE 063, 007 OF frameNew COLORS 8421376, 16777215 PIXEL
frameNew:blClicked := {|| oBrowse:SetCurrentCell(nRow, nCol) }

oBrowse:setCellWidget(2, 2, frameNew)

setTitle

Define o titulo de determinada coluna.

Sintaxe

TGridContainer:setTitle( < nCol>, < cTitle> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nCol

Numerico

Coluna a ser ajustada

X

 

cTitle

Caracter

Titulo a ser definido para a coluna

X

 

Exemplo

oBrowse:setTitle(2, "Novo titulo")

setCurrentCell

Posiciona o cursor na linha/coluna desejada.

Sintaxe

TGridContainer:setCurrentCell( < nRow>, < nCol> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha a ser posicionada

X

 

nCol

Numerico

Coluna a ser posicionada

X

 

Exemplo

oBrowse:setCurrentCell(2, 2)

getPos

Recupera a linha/coluna selecionada.

Sintaxe

TGridContainer:getPos( < aPos> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

aPos

Vetor

Vetor que recebera a linha/coluna posicionada

X

X

Exemplo

aGridPos := {}
oBrowse:getPos(aGridPos)
msgAlert('Linha: ' + cValTochar(aGridPos[1])+ ' - 'Coluna: ' + cValToChar(aGridPos[2]) )

item

Insere valor em uma determinada célula.

Sintaxe

TGridContainer:item( < nRow>, < nCol>, < cText>, < nRowSpan>, < nColSpan>, < nAlign> ) --> NIL

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha a ser utilizada

X

 

nCol

Numerico

Coluna a ser utilizada

X

 

cText

Caracter

Texto a ser exibido na célula

 

 

nRowSpan

Numerico

Numero de Linhas para aglutinar

 

 

nColSpan

Numerico

Numero de Colunas para aglutinar

 

 

nAlign

Numerico

Alinhamento para exibição do texto da célula

 

 

Exemplo

#define ALIGN_LEFT     		1
#define ALIGN_LEFT_VC 		2 // VC = Vertical Centered
#define ALIGN_CENTER 		3
#define ALIGN_CENTER_VC 	4
#define ALIGN_RIGHT 		5
#define ALIGN_RIGHT_VC		6

oBrowse:item(2,2,strZero(2,3),,,ALIGN_LEFT_VC)

setAlterColor

Se definifido .T. habilita cor alternada da Grade.

Sintaxe

TGridContainer:setAlterColor( < lAlterColor> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

lAlterColor

Lógico

Se definifido .T. habilita cor alternada da Grade

X

 

Exemplo

oBrowse:setAlterColor(.T.)

setBehavior

Define comportamento de seleção das células da Grade.

Sintaxe

TGridContainer:setBehavior( nComportamento ) 

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nComportamento

Numerico

Define comportamento de seleção de células

X

 

Exemplo

oBrowse:setBehavior( 1 ) // Seleciona célula
oBrowse:setBehavior( 2 ) // Seleciona toda a linha
oBrowse:setBehavior( 3 ) // Seleciona toda a coluna

removeRow

Remove a linha desejada.

Sintaxe

TGridContainer:removeRow( < nRow> ) --> Nil

Parametros

Nome

Tipo

Descrição

Obrigatório

Referência

nRow

Numerico

Linha a ser removida

X

 

Exemplo

oBrowse:removeRow(2)
  • Sem rótulos