Re: borderless image on the desktop
- Posted by sergelli Jul 24, 2012
- 1321 views
I followed the instructions and made the code below, but is not working
What can be wrong or missing?
include win32lib.ew include layered.ew --without warning ------------------------------------------------------------------------ constant WIN1 = create( Window, "Some STYLES of Windows:", 0, 0, 0, 640, 510, 0 ) ,NormPopup = create( Window, "", WIN1, 30, 375, 175, 100, {WS_POPUP, WS_BORDER, WS_SYSMENU}) --------------------------------------------------------------------------- -- make this a layered window, (you could also -- use createEx() with the WS_EX_LAYERED flag) setLayeredWindow( WIN1, w32True ) -- the window alpha defaults to zero, which makes it -- invisible, so set it back to 255 (100%) instead setWindowAlpha( WIN1, 255 ) -- set the 'transparent' color key (use your color here) setWindowColorKey( WIN1, #0000FF ) --------------------------------------------------------------------------- procedure onOpen_WIN1(integer id,integer event,sequence params) openWindow(NormPopup,Normal) end procedure setHandler(WIN1,w32HOpen,routine_id( "onOpen_WIN1" )) ---------------------------------------------------------------------- setWindowBackColor( {WIN1}, {00, 00, 255} ) setWindowBackColor( {NormPopup}, {00, 00, 255} ) setTransparentColor({00,00,255}) WinMain( WIN1, Normal ) </EUCODE>
