FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour TVistaMenu problem
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM

TVistaMenu problem

Posted: Sat Sep 01, 2012 01:39 PM
Hi
I try to use it within Resource. but not work. Someone know it? Thank you.
Code (fw): Select all Collapse
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 )
    [/list:u]
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: TVistaMenu problem

Posted: Sat Sep 01, 2012 05:17 PM
Is you call this code in on init of dialog?

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


example:
Code (fw): Select all Collapse
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
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM

Re: TVistaMenu problem

Posted: Sat Sep 01, 2012 05:34 PM
Hi Carlos,

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

Code (fw): Select all Collapse
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
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM

Re: TVistaMenu problem

Posted: Sat Sep 01, 2012 05:35 PM

Hello

the resource name is "TVISTAMENU"

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM

Re: TVistaMenu problem

Posted: Sat Sep 01, 2012 05:46 PM
Hi Daniel,

Yes, I have it.
Code (fw): Select all Collapse
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
}
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM

Re: TVistaMenu problem

Posted: Sun Sep 02, 2012 04:18 PM

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 :?:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: TVistaMenu problem

Posted: Tue Jan 04, 2022 06:14 PM
Please,

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
richard-service
Posts: 866
Joined: Tue Oct 16, 2007 08:57 AM

Re: TVistaMenu problem

Posted: Wed Jan 05, 2022 07:29 AM
karinha wrote:Please,

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

Regards, saludos.


Thank you so much.
Best Regards,



Richard



Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 32bit

MySQL v8.0

Harbour 3.2.0dev (r2503251254) => Borland C++ v7.7 64bit

Continue the discussion

Static archive · New replies & topics via GitHub Discussions