XProfan

Hilft Usted SetMenuItemInfo [...]

Rolf
Koch

oder a Not una Proc escribir. Kompl. Menü löschen y neuen Werten (z.B. Parameterübergabe en Proc) neu redactar. So sería Yo hacer.

Detlef
Jagolski

Oder así?

Declarar appexit%
Declarar Button1&
Declarar Menu#, hSubMenu&
 $H WINDOWS.PH
 $H MESSAGES.PH

Proc CreateMainMenu

    Popup "Beispiel"
    AppendMenu 1,"Text1"

ENDPROC

Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"Menü ändern",93,65,75,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

Sinestar encargado appexit%

    WaitInput

    If %key = 2

        appexit% = 1

    ElseIf MenuItem(1)

        'Menü Texto1

    ElseIf Clicked(Button1&)

        Dim Menu#,255
        hSubMenu& = ~GetSubMenu(&hMenu,0)
        String Menu#,0="Ich bin el neue Text"
        ~ModifyMenu(hSubMenu&,0,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
        Disponer Menu#

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Ayuda

    EndIf

Wend

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

Manfred
Barei

¡Hola Detlef,

así Yo el ya hinbekommen, sin embargo möchte Yo, el Hauptmenueintrag (Oberste Ebene) auch ändern (el es dass Yo todavía no hinbekomme), para weitere Vorshläge bin Yo offen.

Posesiones lo así gemacht, como Rolf lo vorgeschlagen ha, sin embargo debería lo doch auch una otro Möglichkeit geben, otro Programas bekommen el doch auch hin.

Es vieleicht una vorschlag para XProfan13 (SetText auch para el Menu), Roland es dies eventuel umsetzbar?

Saludo

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

Rolf
Koch

Dürfte doch kein Problema ser:

~ModifyMenu(&hMenu,0,~MF_BYPOSITION | ~MF_STRING,1,Menu#)

Also sólo &hmenu angeben.

Rolf
Koch

ach vergessen, así lo auch direkt aktualisiert danach todavía una:

RePaint %hwnd

Detlef
Jagolski

Besser es

~DrawMenuBar(%hwnd)

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

Manfred
Barei

¡Hola Detlef,

kannst du todavía una vez helfen, bekomme lo simplemente no hin.

Den hMenu Eintrag kann Yo nun ändern, sin embargo bekomme Yo el con el hSubMenu Eintrag simplemente no hin

, siehe Code.

Declarar appexit%
Declarar Button1&,Button2&
Declarar Menu#,hMenu&,hSubMenu&
Dim Menu#,255
 $H WINDOWS.PH
 $H MESSAGES.PH

Proc CreateMainMenu

    Popup "Hauptmenü1"
    AppendMenu 1,"Text1"
    Popup "Hauptmenü2"
    AppendMenu 2,"Text2"

ENDPROC

Proc ChangeMenu

    Parámetros m%,nr%,Texto$
    ' m%, en 0 es el hMenu gemeint, en 1 el hSubMenu
    ' nr%, el Position des hMenu o. d MenuItem
    ' Texto$ enthält el neuen Texto
    hMenu& = ~GetMenu(&hMenu,0)
    hSubMenu& = ~GetSubMenu(&hMenu,0)
    String Menu#,0=Texto$
    Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    ~DrawMenuBar(%hwnd)

ENDPROC

Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Crear("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

Sinestar encargado appexit%

    Waitinput

    If %key = 2

        appexit% = 1
        Disponer Menu#

    ElseIf MenuItem(1)

        'Menü Texto1

    ElseIf Clicked(Button1&)

        ChangeMenu 0,0,"Hauptmenü OK"

    ElseIf Clicked(Button2&)

        ChangeMenu 1,1,"Test2 OK"

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Ayuda

    EndIf

Wend

Saludo

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

21.01.2011 ▲

Detlef
Jagolski

¡Hola Manfred,

así debería lo ir.

GetMenu ha sólo una Parámetro y muss %hwnd ser en unserem Fall, &hMenu es el Handle vom Menü des Hauptfensters.deshalb brauchen wir hMenu& = ~GetMenu(%hwnd) no, hatte con usted auch no Función.

Declarar appexit%
Declarar Button1&,Button2&
Declarar Menu#,hMenu&,hSubMenu&
Dim Menu#,255
 $H WINDOWS.PH
 $H MESSAGES.PH

Proc CreateMainMenu

    Popup "Hauptmenü1"
    AppendMenu 1,"Text1"
    Popup "Hauptmenü2"
    AppendMenu 2,"Text2"

ENDPROC

Proc ChangeMenu

    Parámetros m%,nr%,Pos%,Texto$
    ' m%, en 0 es el hMenu gemeint, en 1 el hSubMenu
    ' nr%, el Position des hMenu o. d MenuItem
    ' Pos% son el Position a para el hSubMenu a
    ' Texto$ enthält el neuen Texto
    hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
    String Menu#,0=Texto$
    Case m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    Case m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    ~DrawMenuBar(%hwnd)

ENDPROC

Conjunto("TrueColor", 1)
Ventana de Estilo $003F
Título de la ventana "DesignForm"
Ventana %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Crear("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Crear("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

Sinestar encargado appexit%

    Waitinput

    If %key = 2

        appexit% = 1
        Disponer Menu#

    ElseIf MenuItem(1)

        'Menü Texto1

    ElseIf Clicked(Button1&)

        ChangeMenu 0,0,-1,"Hauptmenü OK"

    ElseIf Clicked(Button2&)

        ChangeMenu 1,0,0,"Test2 OK"

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Ayuda

    EndIf

Wend

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

22.01.2011 ▲

Manfred
Barei

¡Hola Detlef,

DAAAAAAAANNNNNKKKEE, ahora funtz lo Yo lo brauche.
Relacionado con la zweiten Parámetro en ~GetSubMenu verdadero dass Yo siempre falso gemacht habe, ha el kanze Lesen en el Netz nichts genützt.

Nochmals Gracias para el Ayuda auch a todos otro.

Saludo de el Heide

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

22.01.2011 ▲

Detlef Jagolski (22.01.11)

Detlef
Jagolski