TVistaMenu problem

[richard-service]

Hi
I try to use it within Resource. but not work. Someone know it? Thank you.

Code: Select all  Expand view

oVMenu := TVistaMenu():Redefine( 1000, oDlg, , )
oVMenu:nColumns := 1
oVMenu:nType := 2

oItem := oVMenu:AddItem( "Sistema y mantenimiento " )
 

Error description: Error BASE/1123 Argument error: AADD
Args:
[ 1] = U
[ 2] = O TVISTAMENUITEM

Stack Calls
===========
Called from: => AADD( 0 )
Called from: .\source\classes\VISTAMNU.PRG => TVISTAMENU:ADDITEM( 135 )

[carlos vargas]

Is you call this code in on init of dialog?

this type of controls is call only in the on init clasule


example:

Code: Select all  Expand view

PRIVATE oDlg
...
DEFINE DIALOG oDlg....
...
REDEFINE GETS ...
...
ACTIVATE DIALOG oDlg ON INIT CallBuild_TVIstaMenu()

procedure CallBuild_TVistamenu()
...
/*build the tvistamenu here.*/
...
return

 

salu2
carlos vargas

[richard-service]

Hi Carlos,

I got error below:
Error FiveWin/3 Cannot create Dialog Box

Code: Select all  Expand view

ACTIVATE DIALOG oDlg CENTER              ;
               ON INIT ( NoCloseButton(oDlg), CallBuild_TVistamenu(oDlg) ) ;

STATIC FUNCTION CallBuild_TVistamenu(oD)

LOCAL oVMenu, oItem

      oVMenu := TVistaMenu():Redefine( 1000, oD )
             oVMenu:nColumns := 1
             oVMenu:nType := 2

             oItem := oVMenu:AddItem( "Sistema y mantenimiento " )
             oItem:AddItem( "Empezar a trabajar con windows",,;
                            { || MsgInfo( "Sistema y mantenimiento" ) } )
             oItem:AddItem( "Hacer una copia de seguridad del equipo" )
             oItem:AddItem( "Item 1 Item 1" )
             oItem:AddItem( "ItemItem2 ItemItem2" )
             oItem:AddItem( "ItemItemItem3 ItemItemItem3" )

RETURN NIL
 

[Daniel Garcia-Gil]

Hello

the resource name is "TVISTAMENU"

[richard-service]

Hi Daniel,

Yes, I have it.

Code: Select all  Expand view

D_DR_WIN_Login DIALOG 46, 18, 304, 279
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "使用者登入"
FONT 12, "細明體"
{
 CONTROL "登入帳號", 701, "TDr3dText", 0 | WS_CHILD | WS_VISIBLE, 7, 52, 47, 12
 COMBOBOX 103, 58, 52, 94, 66, CBS_DROPDOWNLIST | CBS_OWNERDRAWFIXED | CBS_SORT | CBS_DISABLENOSCROLL | WS_VSCROLL | WS_TABSTOP
 CONTROL "登入密碼", 702, "TDr3dText", 0 | WS_CHILD | WS_VISIBLE, 7, 71, 47, 12
 EDITTEXT 102, 58, 71, 94, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP
 PUSHBUTTON "", 301, 110, 170, 60, 30
 PUSHBUTTON "", 302, 173, 170, 60, 30
 PUSHBUTTON "", 303, 236, 170, 60, 30
 CONTROL "", 600, "TImage", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 20, 120, 73, 84
 CONTROL "部門名稱", 703, "TDr3dText", 0 | WS_CHILD | WS_VISIBLE, 7, 90, 47, 12
 CONTROL "", 2000, "TDr3dText", 0 | WS_CHILD | WS_VISIBLE, 58, 90, 94, 12
 CONTROL "", 1000, "TVistaMenu", 0 | WS_CHILD | WS_VISIBLE, 19, 210, 279, 66
}
 

[ukoenig]

Hello,

I tested from Resource ( on Dialog Init ), but doesn't work at all.
Is there a complete working sample ?

I used only a empty Dialog with :
CONTROL "", 1000, "TVistaMenu", 0 | WS_CHILD | WS_VISIBLE, 19, 210, 279, 66

Error-Message :
Cannot create Dialog

Best Regards
Uwe

[karinha]

Please,

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41269&sid=39b22cda88b53583e374382d48e901ef

Regards, saludos.

[richard-service]

Please,

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=41269&sid=70fe7b9f49c0029b7fe3e1e5ab88236e

Regards, saludos.

Thank you so much.