FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Sr. Antonio - Possível Fix para TRIBBON.PRG
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Sr. Antonio - Possível Fix para TRIBBON.PRG
Posted: Tue Mar 09, 2010 07:12 PM

Sr. Antonio,

CLASSE: TRIBBON.PRG
Ao teclar ALT aparece 1 , 2 , 3, 4 ...
Ao apertar 4 por exemplo e teclar ESC em seguida acontecia o erro:

Error description: Error BASE/1004 Class: 'NIL' has no exported method: END

Called from: => END(0)
Called from: tribbon.prg => TRIBBONBAR:RESETACC(1061)
Called from: tribbon.prg => TRIBBONBAR:KEYCHAR(627)
Called from: .\source\classes\CONTROL.PRG => TRPANEL:KEYCHAR(716)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: .\source\classes\CONTROL.PRG => TRPANEL:HANDLEEVENT(1464)
Called from: .\source\classes\WINDOW.PRG => _FWH(3378)

FIX:

METHOD ResetAcc() CLASS TRibbonBar

::cBufferAcc = ""
::bKeyDown := NIL
if valtype(::oPanelAcc)=="O" // <----FIX
::oPanelAcc:End()
endif
::oPanelAcc := NIL
::Super:Show()
::lAccActivated = .F.
if Len( ::aControlsList ) > 0
::bPaintAcc := {| hDC | ::PaintAccTabs( hDC ) }
::aControlsList = {}
endif

return nil

ubiratanmga@gmail.com

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

Continue the discussion