Antonio haciendo pruebas, me he encontrado que al compilar este codigo
- Code: Select all Expand view
#include "fivewin.ch"
#include "ribbon.ch"
function main()
local oWnd
local oBtn1, oBtn2, oBtn3, oBtn4
DEFINE WINDOW oWnd
@ 30, 30 RBBTN oBtn1 PROMPT "&Ok" OF oWnd BORDER SIZE 100, 30 ROUND ROUNDSIZE 2 CENTER ;
LINECOLORS RGB( 255,255,255 ), RGB( 255, 0, 0);
GRADIANT { { 0.3, RGB( 254, 154, 128 ), RGB( 254, 154, 128 ) }, ;
{ 0.7, RGB( 252, 85, 40 ), RGB( 181, 61, 29 ) } }
oBtn1:bClrGradNormal = { | lPressed | if ( lPressed,;
{ { 1, RGB( 181, 61, 29 ), RGB( 254, 154, 128 ) } },;
{ { 1, RGB( 254, 154, 128 ), RGB( 181, 61, 29 ) } } ) }
ACTIVATE WINDOW oWnd
return nil
Arroja el siguiente error
Application
===========
Path and name: e:\fwh\samples\ribbon4.exe (32 bits)
Size: 2,997,760 bytes
Compiler version: Harbour 3.2.0dev (r1308261856)
FiveWin Version: FWH 13.07
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 08/26/13, 18:59:44
Error description: Error BASE/1004 Message not found: TWINDOW:L2013
Args:
[ 1] = O TWINDOW
Stack Calls
===========
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TWINDOW:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TWINDOW:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TWINDOW:L2013( 0 )
Called from: .\source\classes\TRBTN.PRG => TRBTN:NEW( 295 )
Called from: ribbon4.prg => MAIN( 13 )