* contrib/gtwvg/wvgparts.ch
+ Added: constants - WVG_IMAGE_ICONFILE
WVG_IMAGE_ICONRESOURCE
WVG_IMAGE_BITMAPFILE
WVG_IMAGE_BITMAPRESOURCE
* contrib/gtwvg/pushbut.prg
+ Implemented: Display of Bitmaps or Icons on the pushbuttons
from resources also. Before, it was available from disk files
only. For this to happen a push button be created like this:
WITH OBJECT oXbp := WvgPushButton():new()
:pointerFocus := .F.
:caption := { "Vouch", WVG_IMAGE_ICONFILE, IMAGE_VR }
:border := .F.
:create( , , { {|| -( MaxRow() - 1 ) }, -31 }, { -2, -4 } )
:activate := {|| hb_threadStart( {|| demoXbp() } ) }
:toolTipText := "Flat Button . Lines: press ESC when finished."
ENDWITH
:caption := { [<cButtonText>], <nImageType>, <xImage> }
=>
{ "Vouch", WVG_IMAGE_ICONFILE, hb_dirBase() + "vr1.ico" }
{ "Vouch", WVG_IMAGE_ICONRESOURCE, 212 /*Numeric ID in resource*/ }
{ "Vouch", WVG_IMAGE_ICONRESOURCE, "VOUCHICO" /*Character ID in resource*/ }
IMPORTANT - :caption has to be defined before :create() is called.
* contrib/gtwvg/tests/demowvg.prg
+ Added: code to demonstrate above usage.
6f4a99fdf1
