Clipper On Line

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

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

#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

Esqueci: HB_GTI_WINTITLE

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

Com HwGui em uma janela Dialog

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

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

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

Achei!
Foi em janeiro/2016

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=16857&hilit=gtwvg

Qintas,

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

Quintas,

O seu exemplo funcionou com o GT WVT

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.

Interessantésima essa rotina.