txbrowse :nColSel

[zazibr]

ola pessoal do forum


o metodo :nColSel


existe algum método que me retorne o numero da coluna independe se estiver visível na tela ? porque :nColSel so atualiza as colunas visíveis


so funciona se usar o mouse ... se usar setas (esquerda/direita) nao atualiza se mudar a linha atualiza

video
http://www.lopes.ms/fw/m%e9todo%20-%20nColSel.htm

segue exemplo

Code: Select all  Expand view  RUN

oBrwGradeProduto := TxBrowse():New( oWinGradeProduto )
oBrwGradeProduto:nFreeze             := 2  // Congelar ate a coluna 2
oBrwGradeProduto:nHeaderLines        := 2  // Numero de Linhas
oBrwGradeProduto:lAllowColSwapping   :=.F. // Trocar Colunas
oBrwGradeProduto:lHScroll            :=.F. // Desabilitar Linha Horizontal de Rolagem
oBrwGradeProduto:nColSel             := 3
oBrwGradeProduto:nRowHeight          := 18

oBrwGradeProduto:nMarqueeStyle       := MARQSTYLE_HIGHLCELL
oBrwGradeProduto:nColDividerStyle    := LINESTYLE_BLACK  // Linha Vertical
oBrwGradeProduto:lColDividerComplete := .t.              // Preencher as Colunas ate o final da tela
oBrwGradeProduto:bChange      := {|| ExibeDadosGrade() }


******
Function ExibeDadosGrade()
******
memvar oBrwGradeProduto
memvar otxtCompatibilidades
memvar  txtCompatibilidades

oBrwGradeProduto:Refresh()
txtCompatibilidades := "Coluna : " + Str( oBrwGradeProduto:nColSel,3 ) + "  " + "Linha : " + Str( oBrwGradeProduto:nRowSel,3 )
otxtCompatibilidades:refresh()
Return nil



[Antonio Linares]

En este ejemplo, pulsa las teclas izquierda ó derecha y luego pulsa espacio:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oDlg, oBrw

   DEFINE DIALOG oDlg SIZE 300, 200

   @ 0, 0 XBROWSE oBrw OF oDlg ARRAY { { "one","two","three" } } AUTOCOLS
     
   oBrw:CreateFromCode()
   oBrw:bKeyDown = { || oDlg:SetText( Str( oBrw:nColSel ) ) } 
     
   ACTIVATE DIALOG oDlg CENTER ON INIT ( oDlg:oClient := oBrw, oDlg:Resize() )

return nil


[zazibr]

esta dando erro na compilação


TESTE_TXBROWSE.PRG(10) Error E0030 Syntax error: "syntax error at '{'" █

[Antonio Linares]

Pruébalo asi:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "xbrowse.ch"

function Main()

   local oDlg, oBrw, aData := { { "one","two","three" } }

   DEFINE DIALOG oDlg SIZE 300, 200

   @ 0, 0 XBROWSE oBrw OF oDlg ARRAY aData AUTOCOLS
     
   oBrw:CreateFromCode()
   oBrw:bKeyDown = { || oDlg:SetText( Str( oBrw:nColSel ) ) } 
     
   ACTIVATE DIALOG oDlg CENTER ON INIT ( oDlg:oClient := oBrw, oDlg:Resize() )

return nil


[zazibr]

amigo

nao funcionou olha o log


xHarbour Compiler build 1.1.0 (SimpLex)
Copyright 1999-2008, http://www.xharbour.org http://www.harbour-project.org/
Compiling 'TESTE_TXBROWSE.PRG' and generating preprocessed output to 'TESTE_TXBROWSE.ppo'...

100

100

100

200

300

400

500

600

700

800

900

1000

100

200

100

200

100

200

300

400

500

600

700

800

900

1000

1100

1200

1300

1400

1500

TESTE_TXBROWSE.PRG(10) Error E0030 Syntax error: "syntax error at '{'"

1 error

No code generated


segue o meu arquivo .bc

utilizo o hbmake arquivo.bc

[code][/code]

[Antonio Linares]

Por favor comprueba que tengas este código en xbrowse.ch:

Code: Select all  Expand view  RUN

#xcommand @ <nRow>, <nCol> [ COLUMN ] XBROWSE  <oBrw>  ;
               [ [ FIELDS ] <Flds,...>] ;
               [ <dsrc: ALIAS, ARRAY, RECSET, RECORDSET, OBJECT> <uDataSrc> ] ;
               [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ;
               [ <head:HEAD,HEADER,HEADERS> <aHeaders,...> ] ;
               [ <pic: PICS, PICTURE, PICTURES> <aPics,...> ] ;
               [ <cols: COLS, COLUMNS> <aCols,...> ] ;
               [ <idx: SORT,ORDERS> <aSort,...> ] ;
               [ JUSTIFY <aJust,...> ] ;
               [ SIZE <nWidth>, <nHeigth> ] ;
               [ <dlg:OF,DIALOG> <oWnd> ] ;
               [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ;
               [ <change: ON CHANGE, ON CLICK> <uChange> ] ;
               [ ON [ LEFT ] DBLCLICK <uLDblClick> ] ;
               [ ON RIGHT CLICK <uRClick> ] ;
               [ FONT <oFont> ] ;
               [ CURSOR <oCursor> ] ;
               [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
               [ MESSAGE <cMsg> ] ;
               [ <update: UPDATE> ] ;
               [ <pixel: PIXEL> ] ;
               [ WHEN <uWhen> ] ;
               [ <design: DESIGN> ] ;
               [ VALID <uValid> ] ;
               [ <autosort: AUTOSORT> ] ;
               [ <autocols: AUTOCOLS> ] ;
      => ;
          <oBrw> := XbrowseNew( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeigth>,;
                           [ \{ <{Flds}> \} ], ;
                           [\{<aHeaders>\}], [\{<aColSizes>\}], ;
                           [<{uChange}>],;
                           [\{|nRow,nCol,nFlags|<uLDblClick>\}],;
                           [\{|nRow,nCol,nFlags|<uRClick>\}],;
                           <oFont>, <oCursor>, <nClrFore>, <nClrBack>, <cMsg>,;
                           <.update.>, <uDataSrc>, <{uWhen}>,;
                           <.design.>, <{uValid}>, <.pixel.>, nil, <.autosort.>, <.autocols.> , ;
                           [\{<aPics>\}], [\{<aCols>\}],[\{<aJust>\}], [\{<aSort>\}]  )


[zazibr]

as seguintes linhas não existem no meu xbrowse.ch

Code: Select all  Expand view  RUN


               [ <dsrc: ALIAS, ARRAY, RECSET, RECORDSET, OBJECT> <uDataSrc> ] ;
               [ <pic: PICS, PICTURE, PICTURES> <aPics,...> ] ;
               [ <cols: COLS, COLUMNS> <aCols,...> ] ;
               [ <idx: SORT,ORDERS> <aSort,...> ] ;
               [ JUSTIFY <aJust,...> ] ;
               [ <autosort: AUTOSORT> ] ;
               [ <autocols: AUTOCOLS> ] ;
      => ;




o que devo fazer ?
solicitar uma nova versão do fivewin ? eu tenho registro ai com voce ?
comprei o meu produto no brasil www.fivewin.com.br
o que devo fazer ?