Histórico da Página

Este componente esta disponivel em build superior a 131227A.

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

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

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

oBrowse:setRowsHeight(45) --> Nil

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

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

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

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

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

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

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

@ 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)

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

oBrowse:setTitle(2, "Novo titulo")

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

oBrowse:setCurrentCell(2, 2)

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

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

TGridContainer:setCurrentCellitem( < nRow>, < nCol>, < cText>, < nRowSpan>, < nColSpan>, < nAlign> ) --> TPanelNIL

#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

// Cria célula retornando painel que ficara disponivel para uso
oPanel := oBrowse:item(nX2,62,strZero(nX2,3),,,ALIGN_LEFT_VC)

// Insere objeto do tipo botão no painel contido na célula
oButton := TButton():New( 0, 0, "1",oPanel,{|| msgAlert("Click")} ,40,10)

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

oBrowse:setAlterColor(.T.)

TGridContainer:setBehavior( nComportamento ) 

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

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

oBrowse:removeRow(2)