FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TWBrowse - en que columna hago DBlclick?
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
TWBrowse - en que columna hago DBlclick?
Posted: Wed May 21, 2008 10:35 PM
Buenas tardes,

Uso la TWBrowse de HC. Necesito conocer la columna en la que hago un doble click con el mouse para poder editar esa celda o cambiarle el bitmap (marcado/desmarcado).

En el ejemplo que adjunto funciona bi茅n, pero s贸lo puedo actuar sobre la columna 3 (porque se lo indico). 驴C贸mo hago para saber en que columna estoy haciendo el doble click?.

Gracias.

Rolando :-)

function ListoAccesorios()

	local oDlg , oLbx , aBitmaps
	local aAccesorios:= {{.t. , "ANTENA"} , {.t. , "MEMORY STICK"} , {.f. , "CORREA"}}

	aBitmaps:= {LoadBitmap (GetResources(),"CHECKON") , LoadBitmap (GetResources(),"CHECKOFF") }

	define dialog oDlg resource "LISTA_ACCESORIOS" of oWnd

	redefine listbox oLbx fields ;
			if (aAccesorios[oLbx:nAt,1] , aBitmaps[1] , aBitmaps[2]) , ;
			aAccesorios[oLbx:nAt,2] , ;
			str(aAccesorios[oLbx:nAt,3]) ;
			id 4001 ;
			head "a","Accesorio" , "Cantidad"	;
			of oDlg


	oLbx:bLDblClick := {|| uVar := aAccesorios[oLbx:nAt,3] , oLbx:lEditCol(3,@uVar) , ;
											aAccesorios[oLbx:nAt,3] := uVar , oLbx:refresh() }

	oLbx:setarray(aAccesorios)
	oLbx:bLogicLen := { || len( aAccesorios ) }

	activate dialog oDlg center

return nil
Posts: 593
Joined: Sat May 12, 2007 11:47 AM
TWBrowse - en que columna hago DBlclick?
Posted: Thu May 22, 2008 02:29 AM

Ya lo encontr茅,

Haciendo un oLbx:bEdit:= {|nCol| MiFuncion(nCol)}

Le paso el nro de columna a una funci贸n y en ella indico la acci贸n a tomar cuando se edita una celda.

Rolando :D

Continue the discussion