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)