oApp:aBmps[nY,nX]:baction:= {|Self|::ShowPopUp( { |oBtn| BtnPopMenu( oBtn ) } )}
it run for some buttons then sometimes it show this error
- Code: Select all Expand view
Application
===========
Path and name: C:\Users\silvio\Desktop\Release_TPlan\Normale_monoutente\Bikini\main.Exe (32 bits)
Size: 7,095,296 bytes
Compiler version: Harbour 3.2.0dev (r1904111533)
FiveWin version: FWH 19.05
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 4 mins 40 secs
Error occurred at: 25-07-2019, 21:36:43
Error description: Error BASE/1004 Metodo non disponibile: END
Args:
[ 1] = U
Stack Calls
===========
Called from: => END( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:SHOWPOPUP( 2046 )
Called from: source\PSpiaggia.prg => (b)CHANGE_PLAN( 828 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 697 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 983 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2006 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 )
Called from: source\main.prg => TAPPLICATION:ACTIVATE( 406 )
Called from: source\main.prg => MAIN( 77 )
the menu popup is made with
- Code: Select all Expand view
- MENU oPop POPUP
MENUITEM cDescElemento+" numero "+ Ltrim(str( ncella)) DISABLED
If nstatus = 2
MENUITEM "Visualizza prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno") FILENAME ".\bitmaps\edit_Prenota.png"
MENUITEM "Elimina prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno") FILENAME ".\bitmaps\del_Prenota.png"
MENUITEM "Salda prenotazione " +IF(lgiornaliero,(IF(lMattina,"Mattina","Pomeriggio")),"Tutto il giorno") FILENAME ".\bitmaps\salda_Prenota.png"
MENUITEM "Sposta il cliente " action nil
ELSEIF nstatus = 5 // revisionare per Free
MENUITEM "Giornaliero " FILENAME ".\bitmaps\time.png" action Invoice(oBtn)
MENUITEM "Periodico " FILENAME ".\bitmaps\Prenota.png" action NIL
Endif
SEPARATOR
MENUITEM "Disponibilità " action ShowTables( LoadData(cTypeRoom),ncella, cTypeRoom,oBtn,cTitle4Disponibile,oBold )
ENDMENU
return oPop
on June 2018 Nages sad me to make a modify into btnbmp class on this topic
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=35769&p=213170&hilit=showpopup#p213170
I thinked it is made on the last release april 2019 but on my release I found different lines