Problem TfolderEx with SAY from resource

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Problem TfolderEx with SAY from resource
Posted: Thu May 28, 2015 10:56 AM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Rick Lipkin

Posts: 2706

Joined: Fri Oct 07, 2005 01:50 PM

Re: Problem TfolderEx with SAY from resource
Posted: Fri May 29, 2015 01:00 PM

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 (fw): Select all Collapse

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

This might Work :

Code (fw): Select all Collapse

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

Rick Lipkin

FiveTech Support Forums

Continue the discussion