Antonio,
updating to 15.2 this solution doesn't work anymore.
In 15.1 it was OK.
I changed to
nClrTextDis ; NO error but with NO result.
Maybe another solution, changing the textcolor on mouseover ?
OK in FWH 15.1
oBtn:nClrText := { | lMouseOver | If( lMouseOver, CLR_HBLUE, CLR_WHITE ) }Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 0 secs
Error occurred at: 02/23/15, 21:51:14
Error description: Error BASE/1068 Argument error: array access
Args:
[ 1] = B {|| ... }
[ 2] = N 2
Stack Calls
===========
Called from: .\source\classes\BTNBMP.PRG => WNDSAYTEXT( 1589 )
Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 564 )
Called from: => TBTNBMP:SAYTEXT( 0 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINTCAPTION( 1308 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:PAINT( 1340 )
Called from: .\source\classes\BTNBMP.PRG => (b)TBTNBMP:TBTNBMP( 126 )
Called from: => TBTNBMP:DISPLAY( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1434 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3464 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: .\BUTTONS.PRG => MAIN( 428 )
A small test :
- Code: Select all Expand view
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oBtn1, oFont1
SETBALLOON( .T. )
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-16 BOLD
DEFINE DIALOG oDlg SIZE 550, 400 TITLE "Test button"
@ 145, 200 BTNBMP oBtn1 OF oDlg ;
SIZE 60, 35 PIXEL 2007 ;
NOBORDER ;
PROMPT " &Exit " ;
ACTION oDlg:End() ;
FONT oFont1 ;
CENTER
oBtn1:bClrGrad = { | lMouseOver | If( ! lMouseOver,;
{ { 0.5, 11513775, 16777215 }, ;
{ 0.5, 16777215, 11513775 } }, ;
{ { 0.5, 12615680, 16777215 }, ;
{ 0.5, 16777215, 12615680 } } ) }
oBtn1:lTransparent := .t.
oBtn1:cToolTip = { "Exit" + CRLF + "Sample","EXIT", 1, CLR_BLACK, 14089979 }
// Errormessage !
// oBtn1:nClrText := { | lMouseOver | If( lMouseOver, 16777215, 255 ) }
ACTIVATE DIALOG oDlg CENTER
oFont1:End()
RETURN( NIL )
best regards
Uwe