Transparent Forms

TheMSsForum.com: The Microsoft Software Forum

I was experimenting with making a form transparent. I seem to be able to do
that if I create a prg file and define a form class, etc... however, if I
manually create a form and place the following code in a command button my
form does not become transparent.
The code is as follow:

DECLARE integer GetWindowLong IN WIN32API integer hwnd,integer nIndex
DECLARE Integer SetWindowLong IN WIN32API integer hwnd,integer nindex,
integer dwNewLong
DECLARE integer SetLayeredWindowAttributes IN WIN32API integer hwnd, integer
crKey, ;
short bAlpha, integer dwflags

LOCAL xStyle
xStyle = GetWindowLong(thisform.HWnd,-20)
xStyle = BITOR(xStyle,0x8000)
=SetWindowLong(thisform.HWnd,-20,xstyle)
=SetLayeredWindowAttributes(thisform.HWnd, 0,128,2)

Many thanks in advance.

Shahriar
Top

Re: Transparent Forms by Thierry

Thierry
Mon Nov 29 15:11:01 CST 2004

Make sure the form is "as top level"

--
Thierry


"Shahriar" <HelloShahriar@hotmail.com> a écrit dans le message de news:
i6Mqd.10374$lv6.1579@trnddc03...
>I was experimenting with making a form transparent. I seem to be able to
>do that if I create a prg file and define a form class, etc... however, if
>I manually create a form and place the following code in a command button
>my form does not become transparent.
> The code is as follow:
>
> DECLARE integer GetWindowLong IN WIN32API integer hwnd,integer nIndex
> DECLARE Integer SetWindowLong IN WIN32API integer hwnd,integer nindex,
> integer dwNewLong
> DECLARE integer SetLayeredWindowAttributes IN WIN32API integer hwnd,
> integer crKey, ;
> short bAlpha, integer dwflags
>
> LOCAL xStyle
> xStyle = GetWindowLong(thisform.HWnd,-20)
> xStyle = BITOR(xStyle,0x8000)
> =SetWindowLong(thisform.HWnd,-20,xstyle)
> =SetLayeredWindowAttributes(thisform.HWnd, 0,128,2)
>
> Many thanks in advance.
>
> Shahriar
>


Top

Re: Transparent Forms by Shahriar

Shahriar
Mon Nov 29 15:30:40 CST 2004

Thanks Thierry for a quick response. your suggestion did work !!! Is there
an explanation for that?
Many thanks
Shahriar
"Thierry" <tper_NOSPAM@vfemail.net> wrote in message
news:u01QDfl1EHA.1404@TK2MSFTNGP11.phx.gbl...
> Make sure the form is "as top level"
>
> --
> Thierry
>
>
> "Shahriar" <HelloShahriar@hotmail.com> a écrit dans le message de news:
> i6Mqd.10374$lv6.1579@trnddc03...
>>I was experimenting with making a form transparent. I seem to be able to
>>do that if I create a prg file and define a form class, etc... however, if
>>I manually create a form and place the following code in a command button
>>my form does not become transparent.
>> The code is as follow:
>>
>> DECLARE integer GetWindowLong IN WIN32API integer hwnd,integer nIndex
>> DECLARE Integer SetWindowLong IN WIN32API integer hwnd,integer nindex,
>> integer dwNewLong
>> DECLARE integer SetLayeredWindowAttributes IN WIN32API integer hwnd,
>> integer crKey, ;
>> short bAlpha, integer dwflags
>>
>> LOCAL xStyle
>> xStyle = GetWindowLong(thisform.HWnd,-20)
>> xStyle = BITOR(xStyle,0x8000)
>> =SetWindowLong(thisform.HWnd,-20,xstyle)
>> =SetLayeredWindowAttributes(thisform.HWnd, 0,128,2)
>>
>> Many thanks in advance.
>>
>> Shahriar
>>
>
>


Top