FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour LISTBOX como obtener el numero de columna actual?
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
LISTBOX como obtener el numero de columna actual?
Posted: Mon Apr 16, 2007 06:24 PM

saludos a todos del Foro, hasta ahora no se como obtener el numero de columna actual de un ListBox :(

tengo el siguiente ListBox un DBF de 3 campos

pero "oBrw2:nColAct" siempre retorna 1 a pesar de que el puntero esta en la 2da o 3ra columna, ¿como hago para que retorne 2 o 3?

@ 01,01 ListBox oBrw2 ;
Fields G->Tco_codi,G->Tco_desc,Str(G->Tco_impo,10,2) ;
Header 'Codigo','Descripcion','Importe' ;
Size 180,90

bGet:={|| uVal:=G->Tco_impo, oBrw2:lEditCol(oBrw2:nColAct,@uVal,,,,), ;
G->Tco_impo:=uVal, oBrw2:Refresh() }

oBrw2:blDblClick:={|| Eval(bGet) }

Se agradecera por la ayuda :lol:

Jaime

Posts: 592
Joined: Tue Mar 14, 2006 11:34 PM
LISTBOX como obtener el numero de columna actual?
Posted: Tue Apr 17, 2007 12:03 AM

Hola, yo uso este procedimiento :

lbCapMvs:bLDblClick := {| nRow, nCol | EdItmXDev( nRow, nCol ) }

Static Function EdItmXDev( nRow, nCol )
LOCAL nColGet := Ascan( lbCapMvs:GetColSizes(), ;
{ | nColumn | nColPos += nColumn, nCol <= nColPos }, lbCapMvs:nColPos )

msginfo( nColGet )

Return NIL

Espero te sirva.

Saludos

FWH 10.6 + xHarbour + Borland 582
Posts: 114
Joined: Fri Nov 24, 2006 09:03 PM
LISTBOX como obtener el numero de columna actual?
Posted: Tue Apr 17, 2007 03:44 PM

Raymundo Gracias, Funciono perfectamente :lol:

Se Agradece

Jaime

Continue the discussion