FiveTech Software tech support forums

Code: Select all | Expand

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

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

Code: Select all | Expand

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

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

 

Code: Select all | Expand

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
 

Code: Select all | Expand

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
}