1. RE: Flat toolbar bug and fix
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
