VO is not known as a tool to write the most beautiful and sexy looking applications. To be honest, the standard possibilities are rather boring. And I must say, I am somebody who’s first and major goal the functionality and easy-to-use has.
If you want a good looking app, you should checkout Sven Ebert’s products and/or the Hoverbutton classes.
But suddenly I rembered a tip on this site for several years ago. This tip showed how to assign a bitmap to a brush and that brush to a control- or window background.
RESOURCE ED_Richard_Loves_VO Bitmap D:\CAVO25\BIN\POWVO.BMP
METHOD PostInit(oParent,uExtra) CLASS HelpAbout
LOCAL oBmp AS Bitmap
//Put your PostInit additions here
oBmp := Bitmap{ResourceID{"ED_Richard_Loves_VO",_GetInst()}}
SELF:background := brush{oBmp}
RETURN NIL
Now the new version of bBrowser, 2.0, has a title property. With this property you can have a text above the columns. This property has a background, and this background accepts a brush….Does this look good or what?
The sourcode for this:
METHOD INIT( oOwner, uID, oOrigin, oDimension, kStyle) CLASS Ado_Sort_bBrowser
LOCAL obmp AS BitMap
SUPER:INIT( oOwner, uID, oOrigin, oDimension, kStyle)
SELF:lAllowSort := FALSE
obmp := bitmap{ ResourceID{ "NICE_BACKGROUND", _GetInst() } }
SELF:TitleView:Foreground := Color{0, 128, 128}
SELF:TitleView:BackGround :=Brush{ obmp }
RETURN SELF
RESOURCE NICE_BACKGROUND Bitmap %Cavodir%\IMDATA\PBS4.bmp
But it can be even get more fancy looking. On the website of bBorwser (www.votools.com) i noticed a tip how to color rows, using a Bachgroundlist. This uses a Brush also, so here we can do the same trick.
obmp1 := bitmap{ ResourceID{ "NICE_BACKGROUND", _GetInst() } }
obmp2 := bitmap{ ResourceID{ "NICE_TBBACKGROUND", _GetInst() } }
SELF:Grid:BackGroundList:add( Brush{oBMp1 })
SELF:Grid:BackGroundList:add( Brush{oBMp2 })
And so does it look like...
Erik Visser