TSAY background color

[Natter]

Hi,

If the TSAY control is on the Dialog window, then I can change its background

Code: Select all  Expand view

oSay:SetColor(CLR_BLACK, CLR_RED)
 oSay:Refresh()

If the control TSAY is on TFolderEx:aDialogs[1], then oSay:SetColor() does not change the background color. Why?t

[nageswaragunupudi]

Please try oSay:lTransparent :- .F.

Note: I did not try it myself here.

[karinha]

Use SSAY.PRG

Code: Select all  Expand view

FUNCTION Clientes()

    LOCAL iDCor

    For iDCor=401 to 423 // SHADED, SHADOW
       REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 1 ]                 ;
          COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 410
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 2 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=411 to 416
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 2 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 409
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 3 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 412
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 4 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 407
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 5 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 421
        REDEFINE SENSITIVE SAY ID iDCor OF oFld:aDialogs[ 6 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 414
        REDEFINE SENSITIVE SAY ID iDCor  OF oFld:aDialogs[ 7 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

    //--- Melhoria visual nos say's
    For iDCor=401 to 412
        REDEFINE SENSITIVE SAY ID iDCor  OF oFld:aDialogs[ 8 ]           ;
        COLOR CLR_BLACK, CLR_WHITE UPDATE FONT oFont RIGHT TRANSPARENT
    Next iDCor  // By Ednaldo Rolim - Yes!

RETURN NIL
 

Regards, saludos.