Transparent Say on window

[Loach]

Hi!
If I try this code:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
local oWnd
local oMenu,oBrush1,oSay1

define brush oBrush1 file "..\bitmaps\cara.bmp"
DEFINE WINDOW oWnd TITLE "Test Say" from 0,0 to 400,800 pixel menu oMenu brush oBrush1
activate window oWnd on init mmm(oWnd,oSay1)
return nil

function mmm(oWnd,oSay1)
   @ 2,2 say oSay1 prompt "This a Test" of oWnd SIZE 100, 130 COLOR CLR_WHITE PIXEL  transparent
   @ 10,120 button "Test" pixel action oSay1:SetText( "Change Text")  
return .t.
 

transparent say works perfect! But if I use this "rc" this file:

Code: Select all  Expand view

1 24 "WinXP/WindowsXP.Manifest"
 

transparent say doesn't work...
What shell I do to make work transparent say on wondow with WindowsXP.Manifest ?
Thanks!

[Silvio]

oSay1:ltransparent:=.t.

[Loach]

Thanks Mr Silvio!
But it doesn't work...
Even if I try to do

Code: Select all  Expand view

activate window oWnd on init (mmm(oWnd,@oSay1),oSay1:ltransparent:=.t.)
 

[Silvio]

on paint instead of on init

[Antonio Linares]

Sergey,

Try it this way:

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
local oWnd
local oMenu,oBrush1,oSay1

define brush oBrush1 file "c:\fwh\bitmaps\cara.bmp"
DEFINE WINDOW oWnd TITLE "Test Say" from 0,0 to 400,800 pixel menu oMenu brush oBrush1
activate window oWnd on init mmm(oWnd,oSay1)
return nil

function mmm(oWnd,oSay1)
   @ 2,2 say oSay1 prompt "This a Test" of oWnd SIZE 100, 130 COLOR CLR_WHITE PIXEL transparent
   @ 10,120 button "Test" pixel action oSay1:SetText( "Change Text")
return .t.

function IsAppThemed()

return .F.
 

[Loach]

Thank you so much!
With function IsAppThemed() my dreams come true...