OpenEuphoria

Flat toolbar bug and fix

• Posted by jordah ferguson <jorfergie03 at yahoo.com> Jun 24, 2002
• 353 views

Hi Derek,

I have discovered another bug, It doesn't appear on Win98 and above, It 
only
appears on win95 OS. According to Microsoft Documentation, it says you 
have
to set  the button size, and image size before creating a toolbar 
button.
The sight of a Flattoolbar on win95 is disastrous using win32lib. Here 
is a fix. 

global function MAKELONG( integer lo, integer hi)-- clib.e Chris Bensler
   return hi*#10000 + lo
end function

atom ILx,ILy

--<SNIP> Win32lib code in createEX

        VOID = sendMessage( id, TB_SETTOOLTIPS, 0, getHandle( 
tooltipControl ) )
        
        -- Set image lists for the 3 states
        VOID = sendMessage( id, TB_SETIMAGELIST, 0, 
getHandle(himlFTBDefault) )
        VOID = sendMessage( id, TB_SETHOTIMAGELIST, 0, 
getHandle(himlFTBHot) )
        VOID = sendMessage( id, TB_SETDISABLEDIMAGELIST, 0 
,getHandle(himlFTBDisabled) )

-- <End Win32lib>

-- Start Code:
ILx = w32Func(xGetSystemMetrics,{SM_CXICON})
ILy = w32Func(xGetSystemMetrics,{SM_CYICON})

if sendMessage(toolbar_id,TB_SETBUTTONSIZE,0,MAKELONG(ILx,ILy))=NULL 
then
warnErr("TB_SETBUTTONSIZE failed")
end if

if sendMessage(toolbar_id,TB_SETBITMAPSIZE,0,MAKELONG(ILx,ILy))=NULL 
then
warnErr("TB_SETBUTTONSIZE failed")
end if	

-- End Code:

Cheers,
Jordah Ferguson
aka Sir LoJik