OpenEuphoria

RE: Flat toolbar bug and fix

• Posted by Derek Parnell <Derek.Parnell at SYD.RABOBANK.COM> Jun 24, 2002
• 445 views

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01C21BE0.2F6D6D40
 charset=iso-8859-1

Thanks for this. I don't have an win95 system to test with. 


> -----Original Message-----
> From: jordah ferguson [mailto:jorfergie03 at yahoo.com]
> Subject: Flat toolbar bug and fix
> 
> 
> 
> 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
> 
> 
> 
> 

==================================================================
De informatie opgenomen in dit bericht kan vertrouwelijk zijn en 
is uitsluitend bestemd voor de geadresseerde. Indien u dit bericht 
onterecht ontvangt wordt u verzocht de inhoud niet te gebruiken en 
de afzender direct te informeren door het bericht te retourneren. 
==================================================================
The information contained in this message may be confidential 
and is intended to be exclusively for the addressee. Should you 
receive this message unintentionally, please do not use the contents 
herein and notify the sender immediately by return e-mail.


==================================================================

------_=_NextPart_000_01C21BE0.2F6D6D40
Content-Type: application/ms-tnef