Transparencias funcionan bien y se puede controlar el nivel.

[tosko]

Foro basado en un ejemplo sobre transparencias de toda una ventana he probados sobre varios controles y funciona todo bien, bueno el Say presenta un detalle como se ve en la imagen pero creo poder resolverlo...

chequen la imagen... seria genial modificar la classe del window y habilitar un metodo donde facilite activarlo y asignar el nivel...

bueno saludos le dejo la imagen...

[FranciscoA]

Podrías compartir un pequeño ejemplo funcional?
Saludos

[mantonio_08]

como dice el colega podrias compartir un ejemplito funcional de las transparencias::

[tosko]

Bun dia Foro, disculpen por no respoder antes, aqui les dejo el link para descarga del ejemplo.

"http://www.adrive.com/public/6d01c6207b16c1a5c070b49405c0481d2c290ed760993dcf1ea41101d17dab14.html"


Saludos y Felices Fiestas...
Atte
Tosko

Foro basado en un ejemplo sobre transparencias de toda una ventana he probados sobre varios controles y funciona todo bien, bueno el Say presenta un detalle como se ve en la imagen pero creo poder resolverlo...

chequen la imagen... seria genial modificar la classe del window y habilitar un metodo donde facilite activarlo y asignar el nivel...

bueno saludos le dejo la imagen...

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()
local oGet, cSeguridad:=Space(12), ide:=Space(10)
local oBrush, para


Define Brush oBrush COLOR nRGB( 255, 106, 0 )
Define Dialog oDlgC ResName "demo"  Brush oBrush TRANSPARENT

  ReDefine Get oGet var ide        id 101 of oDlgC
  ReDefine Get oGet var cSeguridad id 102 of oDlgC

  ReDefine Button id 201 of oDlgC
 
  ReDefine Button id 202 of oDlgC;
  Action (oDlgC:End())
   
oDlgC:lHelpIcon:=.f.
Activate Dialog oDlgC Center;
On Init( Dialogo:= getwindowlong( oDlgC:hWnd, -20 ), ;
setwindowlong( oDlgC:hWnd, -20, nOr( Dialogo, 524288 ) ) , ;
setlayeredwindowattributes( oDlgC:hWnd, 0, 230, 2 ) )    // El parametro 230
oBrush:End()                                             // es el nivel de transparencia
Return Nil                                               // el el tope maximo es 255 entre
                                                         // Menor seal este numero mas trasnparente sera   

DLL32 function getwindowlong( hwnd as LONG, index as LONG ) AS LONG PASCAL FROM "GetWindowLongA" lib "user32.dll"
DLL32 function setwindowlong( hwnd as LONG, index as LONG, newlog as LONG ) AS LONG PASCAL FROM "SetWindowLongA" lib "user32.dll"
DLL32 function setlayeredwindowattributes( hwnd as LONG, crkey as LONG, alpha as WORD, flag as LONG ) AS LONG PASCAL FROM "SetLayeredWindowAttributes" lib "user32.dll"