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
