Error in Class TRibbonBar?

Error in Class TRibbonBar?

Postby gkuhnert » Tue Jul 20, 2010 12:47 pm

Hi,

following error occurs (for example in samples\ribbon.prg) when I open the backstage menu, then press ALT followed by any number:

Code: Select all  Expand view
Application
===========
   Path and name: D:\fw1006\fwh\samples\ribbon.exe (32 bits)
   Size: 1,660,928 bytes
   Time from start: 0 hours 0 mins 3 secs
   Error occurred at: 07/20/10, 14:43:44
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: END
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => END(0)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:ADDACTIONTABS(1290)
   Called from: .\source\classes\TRIBBON.PRG => (b)ADDACTION(1722)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RUNACTION(1257)
   Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR:KEYBMODE(1115)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN(2560)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN(848)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYDOWN(788)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT(956)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(976)
   Called from: ribbon.prg => MAIN(178)

System
======
   CPU type: AMD Athlon(tm) 64 Processor 3200+ 2017 Mhz
   Hardware memory: -1024 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6714)
   Windows version: 6.0, Build 6001 Service Pack 1

   Windows total applications running: 65
   ...

Variables in use
================
   Procedure     Type   Value
   ==========================
   END
     Local   1:    A    Len:    0
     Local   2:    U    
     Local   3:    U    
   TRIBBONBAR:ADDACTIONTABS
     Param   1:    N    2
     Local   1:    O    Class: TRIBBONBAR
   (b)ADDACTION
     Local   1:    U    
   TRIBBONBAR:RUNACTION
     Param   1:    N    50
     Local   1:    U    
     Local   2:    O    Class: TRIBBONBAR
     Local   3:    N    2
     Local   4:    U    
   (b)TRIBBONBAR:KEYBMODE
     Param   1:    N    50
     Param   2:    N    196609
   TWINDOW:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    U    
   TCONTROL:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   TRIBBONBAR:KEYDOWN
     Param   1:    N    50
     Param   2:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   TWINDOW:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
   TCONTROL:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    U    
   TRIBBONBAR:HANDLEEVENT
     Param   1:    N    256
     Param   2:    N    50
     Param   3:    N    196609
     Local   1:    O    Class: TRIBBONBAR
   _FWH
     Param   1:    N    196609
     Param   2:    N    256
     Param   3:    N    50
     Param   4:    N    196609
     Param   5:    N    2
     Local   1:    O    Class: TRIBBONBAR
   WINRUN
     Param   1:    N    3410130
   TWINDOW:ACTIVATE
     Param   1:    C    "NORMAL"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    U    
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    O    Class: TRIBBONBAR
     Local   2:    O    Class: TWINDOW
     Local   3:    O    Class: TMENU
     Local   4:    O    Class: TRBGROUP
     Local   5:    O    Class: TRBGROUP
     Local   6:    O    Class: TRBGROUP
     Local   7:    O    Class: TRBGROUP
     Local   8:    O    Class: TRBGROUP
     Local   9:    U    
     Local  10:    O    Class: TRBTN
     Local  11:    O    Class: TRBTN
     Local  12:    O    Class: TRBTN
     Local  13:    O    Class: TRBTN
     Local  14:    O    Class: TRBTN
     Local  15:    O    Class: TRBTN
     Local  16:    O    Class: TRBTN
     Local  17:    O    Class: TRBTN
     Local  18:    O    Class: TRBTN
     Local  19:    O    Class: TRBTN
     Local  20:    O    Class: TRBTN
     Local  21:    O    Class: TRBTN
     Local  22:    O    Class: TRBTN
     Local  23:    O    Class: TRBTN
     Local  24:    U    
     Local  25:    O    Class: TRBTN
     Local  26:    O    Class: TRBTN
     Local  27:    O    Class: TRBTN
     Local  28:    O    Class: TRBTN
     Local  29:    O    Class: TRBTN
     Local  30:    O    Class: TRBTN
     Local  31:    O    Class: TRBTN
     Local  32:    O    Class: TRBTN
     Local  33:    O    Class: TRBTN
     Local  34:    O    Class: TRBTN
     Local  35:    O    Class: TRBTN
     Local  36:    O    Class: TRBTN
     Local  37:    O    Class: TRBTN
     Local  38:    O    Class: TRBTN
     Local  39:    O    Class: TRBTN
     Local  40:    O    Class: TRBTN
     Local  41:    O    Class: TRBTN
     Local  42:    O    Class: TRBTN
     Local  43:    O    Class: TRBTN
     Local  44:    O    Class: TRBTN
     Local  45:    O    Class: TRBTN
     Local  46:    O    Class: TRBTN
     Local  47:    L    .T.
     Local  48:    O    Class: TRBTN
     Local  49:    O    Class: TRBTN
     Local  50:    O    Class: TRBTN
     Local  51:    O    Class: TRBTN
     Local  52:    A    Len:    2
     Local  53:    A    Len:    2

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFNTX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TMENU
     6 TMENUITEM
     7 TWINDOW
     8 TBRUSH
     9 TFONT
    10 TCONTROL
    11 TRIBBONBAR
    12 TRPANEL
    13 TBACKSTAGE
    14 TBACKSTAGEOPTION
    15 TRBTN
    16 TRBGROUP
    17 TMSGBAR
    18 TRECT
    19 TMSGITEM
    20 TTIMER
    21 TPANEL
    22 TREG32

