OpenEuphoria

RE: Outlook bar - anyone got working version

• Posted by Igor Kachan <kinz at peterlink.ru> Apr 15, 2006
• 560 views

Tony Steward wrote:

> 
> Thanks Igor,
> I found a win32lib version 0.45r and it works with that too. Now I just 
> need to figure out how to get it working with current version.


I'm not very familiar with win32lib, but it seems to work
with 0.60.5 - 05.09.2004, if you change one word in one line
of outlook.ew:

procedure obDrawFrametool( integer id, integer uType, integer uState,
					integer x1, integer y1, integer x2, integer y2 )

	-- wrapper for drawFrametool                    
	integer result
	atom hWnd, hRect

	-- fill rectangle    
	hRect = allocate( SIZEOF_RECT )
	store( hRect, rectLeft,   x1 )
	store( hRect, rectTop,    y1 )
	store( hRect, rectRight,  x2 )
	store( hRect, rectBottom, y2 )
	
	-- get device context
	hWnd = getDC( id )
	
	-- call DrawFrametool to do the real word
	
result = w32Func(xDrawFrameControl,{ hWnd, hRect, uType, uState })-- this line
--- see w32Func
	
	-- release resources
	releaseDC( id )
	free( hRect )       

end procedure

This change seems to be the new strategy of win32lib development,
I'm not very sure however.

Good Luck!

Regards,
Igor Kachan
kinz at peterlink.ru