topic-43142

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

also the error end on tbtnbmp
Posted: Wed May 03, 2023 08:13 AM

I don't understand I tried at least ten times and now I don't get the error but this morning I got the error
is a simple btnbmp control that opens a popup menu

@ oBrw:nBottom+2, oBrw:nWidth-20 BTNBMP aBtnBrow[3] ;
FLAT ....
ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4]) } )

Error code

Code (fw): Select all Collapse

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: also the error end on tbtnbmp
Posted: Wed May 03, 2023 11:28 AM

PCOMUNI.PRG line 227?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: also the error end on tbtnbmp
Posted: Wed May 03, 2023 11:38 AM

karinha wrote:PCOMUNI.PRG line 227?

Regards, saludos.

ACTION ::ShowPopUp( { |oBtn| MenuContextual(oBtn,oBrw,oDbf,cIniUser,cSection,,,oDlg,aBtnBrow[4]) } ) PCOMUNI.PRG line 227

Code (fw): Select all Collapse

  @ 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])  } )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: also the error end on tbtnbmp
Posted: Wed May 03, 2023 01:20 PM

Silvio, este ejemplo, funciona bien:

Code (fw): Select all Collapse

   @ 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

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: also the error end on tbtnbmp
Posted: Wed May 03, 2023 02:18 PM

Also my source run ok

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion