FiveTech Software tech support forums

Hi, The sample prg is below. When I click right click, I want to select the item before showpopup. #include "FiveWin.ch" function Main()    local oDlg, oTree    DEFINE DIALOG oDlg    @ 0, 0 TREEVIEW oTree OF oDlg SIZE 200, 200            oTree:bRClicked ...

... } oBrwX:bClrRowFocus := { || { CLR_BLACK, RGB(185,220,255) } } oBrwX:nMarqueeStyle := MARQSTYLE_HIGHLROW oBrwX:bRClicked := { | nRow, nCol | ShowPopup( nRow, nCol, oBrwX ) } oBrwX:aCols[1]:cSortOrder := 'APELLIDO_P' oBrwX:aCols[2]:cSortOrder := 'R_POLIZA' oBrwX:lFastEdit := .t. oBrwX:bClrStd:= ...

... ( oGet:SetFocus() ) // ENDMENU DEFINE BUTTON oLetras OF oBar ; PROMPT "Mm" ; // FILE ".\BITMAPS\Mm.BMP" ACTION ( oLetras:ShowPopup() ) ; //MsgInfo( "En gestión", "Aún no disponible" ), lChange := .t., lAct := .t. ) TOOLTIP { "Cambiar: Mayúsculas ...

... @ 2, 2 SAY "right click" OF oDlg ACTIVATE DIALOG oDlg CENTERED ; VALID MsgYesNo( "Want to end ?" ) ; ON RIGHT CLICK ShowPopup( oDlg ) return nil function ShowPopup( oDlg ) local oPopup MENU oPopup POPUP MENUITEM "One" RESOURCE "gtk-new" ACTION ...

... POPUP MENUITEM "One" ACTION MsgInfo( 1 ) MENUITEM "Two" ACTION MsgInfo( 2 ) ENDMENU DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ; RESOURCE "people" PROMPT "Clients" GROUP ; MENU oPopup TOOLTIP "Clients" DEFINE BUTTON OF oBar ACTION Barra2(oBar) ...

... POPUP MENUITEM "One" ACTION MsgInfo( 1 ) MENUITEM "Two" ACTION MsgInfo( 2 ) ENDMENU DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ; RESOURCE "people" PROMPT "Clients" GROUP ; MENU oPopup TOOLTIP "Clients" DEFINE BUTTON OF oBar ACTION Barra2(oBar) ...

... .\source\classes\XBROWSE.PRG => TXBROWSE:CREATEFROMCODE(0) Called from: AD_MAIN.prg => XBROWSEARRAY(1937) Called from: AD_MAIN.prg => (b)SHOWPOPUP(396) Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(0) Called from: AD_MAIN.prg => SHOWPOPUP(431) Called from: AD_MAIN.prg ...

... ALBARANES(187) Called from: geshinic.prg => (b)MAIN(86) Called from: MENU.PRG => TMENU:ACTIVATE(0) Called from: BTNBMP.PRG => TBTNBMP:SHOWPOPUP(0) Called from: geshinic.prg => (b)MAIN(96) Called from: BTNBMP.PRG => TBTNBMP:CLICK(0) Called from: BTNBMP.PRG => TBTNBMP:LBUTTONUP(0) ...

Luis:

Prueba declarandolo asi

REDEFINE BTNBMP Nbut[9] id 116 of oDlg resource "BTNSINFAC","BTNSINFAC1" ACTION SHOWPOPUP(nbut[9],olbx) ;
MENU SHOWPOPUP(nbut[9],olbx) NOBORDER


Saludos

Ruben Fernandez

Bueno yo lo había hecho así REDEFINE BTNBMP Nbut[9] id 116 of oDlg resource "BTNSINFAC","BTNSINFAC1" ACTION SHOWPOPUP(nbut[9],olbx) NOBORDER ////// static function ShowPopup(odlg,olbx ) local oPopup MENU oPopup POPUP MENUITEM "Clientes" ACTION sinfac(olbx,.f.) MENUITEM "Proveedores" ...

... "Calendar" MENU oPopup POPUP MENUITEM "One" ACTION MsgInfo( 1 ) MENUITEM "Two" ACTION MsgInfo( 2 ) ENDMENU DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ; RESOURCE "people" PROMPT "Clients" GROUP ; MENU oPopup TOOLTIP "Clients" DEFINE BUTTON OF oBar ACTION MsgInfo( "Print" ) ; RESOURCE "print" ...

... := {|o,x| aLin[ oBrw:nArrayAt,2] := x } oBrw:aCols[2]:nEditType := EDIT_GET //-- oBrw:CreateFromCode() oBrw:bRClicked = { | nRow, nCol | ShowPopup( nRow, nCol, oBrw, aLin ) } oWnd:oClient:=oBrw ACTIVATE WINDOW oWnd RETURN NIL //----------------------------------- STATIC FUNCTION Valida( ...

... "Calendar" MENU oPopup POPUP MENUITEM "One" ACTION MsgInfo( 1 ) MENUITEM "Two" ACTION MsgInfo( 2 ) ENDMENU DEFINE BUTTON oBtn OF oBar ACTION oBtn:ShowPopup() ; RESOURCE "people" PROMPT "Clients" GROUP ; MENU oPopup TOOLTIP "Clients" DEFINE BUTTON OF oBar ACTION Test() ; RESOURCE "print" PROMPT ...

... En FWPPC, el ejemplo samples\Gps.prg, muestra como usar el GPS desde Fivewin para PPC. Muchas gracias a Salvador Gallardo !!! * Nuevo: Método ShowPopup() en la clase TBtnBmp, permite mostrar el "popup" de un objeto BtnBmp, si un "popup" es definido para ello, como la acción del botón. Por ...

... * New: FWPPC, samples\Gps.prg shows how to use the GPS with FiveWin for Pocket PC. Many thanks to Salvador Gallardo! * New: Class TBtnBmp() Method ShowPopup(), lets you show the popup of the BtnBmp object, if a popup for it is defined, as the action of the button. Please review samples\Test2007.prg ...