FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Ventanas transparentes de Oskar
Posts: 140
Joined: Sat Oct 08, 2005 05:16 PM
Ventanas transparentes de Oskar
Posted: Fri Feb 17, 2006 12:36 AM

Para los usuarios mde Harbour deben usar esta funcion

FUNCTION TranspColor( oWnd, nRGB )
SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, nOr( GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ), WS_EX_LAYERED ) )
SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )
RETURN NIL

EN LUGAR DE ESTA QUE NO ANDA

FUNCTION TranspColor( oWnd, nRGB )
SetWindowLong( oWnd:hWnd, GWL_EXSTYLE, GetWindowLong( oWnd:hWnd, GWL_EXSTYLE ) | WS_EX_LAYERED )
SetLayeredWindowAttributes( oWnd:hWnd, nRgb, 0, LWA_COLORKEY )
RETURN NIL

Gracias Oskar...

Saludos

Ruben fernandez

Rubén D. Fernández

Maldonado-Uruguay

Continue the discussion