FiveTech Software tech support forums

Code: Select all  Expand view

Called from:  => END( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SHOWPOPUP( 2091 )
   Called from: source\Pcomuni.prg => (b)COMUNI( 227 )

karinha wrote:PCOMUNI.PRG line 227?

Regards, saludos.

Code: Select all  Expand view

 @ oBrw:nBottom+2, oBrw:nWidth-20 BTNBMP aBtnBrow[3] ;
                FLAT  SIZE 30, 28  OF oDlg   PIXEL ;
                COLOR  nRgb(238,236,219),nRgb(238,236,219) ;
                BITMAP "TOO_TBL" NOROUND  ;
                ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4])  } )
 

Code: Select all  Expand view

   @ oBrw:nBottom + 2, oBrw:nWidth - 20 BTNBMP aBtnBrow[4] ;
      FLAT SIZE 30, 30  OF oTabella   PIXEL                ;
      COLOR  nRgb( 238, 236, 219 ), nRgb( 238, 236, 219 )  ;
      BITMAP "c:\fwh1905\bitmaps\EXIT.bmp" NOROUND         ;
      ACTION ::ShowPopUp( { |oBtn| MenuContextual( oBtn,oBrw,cPrefix + "Aux",cDbf,aGet ) } )


FUNCTION MenuContextual( oControl, oBrw, cIniEntry, cDbf, aGet )

   LOCAL oMenu

   MENU oMenu POPUP
   MENUITEM "Seleziona la linea corrente" ;
      ACTION  NIL

   MENUITEM "Seleziona tutto"

   MENUITEM "Esporta" Action NIL

   MENUITEM "Colonne" ACTION ( SelectColumns( oBrw ), ;
      ChangeBrowse( oBrw, aGet ) )

   ENDMENU

RETURN oMenu