intento crear el ejecutable, pero el dialogo no acepta la clausula TRANSPARENT. Parece que falta que subas el DIALOG.CH modificado
Ralph
METHOD Initiate( hWndFocus, hWnd ) CLASS TDialog
local lFocus := .t., lResult, hCtrl, lEnd := .f., aRect
if hWnd != nil
::hWnd = hWnd
endif
SetWindowLong( ::hWnd, GWL_EXSTYLE,;
WS_BORDER )
SetWindowLong( ::hWnd, GWL_EXSTYLE ,;
WS_EX_LAYERED ) //| ;
* WS_EX_TOOLWINDOW | ;
* WS_EX_NOACTIVATE | ;
* WS_EX_TOPMOST | ;
* WS_EX_APPWINDOW )
SetLayeredWindowAttributes( ::hWnd, 0 , ( 255 * 90 ) / 100, LWA_ALPHA )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 42 guests