FiveTech Support Forums

I try to give out text to a window

Some text with the argument Transparent = true other with false but the argument is not respected.
After the first use of transparent the rest is transparent although the argument is set to false.
oWndPlan:Say( 150, 50, "TEST1", 8421504 ,"B",oLbxFont,.t.,.f.)<------
oWndPlan:Say( 200, 50, "TEST2", 8421504 ,"B",oLbxFont,.t.,.t.)<------
oWndPlan:Say( 250, 50, "TEST3", 8421504 ,"B",oLbxFont,.t.,.t.)<------
oWndPlan:Say( 300, 50, "TEST4", 8421504 ,"B",oLbxFont,.t.,.f.)<------



#INCLUDE "FIVEWIN.CH"

STATIC oLbxFont
STATIC oWnd
STATIC oWndPlan

func Main()
DEFINE FONT oLbxFont NAME "MS Sans Serif" SIZE 10.3,15

DEFINE WINDOW oWnd FROM 1, 1 TO 35, 80 ;
TITLE "test" ;
COLOR CLR_BLACK, CLR_WHITE ; //CLR_LIGHTGRAY ;
MDI

ACTIVATE WINDOW oWnd MAXIMIZED ON INIT (planScreen())

RETURN NIL

func planScreen()
DEFINE WINDOW oWndPlan ;
MDICHILD ;
FROM 0,0 TO 800,1024 PIXEL;
TITLE ("Zimmerplan") ;
OF oWnd

ACTIVATE WINDOW oWndPlan MAXIMIZED;
ON PAINT MiPaint()

RETURN NIL

func MiPaint()
oWndPlan:Say( 150, 50, "TEST1", 8421504 ,"B",oLbxFont,.t.,.f.)
oWndPlan:Say( 200, 50, "TEST2", 8421504 ,"B",oLbxFont,.t.,.t.)
oWndPlan:Say( 250, 50, "TEST3", 8421504 ,"B",oLbxFont,.t.,.t.)
oWndPlan:Say( 300, 50, "TEST4", 8421504 ,"B",oLbxFont,.t.,.f.)
RETURN NIL

Otto,

Do it this way:

Its a little bug in function WSay() in source\winapi\wndsay.c:

Fixed. Thanks for your feedback

Otto,

This fix is not included in 7.11, but if we publish it again, then we will include it

Otto,

If some bugs appear (hopefully not) then we may publish it again