Change Color of Say

[ChrisMillard]

I build my Windows at runtime, i.e. I don't use resources. I have a windows with a number of SAY objects, for example:

Code: Select all  Expand view

@ nTop, nLeft SAY oSay PROMPT "Prompt" SIZE nClientWidth, nFontHeight FONT oFont BORDER PIXEL CENTER COLOR CLR_BLACK, CLR_WHITE UPDATE

I already use

Code: Select all  Expand view

oSay:SetText("Something Else")

quite successfully.

But I also need to change either the Text or Background Color of the SAY.

Code: Select all  Expand view

oSay:SetColor(CLR_GREEN, CLR_BLUE)

does not exist.

I have tried

Code: Select all  Expand view

SetTextColor(oSay:hWnd, nRGB(CLR_GREEN))

but that does not seem to do anything.

And

Code: Select all  Expand view

REDEFINE SAY oSAY COLOR CLR_GREEN, CLR_BLUE

gives a method not defined error.

Can somebody point me in the right direction.

Regards
Chris Millard

[Enrico Maria Giordano]

Code: Select all  Expand view

oSay:SetColor(CLR_GREEN, CLR_BLUE)

It should work fine.

EMG

[ChrisMillard]

Well how strange, I am sure I tried it first.

Many thanks for making me go back and try it again, I have spent quite some time trying to figure how to do something that should have been simple, to now find it was simple all the time. lol

Happy New Year

Chris Millard