Background color of TSay

[byte-one]

I noticed, that the background color of a say not to change!?

[ukoenig]

Günther,

my test

@ 22, 20 SAY oCSay[1] PROMPT "Window" SIZE 28,12 FONT oFontSys PIXEL
oCSay[1]:SetColor( 0, 255 ) // original

@ 20, 50 GET oCGet[1] VAR cGet[1] SIZE 80, 18 OF oDlg2 COLOR 0, nWColorB UPDATE ;
BITMAP c_Path1 + "Help.bmp" PIXEL ;
ACTION ( nWColorB := ChooseColor( nWColorB ), oCGet[1]:SetColor( , nWColorB ), ;
oCSay[1]:SetColor( 0, nWColorB ), oCSay[1]:Refresh() ) // modified



regards
Uwe

[byte-one]

Uwe, i have used

Code: Select all  Expand view  RUN

REDEFINE SAY PROMPT "xyz" ID 100 OF oDlg COLOR 0,255

but no background-color of the SAY.

[ukoenig]

Günther,

if the dialog is defined < transparent >
the background-color of the say will be ignored

if You need a mixture of color and transparent use a normal dialog

REDEFINE SAY PROMPT "xyz" ID 100 OF oDlg COLOR 0,255

REDEFINE SAY oSay1 PROMPT "xyz" ID 100 OF oDlg
oSay1:SetColor( 0, 255 ) // color
or
oSay1:lTransparent := .T. // transparent

regards
Uwe

[byte-one]

Thanks Uwe. I use

Code: Select all  Expand view  RUN

GRADIENT {{1,color1, color2]}}

for the dialog. This seems also switch to transparent.
Now i use a readonly-get without border.

[nageswaragunupudi]

Code: Select all  Expand view  RUN

  DEFINE DIALOG oDlg GRADIENT aGrad
   oDlg:lTransparent := .f.