Change color of say when mouse is over it

[Dietmar Jahnel]

Antonio,
is there a way to change the color of the text of a say-object when the mouse is moved over it and the cursor changes to HAND?

I did this for years with an old class called sensitive say:

Code: Select all  Expand view  RUN

REDEFINE SENSITIVE SAY geSay2 ID 903 of SuchFolder:aDialogs[2];
         COLOROVER RGB( 128, 0, 0 );
         BOX TRANSPARENT;
         ACTION (HelpTopic(IDH_SM_CHECK))
 

But now in Vista the transparent painting with this old class does not work any more.

Thanks for help,
Dietmar

[Otto]

Hello Dietmar,
you could try with lWantClick.
Best regards,
Otto

Code: Select all  Expand view  RUN

   oSay:lWantClick := .t.
   oSay:bMMoved   = {||oSay:SetColor(  0, RGB(128,128,255) ),   oSay:refresh() }
 

[Dietmar Jahnel]

Code: Select all  Expand view  RUN

   oSay:lWantClick := .t.
   oSay:bMMoved   = {||oSay:SetColor(  0, RGB(128,128,255) ),   oSay:refresh() }
 

[/quote]

Sorry, but the color does not change...
Dietmar

[Otto]

Dietmar,
what version of FW do you use?
Do you have this line in Say class:

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSay

if ... nMsg == WM_NCHITTEST ) // To have a standard behavior on Clicks

Best regards,
Otto

[Dietmar Jahnel]

Dietmar,
what version of FW do you use?

latest: 9.04

Do you have this line in Say class:

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TSay

if ... nMsg == WM_NCHITTEST ) // To have a standard behavior on Clicks

yes.
Do you get the color change?

Grüße,
Dietmar

[Otto]

Hello Dietmar,
yes. As soon as you move the mouse on the control the event is fired and it works.
I only don’t know – there are many ways – what would be the best way and when to change the color back to the original.
I have version 9.02 but I don’t think there was another change in the class.
Best regards,
Otto

Code: Select all  Expand view  RUN

// A sample showing to to let a SAY accept Clicks events

#include "FiveWin.ch"
#define COLOR_BTNFACE       15
function Main()
   local oDlg, oSay, oCursor
   DEFINE CURSOR oCursor HAND
   DEFINE DIALOG oDlg
   @ 2, 2 SAY oSay PROMPT "Test"
   oSay:lWantClick = .t.
   oSay:bMMoved   = {|| oSay:SetColor(  0, RGB(128,128,255) ),   oSay:refresh() }
   oSay:oCursor    = oCursor

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

[nageswaragunupudi]

Not very elegant, but this works.

Code: Select all  Expand view  RUN

#include "urllink.ch"

.....
< other code >
 
@   40, 20 URLLINK oSay URL 'This is a say' ;
      PIXEL OF oWnd CLROVER CLR_HRED FONT oFont

<other code>

 

Probably a better way would be to derive a class from TUrlLink, with more features for mouseover, like change of font, change of background and foreground colors, attach an action block on click, etc. Or write a class derived from TSay with similar features