Janela Transparente

[asimoes]

Transforma uma janela WVT ou WVG transparente, podem testar.
Passando 0 vira uma janela fantasma, rs

Código: Selecionar todos

   cTituloJanela := "TESTE COM TRANSPARENCIA"
   nHandle := hwg_FindWindow(,cTituloJanela)
   SetTransparent( nHandle, 210 )

Código: Selecionar todos

#pragma BEGINDUMP

#if defined ( __MINGW32__ )
   #define _WIN32_WINNT 0x0500
#endif

#include <windows.h>
#include "hbapi.h"

HB_FUNC( SETTRANSPARENT )
{

	typedef BOOL (__stdcall *PFN_SETLAYEREDWINDOWATTRIBUTES) (HWND, COLORREF, BYTE, DWORD);

	PFN_SETLAYEREDWINDOWATTRIBUTES pfnSetLayeredWindowAttributes = NULL;

	HINSTANCE hLib = LoadLibrary("user32.dll");

	if (hLib != NULL)
	{
		pfnSetLayeredWindowAttributes = (PFN_SETLAYEREDWINDOWATTRIBUTES) GetProcAddress(hLib, "SetLayeredWindowAttributes");
	}

	if (pfnSetLayeredWindowAttributes)
	{
		SetWindowLong((HWND) hb_parnl (1), GWL_EXSTYLE, GetWindowLong((HWND) hb_parnl (1), GWL_EXSTYLE) | WS_EX_LAYERED);
		pfnSetLayeredWindowAttributes((HWND) hb_parnl (1), 0, hb_parni (2), LWA_ALPHA);
	}

	if (!hLib)
	{
		FreeLibrary(hLib);
	}

}

#pragma ENDDUMP

[asimoes]

[asimoes]

Esqueci: HB_GTI_WINTITLE

Código: Selecionar todos

cTituloJanela := "TESTE COM TRANSPARENCIA"
HB_gtInfo( HB_GTI_WINTITLE, cTituloJanela)
nHandle := hwg_FindWindow(,cTituloJanela)
SetTransparent( nHandle, 210 )

[asimoes]

Com HwGui em uma janela Dialog

ON INIT {|hWnd| SetTransparent( hWnd:handle, 210 ) }

[JoséQuintas]

credo....
continuo daqui a pouco...

[JoséQuintas]

Não achei meu post sobre isso, mas não precisa rotina em C.

[JoséQuintas]

Achei!
Foi em janeiro/2016

https://pctoledo.org/forum/viewto ... ilit=gtwvg

[asimoes]

Qintas,

O seu exemplo é para WVG e esse é para quem usa WVT/HWGUI/MINIGUI provavelmente sirva para WVG é só testar.

[asimoes]

Quintas,

O seu exemplo funcionou com o GT WVT

[JoséQuintas]

Legal.

E desculpe, acho que me empolguei na primeira resposta....

Mas aproveitando...
Se não tiver equivalência no xHarbour, acaba sendo necessário o fonte C pra ele.

[alaminojunior]

Interessantésima essa rotina.