FiveTech Software tech support forums

Posted: **Mon Nov 05, 2007 12:39 pm**

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

Posted: **Mon Nov 05, 2007 1:05 pm**

Otto,

Do it this way:

Code: Select all

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.) 
SetBkMode( oWndPlan:hDC, 2 ) // #define OPAQUE              2
oWndPlan:Say( 300, 50, "TEST4", 8421504 ,"B",oLbxFont,.t.,.f.) 
RETURN NIL

Posted: **Mon Nov 05, 2007 1:08 pm**

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

Code: Select all

   if( bTransparent )
      SetBkMode( hDC, TRANSPARENT );
   else    // new 
      SetBkMode( hDC, OPAQUE ); // new

Fixed. Thanks for your feedback

Posted: **Mon Nov 05, 2007 1:28 pm**

Is is OK if I download the 7.11 version?

Posted: **Mon Nov 05, 2007 1:36 pm**

Otto,

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

Posted: **Mon Nov 05, 2007 1:44 pm**

To you plan to publish it soon?

Posted: **Mon Nov 05, 2007 1:59 pm**

Otto,

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

FiveTech Software tech support forums

oWnd:say - transparent

oWnd:say - transparent