FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour TSAY background color
Posts: 1392
Joined: Mon May 14, 2007 09:49 AM
TSAY background color
Posted: Thu Dec 29, 2022 01:11 PM
Hi,

If the TSAY control is on the Dialog window, then I can change its background
Code (fw): Select all Collapse
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
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: TSAY background color
Posted: Thu Dec 29, 2022 01:25 PM

Please try oSay:lTransparent :- .F.

Note: I did not try it myself here.

Regards



G. N. Rao.

Hyderabad, India
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: TSAY background color
Posted: Thu Dec 29, 2022 01:56 PM
Use SSAY.PRG
Code (fw): Select all Collapse
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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion