Transparent SAY

[Enrico Maria Giordano]

Dear friends, how to get a transparent SAY in the following sample?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBar, oSay

    DEFINE WINDOW oWnd

    DEFINE BUTTONBAR oBar OF oWnd 2007

    @ 9, 100 SAY oSay PROMPT "This is not transparent       " OF oBar PIXEL

    oSay:lTransparent = .T.

    ACTIVATE WINDOW oWnd

    RETURN NIL

EMG

[Patricio Avalos Aguirre]

Ademas un bug en BUTTONBAR AL presionar boton derecho

Code: Select all  Expand view  RUN

Application
===========
   Path and name: D:\Apl\PRGS\Carmona\dbf\wcta.exe (32 bits)
   Size: 4,009,472 bytes
   Time from start: 0 hours 0 mins 2 secs
   Error occurred at: 19/10/2007, 13:05:07
   Error description: Error BASE/1004  Message not found: TSAY:LGROUP

Stack Calls
===========
   Called from: tobject.prg => TSAY:ERROR(172)
   Called from: tobject.prg => TSAY:MSGNOTFOUND(205)
   Called from: tobject.prg => TSAY:LGROUP(0)
   Called from: BAR.PRG => TBAR:BTNADJUST(0)
   Called from: BAR.PRG => TBAR:GORIGHT(0)
   Called from: BAR.PRG => (b)TBAR:RBUTTONDOWN(0)
   Called from: MENU.PRG => TMENU:ACTIVATE(503)
   Called from: BAR.PRG => TBAR:RBUTTONDOWN(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.prg => TBAR:HANDLEEVENT(1362)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: WINDOW.PRG => TWINDOW:ACTIVATE(0)
   Called from: Wcta.PRG => _MAIN(1496)
   Called from: Wcta.PRG => MAIN(25)

[Antonio Linares]

Enrico,

You have to modify the Class TBar not to use WS_CLIPCHILDREN style, but then you will get some "flickering" when resizing the window.

Another way is to use oBar:bPainted and call oBar:Say( ... ) from it.

[nageswaragunupudi]

Mr Antonio

Yes
In 2007 style, obar:say in obar:bpainted gives transparent look. Normal Say does not make it transparent

In non 2007 3D style Say works transparently

It would be nice if you can give us a consistent behaviour in 3D and 2007. This helps us to avoid conditional coding.

[Antonio Linares]

NageswaraRao,

As we use a gradient for the background, then we can only remove WS_CLIPCHILDREN from Class TBar, but that will bring some "flickering"