Memory Analysis
===============
      135 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands

Re: Error in Class TRibbonBar?

Postby Patricio Avalos Aguirre » Thu Jul 22, 2010 8:25 pm

Hello


That happens when the ribbon this shallow and ESC presses the key himself
Eso sucede cuando el ribbon esta vacio y se presiona ESC


Code: Select all  Expand view
Application
===========
   Path and name: C:\FWH\samples\ribbon.exe (32 bits)
   Size: 1,680,896 bytes
   Time from start: 0 hours 0 mins 4 secs
   Error occurred at: 07/22/10, 16:23:09
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: END
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => END(0)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RESETACC(1271)
   Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYCHAR(769)
   Called from: c:\fwh\source\classes\CONTROL.prg => TRPANEL:KEYCHAR(717)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: c:\fwh\source\classes\CONTROL.prg => TRPANEL:HANDLEEVENT(1483)
   Called from: c:\fwh\source\classes\WINDOW.prg => _FWH(3391)
   Called from:  => WINRUN(0)
   Called from: c:\fwh\source\classes\WINDOW.prg => TWINDOW:ACTIVATE(976)
   Called from: ribbon.prg => MAIN(178)
 
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Re: Error in Class TRibbonBar?

Postby Patricio Avalos Aguirre » Thu Jul 22, 2010 8:44 pm

Una posible solución sería

Code: Select all  Expand view
METHOD KeyChar( nKey, nFlags ) CLASS TRibbonBar

   if ::lAccActivated
      if nKey == VK_ESCAPE .and. ::oPanelAcc <> NIL //aqui
         ::ResetAcc()
      endif
   endif

return Super:KeyChar( nKey, nFlags )
 
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Re: Error in Class TRibbonBar?

Postby gkuhnert » Fri Jul 23, 2010 7:59 am

Ok, that will only work for pressing 'ESC'
Pressing a number must be intercepted in Method LButtonDown I guess.
Best Regards,

Gilbert Kuhnert
CTO Software GmbH
http://www.ctosoftware.de
User avatar
gkuhnert
 
Posts: 274
Joined: Fri Apr 04, 2008 1:25 pm
Location: Aachen - Germany // Kerkrade - Netherlands

Re: Error in Class TRibbonBar?

Postby Antonio Linares » Fri Jul 23, 2010 8:53 am

Gilbert, Patricio,

We are going to review it as soon as possible. Sorry for the delay, thanks :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41476
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

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