Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

TRIBBON possível Fix
Posted: Thu Sep 26, 2013 07:07 PM

Ao entrar no meu sistema, se o usuário ficar pressionando ALT+1 (repetidamente) acontecia o erro abaixo:

fix:

METHOD RunAction( nKey, lControl ) CLASS TRibbonBar
substituir:
If nKey > 0
por:
If nKey > 0 .and. ValType( ::cBufferAcc ) == 'C'

METHOD ResetAcc() CLASS TRibbonBar
add:
::aAcc = {}

erro:
Application
===========
Path and name: C:\getpdv\ser\getpdvr.exe (32 bits)
Size: *** bytes
Time from start: 0 hours 0 mins 24 secs
Error occurred at: 24/09/13, 14:24:50
Error description: Error BASE/1081 Argument error: +
Args:
[ 1] = U
[ 2] = C 1

Stack Calls

Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:RUNACTION(1410)
Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR:KEYBMODE(1291)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN(2582)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN(875)
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:KEYDOWN(961)

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: TRIBBON possível Fix
Posted: Sat Sep 28, 2013 02:28 PM

SGS,

This seems as a possible fix, thanks

Code (fw): Select all Collapse

METHOD RunAction( nKey, lControl ) CLASS TRibbonBar

   local nCurrent := 0
   local nTemp

   if nKey > 95 .and. nKey < 106
      nKey -= 48
   endif

   DEFAULT ::cBufferAcc := ""  // new !!!

   If nKey > 0
      ::cBufferAcc += Chr( nKey )
      if Len( ::cBufferAcc ) == 1
         if AScan( ::aAcc, {| uItem | Left( uItem[ 2 ], 1 ) == ::cBufferAcc } ) == 0
            ::cBufferAcc = ""
         endif
      endif

regards, saludos

Antonio Linares
www.fivetechsoft.com

MGA

Posts: 1286

Joined: Mon Feb 25, 2008 02:54 PM

Re: TRIBBON possível Fix
Posted: Sat Sep 28, 2013 10:02 PM

thanks