FiveTech Software tech support forums

Dear Antonio, Dear Paco,

I add on Vistamenu Class an feature to show an image trasparent at the end of vistamenu window

I take this feature from another class of our Big Friend Paco I have and I think there 's no problems to pubblished it to our community.












I add two DATA

DATA cWatermark
DATA nWTrans

the first is the name of the bitmap, the second is a numeric value to set the transparency of this logo

I add a new method METHOD DrawTraspLogo()

on the Paint method after the line FillSolidRect( hDCMem, rc, ::nClrPane )

I add this commands


if !Empty(::cWatermark )
:: DrawTraspLogo(hDCMem)
ENDIF

I add this method
METHOD DrawTraspLogo(hDCMem) CLASS TVistaMenu
Local hWater,nW,nH,nT,nB,nR
if !Empty(::cWatermark )
hWater := LoadImageEx( ::cWatermark )
if hWater != 0
nW := BmpWidth ( hWater )
nH := BmpHeight( hWater )
nT := ::nHeight - nH-1 -10
nL := ::nWidth - nW-1 -25 //????
nB := nT + nH
nR := nL + nW
DrawAlphaTransparentBitmap( hDCMem, hWater, {nT,nL,nB,nR}, ::nWTrans, RGB(255,0,255) )
DeleteObject( hWater )
endif
endif
return 0




to make a test you must add on .\samples\vistamn1.prg :

oVMenu := TVistaMenu():New( 0,0, 100, 100, oWnd )
oVMenu:nColumns := 2
oVMenu:nType := 2
oVMenu:cWatermark:=".\bitmaps\logo.bmp"
oVMenu:nWTrans :=180




It run ok only when I select a Item on Vistamenu the item not is trasparent when exit the logo at left

Nice

Very nice Silvio.