topic-15305

Posts: 41

Joined: Thu Dec 22, 2005 07:39 AM

Transparent Say on window
Posted: Fri Apr 17, 2009 06:43 AM

Hi!
If I try this code:

#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 (fw): Select all Collapse

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!

Best regards!

Sergey (Loach) Abelev

fwh 9.04/xHarbour 1.2.1 (Rev. 6406)/Bcc55

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Transparent Say on window
Posted: Fri Apr 17, 2009 09:48 AM

oSay1:ltransparent:=.t.

Best Regards, Saludos

Falconi Silvio

Loach

Posts: 41

Joined: Thu Dec 22, 2005 07:39 AM

Re: Transparent Say on window
Posted: Fri Apr 17, 2009 10:59 AM

Thanks Mr Silvio!
But it doesn't work...

Even if I try to do

Code (fw): Select all Collapse

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

Best regards!

Sergey (Loach) Abelev

fwh 9.04/xHarbour 1.2.1 (Rev. 6406)/Bcc55

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

Re: Transparent Say on window
Posted: Fri Apr 17, 2009 06:41 PM

on paint instead of on init

Best Regards, Saludos

Falconi Silvio

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Transparent Say on window
Posted: Sun Apr 19, 2009 08:07 AM

Sergey,

Try it this way:

Code (fw): Select all Collapse

#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.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Loach

Posts: 41

Joined: Thu Dec 22, 2005 07:39 AM

Re: Transparent Say on window
Posted: Mon Apr 20, 2009 05:55 AM

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

Best regards!

Sergey (Loach) Abelev

fwh 9.04/xHarbour 1.2.1 (Rev. 6406)/Bcc55

FiveTech Support Forums

Continue the discussion