TCBrowse

TCBrowse(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ bLine], [ aHeaders], [ aColSizes], [ oWnd], [ cField], [ uValue1], [ uValue2], [ bChange], [ bLDblClick], [ bRClick], [ oFont], [ oCursor], [ nClrFore], [ nClrBack], [ cMsg], [ uParam20], [ cAlias], [ lPixel], [ bWhen], [ uParam24], [ bValid], [ lHScroll], [ lVScroll] ) --> oObjeto

()
• Retorna o objeto criado.

oBrowse := TCBrowse():New( 01 , 01, 260, 156,,;                           {'','Codigo','Nome','Valor'},{20,50,50,50},;                           oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,, )

TCBrowse(): AddColumn ( < oColuna> ) -->

Para mais informações, consulta a documentação da classe TCColumn.

// Cria browseDbSelectarea("SA1")oBrowse := TCBrowse():New( 01 , 01, 260, 156,,;                     {'Codigo','Loja','Nome'},{50,50,50},;                     oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,, )// Adiciona colunasoBrowse:AddColumn(TCColumn():New("Codigo",{||SA1->A1_COD },,,,"LEFT",,.F.,.F.,,,,.F.,))oBrowse:AddColumn(TCColumn():New("Loja"  ,{||SA1->A1_LOJA},,,,"LEFT",,.F.,.F.,,,,.F.,))oBrowse:AddColumn(TCColumn():New("Nome"  ,{||SA1->A1_NOME},,,,"LEFT",,.F.,.F.,,,,.F.,))

TCBrowse(): ColPos ( ) --> nColuna

()
• Retorna o número da coluna posicionada.

oBrowse:ColPos()   // Result: 2

TCBrowse(): DrawSelect ( ) -->

oBrowse:DrawSelect()

TCBrowse(): GetBrowse ( ) --> oBrowse

()
• Retorna o objeto da classe TCBrowse.

oBrowse:GetBrowse()

TCBrowse(): GetBrwOrder ( ) --> aTitulos

()
• Retorna um array com os títulos, definidos pelo usuário, das colunas.

oBrowse:GetBrwOrder()   // Result: {"Titulo01","Titulo02","Titulo03"}

TCBrowse(): GetCellRect ( ) -->

Para mais informações, consulte a documentação da classe TRect.

// Variável que receberá as coordenadasoRect := tRect():New(0,0,0,0)            // Retorna as coordenadas da célula na variável oRectnColuna := 1nLinha := 2oBrowse:GetCellRect(nColuna, nLinha, oRect)  // Result: oRect:nLeft = 186                                             //         oRect:nRight = 183                                             //         oRect:nTop = 223                                              //         oRect:nBottom = 220

TCBrowse(): GetColSizes ( ) --> aSizes

()
• Retorna um array com as larguras das colunas.

oBrowse:GetColSizes()   // Result: {20,50,50,50}

TCBrowse(): GoBottom ( ) -->

oBrowse:GoBottom()

TCBrowse(): GoColumn ( < nColuna> ) -->

oBrowse:GoColumn(2)

TCBrowse(): GoDown ( ) -->

oBrowse:GoDown()

TCBrowse(): GoLeft ( ) -->

oBrowse:GoLeft()

TCBrowse(): GoPosition ( < nLinha> ) -->

oBrowse:GoPosition(2)

TCBrowse(): GoRight ( ) -->

oBrowse:GoRight()

TCBrowse(): GoTop ( ) -->

oBrowse:GoTop()

TCBrowse(): GoUp ( ) -->

oBrowse:GoUp()

TCBrowse(): nAtCol ( < nColPix>, [ lIncludeFreeze] ) --> nColuna

()
• Retorna a coluna na posição desejada.

oBrowse:nAtCol(20,.F.)   // Result: 3

TCBrowse(): nRowCount ( ) --> nLinhas

()
• Retorna o número de linhas que estão visíveis no browse.

oBrowse:nRowCount()   // Result: 50

TCBrowse(): PageDown ( < nLines> ) -->

oBrowse:PageDown(1)

TCBrowse(): PageUp ( < nLines> ) -->

oBrowse:PageUp(1)

TCBrowse(): ResetLen ( ) -->

oBrowse:ResetLen()

TCBrowse(): SetArray ( < aDados> ) -->

// Cria o BrowseoBrowse := TCBrowse():New( 01 , 01, 260, 156,,;                         {'','Codigo','Nome','Valor'},{20,50,50,50},;                         oDlg,,,,,{||},,,,,,,.F.,,.T.,,.F.,,, )// Vetor com informaçõesaBrowse   := {{.T.,'CLIENTE 001','RUA CLIENTE 001',111.11},;              {.F.,'CLIENTE 002','RUA CLIENTE 002',222.22},;              {.T.,'CLIENTE 003','RUA CLIENTE 003',333.33} }// Define vetor para a browse                            oBrowse:SetArray(aBrowse) 

TCBrowse(): SetBlkBackColor ( < bColor> ) -->

bColor := &("{|| if(aCols[n,Len(aCols[n])],"+Str(CLR_LIGHTGRAY)+","+Str(CLR_WHITE)+")}")oBrowse:SetBlkBackColor(bColor)

TCBrowse(): SetBlkColor ( < bColor> ) -->

bColor := &("{|| if(aCols[n,Len(aCols[n])],"+Str(CLR_WHITE)+","+Str(CLR_BLACK)+")}")oBrowse:SetBlkColor(bColor)

TCBrowse(): SetFilter ( < cCampo>, [ uVal1], [ uVal2] ) -->

Para utilizar esse método, é necessário que o browse esteja definido para usar tabela.

// Cria parametros do filtrocCpofil :=  "A1_FILIAL"cTopFun := "xFilial('SA1')"cBotFun := cTopFun // Define o filtrooBrowse:SetFilter(cCpoFil, &cTopFun, &cBotFun)

TCBrowse(): SetHeaderImage ( < nColuna>, < cImagem> ) -->

// Define uma imagem na segunda coluna do browseoBrowse:SetHeaderImage(2,"c:\dir\img_cabec.png")

TCBrowse(): SetOrder ( < nColuna> ) -->

Para utilizar esse método, é necessário que o browse esteja definido para usar tabela.

nColuna := 2oBrowse:SetOrder(nColuna)

TCBrowse(): Skip ( < nSkip> ) --> nSkipped

()
• Retorna o número de linhas que o ponteiro do mouse saltou.

oBrowse:Skip(2)