POPUP LISTBOX

POPUP LISTBOX

Postby jponce » Thu Jul 17, 2008 5:09 pm

HOLA NUEVAMENTE A TODOS

ACUALTMENTE TRABAJO CON LISTBOX MIS CONSULTAS

LA FORMA QUE LO HAGO ES LA SIGUENTE

REDEFINE LISTBOX oLbx ;
FIELDS oPreccosCli:Codigo , ;
oPreccosCli:Nombre , ;
transform(oPreccosCli:ventas,"999,999,999.99") , ;
transform(oPreccosCli:Costo ,"999,999,999.99") , ;
transform(oPreccosCli:margen,"999,999,999.99") , ;
transform(oPreccosCli:utilidad,"999,999,999.99")+"%" ;
HEADER "Código","Nombre","Ventas", "Costo","Utilidad","Margen" ;
ID 172 ;
OF oDlg ;
ON DBLCLICK dobleclick_PreccosCod( oPreccos, oPreccosCli, aGets , oWnd ) ;
SIZES 40,250,75,75,75,75 UPDATE

oPreccosCli:SetBrowse( oLbx )

TENGO UN EVENTO QUE ES DBLCLICK , PERO QUIERO SABER COMO HACER PARA DARLE CLICK DERECHO A UN REGISTRO Y QUE ME DESPLIEGUE UN POPUP CON DIFERENTES OPCIONES.

ALGUIEN PODRIA AYUDARME.

ATENTAMENTE,
Julio Rodrigo Ponce Hinestroza
www.suproye.com
jponce
 
Posts: 197
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala

Postby quique » Thu Jul 17, 2008 5:12 pm

Code: Select all  Expand view  RUN
obj:bRClicked := { | nRow, nCol | menu( nRow, nCol ) }

static function menu( nRow, nCol, oCtrl )
   local oMenu
   menu oMenu popup
      menuItem "Opcion"
   endMenu
   activate popup oMenu at nRow, nCol of oCtrl
return nil
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby jponce » Thu Jul 17, 2008 5:37 pm

Hola quique

Probe pero no me funciona que estare haciendo mal

TWbrowse():lHscroll:= .T.
REDEFINE LISTBOX oLbx ;
FIELDS oPreccos:Codigo , ;
oPreccos:Nombre , ;
transform(oPreccos:ventas,"999,999,999.99") , ;
transform(oPreccos:notas,"999,999,999.99") , ;
transform(valc(oPreccos:ventas-oPreccos:Notas),"999,999,999.99") ;
HEADER "Código","Nombre","Ventas", "Notas", "Total" ;
ID 172 ;
OF oWndFact01 ;
SIZES 40,380,75,75,75 UPDATE

oPreccos:SetBrowse( oLbx )

oLbx:nLineHeight := 16
oLbx:nHeaderHeight := 16
//oLbx:nFreeze := 4
oLbx:aHJustify:={2,2,2,2,2}
oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.}

oLbx:bRClicked := { | nRow, nCol | menutomenuop( nRow, nCol ) }



///////////////////////////////////
static function menutomenuop( nRow, nCol, oCtrl )
local oMenu
menu oMenu popup
menuItem "Opcion"
endMenu
activate popup oMenu at nRow, nCol of oCtrl
return nil

///////////////////////////////////



quique wrote:
Code: Select all  Expand view  RUN
obj:bRClicked := { | nRow, nCol | menu( nRow, nCol ) }

static function menu( nRow, nCol, oCtrl )
   local oMenu
   menu oMenu popup
      menuItem "Opcion"
   endMenu
   activate popup oMenu at nRow, nCol of oCtrl
return nil
jponce
 
Posts: 197
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala

Postby quique » Thu Jul 17, 2008 5:40 pm

prueba cambiando

oLbx:bRClicked := { | nRow, nCol | menutomenuop( nRow, nCol, oLbx ) }
Saludos
Quique
User avatar
quique
 
Posts: 408
Joined: Sun Aug 13, 2006 5:38 am

Postby jponce » Thu Jul 17, 2008 5:45 pm

Quique
Asi si me funcionó te agradezoco mucho


Atentamente,
Julio Ponce
jponce
 
Posts: 197
Joined: Fri Apr 18, 2008 4:21 pm
Location: Guatemala


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 58 guests