Problem TfolderEx with SAY from resource

[ukoenig]

Hello, there seems to be a problem with TFolderEx
using SAY from RESOURCE.
It is NOT possible, to define a background-color.

From CODE it works



FUNCTION F_PAGE2( oFld1 )
LOCAL oSay1, oGet1, cText1 := "Testing GET-colors"
LOCAL cText2 := "Testing SAY - background-color"

@ 30, 20 GET oGet1 VAR cText1 SIZE 120, 15 OF oFld1:aDialogs[ 2 ] PIXEL FONT oFont1 UPDATE
oGet1:SetColor( 16777215, 255 )
@ 70, 20 SAY oSay1 VAR cText2 SIZE 200, 15 OF oFld1:aDialogs[ 2 ] PIXEL FONT oFont1 UPDATE
oSay1:SetColor( 16777215, 255 )

RETURN NIL

The same from RESOURCE



FUNCTION F_PAGE5( oFld2 )
LOCAL oSay1, oGet1, cText1 := "Testing GET-colors"
LOCAL cText2 := "Testing SAY - background-color"

REDEFINE GET oGet1 VAR cText1 ID 200 OF oFld2:aDialogs[ 2 ] FONT oFont1 UPDATE
oGet1:SetColor( 16777215, 255 )
REDEFINE SAY oSay1 VAR cText2 ID 300 OF oFld2:aDialogs[ 2 ] FONT oFont1 UPDATE
oSay1:SetColor( 16777215, 255 )

RETURN NIL

best regards
Uwe

[Rick Lipkin]

Uwe

Looking back at some of my code .. I could not get Say to display both background and foreground in two colors and I had to settle for using Get with the READONLY Clause

Code: Select all  Expand view

REDEFINE GET oSay1 var cSay1   ID 174 of oUSERS COLOR CLR_WHITE, CLR_GREEN  READONLY
 

This might Work :

Code: Select all  Expand view

REDEFINE SAY oSay15 /* use form */    ID 128 OF oGrps UPDATE
                oSay15:SetFont( oFontB )
                oSay15:SetColor(CLR_WHITE,CLR_GREEN )
 

Rick Lipkin