de inglés me da un error.
- Code: Select all Expand view
- DEFINE RIBBONBAR oRBar WINDOW oWinMain PROMPT "Inicio " , " Archivos ", " Reportes Impresos ", "Utilidades ",;
" Control de Movimientos " HEIGHT 130 TOPMARGIN 25 2015
oRBar:aClrTabTxt = { { | oSelf , nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN , CLR_WHITE ) },;
{ | oSelf , nPrompt | If( nPrompt == oRBar:nOption, CLR_GREEN , CLR_WHITE ) },;
{ | oSelf , nPrompt | IF( nPrompt == oRBar:nOption , CLR_GREEN , CLR_WHITE ) } }
oRBar:nClrPaneRB = CLR_GREEN
oRBar:aGradFld = { || { { 1, CLR_WHITE, CLR_WHITE }} }
oRBar:aGradOver = { || { { 1, CLR_WHITE, CLR_WHITE }} }
Application
===========
Path and name: C:\Fuentes\TodoCuentas\zonacuentas.Exe (32 bits)
Size: 5,637,632 bytes
Compiler version: Harbour 3.2.0dev (r1703231115)
FiveWin version: FWH 17.04
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 07/05/2017, 00:10:40
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... } length: 3
[ 2] = N 5
Stack Calls
===========
Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR_PAINTFLD( 837 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:PAINTFLD( 859 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:PAINT( 675 )
Called from: .\source\classes\TRIBBON.PRG => (b)TRIBBONBAR( 158 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1697 )
Called from: .\source\classes\TRIBBON.PRG => TRIBBONBAR:HANDLEEVENT( 1159 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
Called from: => UPDATEWINDOW( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1013 )
Called from: zonacuentas.PRG => MAIN( 429 )
Gracias, Saludos
FWH 17.04 y Harbour.
