topic-10812

Board index FiveWin para Harbour/xHarbour txbrowse :nColSel

Posts: 71

Joined: Mon Jan 28, 2008 11:18 AM

txbrowse :nColSel
Posted: Sat Apr 19, 2008 08:52 PM

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 Collapse

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

Daniel Lopes Filho - Campo Grande,MS,Brasil
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6693) + gtwvw + fw 10.2 + vsx e
fw pcc (ainda não usei)
msn : zazibr@hotmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

txbrowse :nColSel
Posted: Tue Apr 22, 2008 07:14 PM

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

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

zazibr

Posts: 71

Joined: Mon Jan 28, 2008 11:18 AM

txbrowse :nColSel
Posted: Wed Apr 23, 2008 11:22 AM

esta dando erro na compilação

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

Daniel Lopes Filho - Campo Grande,MS,Brasil
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6693) + gtwvw + fw 10.2 + vsx e
fw pcc (ainda não usei)
msn : zazibr@hotmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

txbrowse :nColSel
Posted: Thu Apr 24, 2008 09:47 AM

Pruébalo asi:

Code: Select all Collapse

#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

regards, saludos

Antonio Linares
www.fivetechsoft.com

zazibr

Posts: 71

Joined: Mon Jan 28, 2008 11:18 AM

txbrowse :nColSel
Posted: Thu Apr 24, 2008 12:49 PM

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: Select all Collapse

Daniel Lopes Filho - Campo Grande,MS,Brasil
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6693) + gtwvw + fw 10.2 + vsx e
fw pcc (ainda não usei)
msn : zazibr@hotmail.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

txbrowse :nColSel
Posted: Thu Apr 24, 2008 12:52 PM

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

Code: Select all Collapse

#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>\}]  )

regards, saludos

Antonio Linares
www.fivetechsoft.com

zazibr

Posts: 71

Joined: Mon Jan 28, 2008 11:18 AM

txbrowse :nColSel
Posted: Thu Apr 24, 2008 11:35 PM

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

Code: Select all Collapse

               [ <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 ?

Daniel Lopes Filho - Campo Grande,MS,Brasil
xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6693) + gtwvw + fw 10.2 + vsx e
fw pcc (ainda não usei)
msn : zazibr@hotmail.com

FiveTech Support Forums

Continue the discussion