Problems With vistamenu Items RESOLVED!!!

[Silvio.Falconi]

I have this VistaMenu



If I insert bmps for the second and third subitems the bmps are too near , How I can make to make a space from each bmps?
Or How I can Make to move the small bmps at right ?

[James Bott]

Silvio,

Maybe as a workaround you can just make all the bitmaps the same size either by resizing or just adding space around the original image.

James

[Silvio.Falconi]

Silvio,

Maybe as a workaround you can just make all the bitmaps the same size either by resizing or just adding space around the original image.

James

James I tried ... I insert the same small bitmaps as you see on this picture

[James Bott]

Silvio,

I am not sure I understand what you want. Can you show an example of the way you want it to appear? Is there a sample in the \samples directory? I have never used the Vista menu.

If you are looking to get the bitmaps right justified, then maybe try making the left border of the bitmap larger than the right one. Something like this:

Code: Select all  Expand view  RUN

--------------
|         XXX |
--------------
 

James

[lucasdebeltran]

Silvio,

Please look at DATA nHMargen and DATA nVTMargen on the class.

[Silvio.Falconi]

:SetMarginH or :SetMarginT methods are for the Vistamenu object

the problem is on item and on TVistaMenuItem

[Silvio.Falconi]

if you add a new Data

on CLASS TVistaMenuItem class
Method Paint

if ::hBmp != 0
if ::lHasAlpha
ABPaint( hDC, nLeft-::oWnd:nWLeftImage+10, nTop, ::hBmp, ::nAlphaLevel )
else
If ::lMove
DrawMasked( hDC, ::hBmp, nTop, (nLeft+40)-::oWnd:nWLeftImage+10 )
ELSE
DrawMasked( hDC, ::hBmp, nTop, nLeft-::oWnd:nWLeftImage+10 )
endif
endif
endif



on test try with

oItem2:= oWnd:AddItem( "Movimenti", "IMAGE_BIG" )
oItem3:= oItem2:AddItem( "Ci sono "+ltrim(str(NumMovimenti))+" movimenti. ",, { || Movimenti() } )
oItem4:= oItem2:AddItem( "di cui "+ltrim(str(NumMovimenti_En))+" sono movimenti di entrata, " ,"sh_small1",)
oItem5:= oItem2:AddItem( "e "+ltrim(str(NumMovimenti_Us))+" sono movimenti di uscita. ","sh_small2",)

oItem4:lMove:=.t.
oItem5:lMove:=.t.


the small bitmaps are moved on left

and I not Know how insert a new line to make a space from item4 and item5



because the class draw each item and not save on memory if there is a item before ( have lmove=.t.)


any solution ?

[Silvio.Falconi]

Now I resolved !!!!




On METHOD GetCoors() CLASS TVistaMenu

I insert this lines on case ntype:=1

IF ::aItems[n]:aItems[n2]:lMove
nBottom :=nBottom+2
ENDIF

before of ::aItems[n]:aItems[n2]:rcItem := { nTop, nLeft, nBottom, nRight }



THIS RUN ONLY FOR :

oWnd:nColumns := 2
oWnd:nType := 1
oItem2:= oWnd:AddItem( "Movimenti", "BIGIMAGE" )
oItem3:= oItem2:AddItem( "Ci sono "+ltrim(str(NumMovimenti))+" movimenti. ",, { || Movimenti() } )
oItem4:= oItem2:AddItem( "di cui "+ltrim(str(NumMovimenti_En))+" sono movimenti di entrata, " ,"sh_small1",)
oItem4:lMove:=.t.
oItem5:= oItem2:AddItem( "e "+ltrim(str(NumMovimenti_Us))+" sono movimenti di uscita. ","sh_small2",)
oItem5:lMove:=.t.



oWnd is oVistamenu Object

BIGIMAGE is 32x32

small1 and small2 is 16x16