(1.322)  S'inscrire

Français
Forum

Menuetext changement

 

Manfred
Barei
Salut,

gibt es pour cela la fenêtre Menu quelque chose comme comment Settext um den Menuetext trop changement

Salut
 
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 |
13.01.2011  ▲
 



Hilft Dir SetMenuItemInfo  [...]  ?
 
14.01.2011  ▲
 




Rolf
Koch
ou bien zur Not une Proc écrivons. Kompl. menu effacer et neuen Werten (z.B. Parameterübergabe dans Proc) récente erstellen. So serait je es faire.
 
14.01.2011  ▲
 




Detlef
Jagolski
ou bien so?
KompilierenMarqueSéparation
Déclarer appexit%
Déclarer Button1&
Déclarer Menu#, hSubMenu&
 $H WINDOWS.PH
 $H MESSAGES.PH

Proc CreateMainMenu

    Popup "Beispiel"
    AppendMenu 1,"Text1"

ENDPROC

Set("TrueColor", 1)
Fenêtre Style $003F
Titre de la fenêtre "DesignForm"
Fenêtre %maxx + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Créer("Button",%hwnd,"Menü ändern",93,65,75,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    Si %clé = 2

        appexit% = 1

    ElseIf MenuItem(1)

        'menu Text1

    ElseIf Clicked(Button1&)

        Faible Menu#,255
        hSubMenu& = ~GetSubMenu(&hMenu,0)
        String Menu#,0="Ich suis qui neue Text"
        ~ModifyMenu(hSubMenu&,0,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
        Dispose Menu#

    ElseIf %clé = 4

        ' Fenstergröße

    ElseIf %clé = 5

        ' Aider

    EndIf

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




Manfred
Barei
allô Detlef,

so habe je cela déjà hinbekommen, cependant voudrais Je l' Hauptmenueintrag (Oberste plaine) aussi changement (c'est dass quoi je encore pas hinbekomme), pour weitere Vorshläge suis je offen.

Habe es so gemacht, comment Rolf es vorgeschlagen hat, cependant sollte es doch aussi une autre Possibilité donner, autre Programme bekommen cela doch aussi hin.

c'est vieleicht un vorschlag pour XProfan13 (SetText aussi pour cela Menu), Roland ist ca eventuel umsetzbar?

Salut
 
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 |
14.01.2011  ▲
 




Rolf
Koch
Dürfte doch ne...aucune Problem son:
KompilierenMarqueSéparation

alors seulement &hmenu angeben.
 
14.01.2011  ▲
 




Rolf
Koch
ah oublier qc, avec cela es aussi direct aktualisiert après encore un:
KompilierenMarqueSéparation
 
14.01.2011  ▲
 




Detlef
Jagolski
Besser ist
KompilierenMarqueSéparation
 
XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11
14.01.2011  ▲
 




Manfred
Barei
allô Detlef,

peux du encore einmal aider, bekomme es simple pas hin.
Den hMenu Eintrag peux je eh bien changement, cependant bekomme je cela avec dem hSubMenu Eintrag simple pas hin, siehe Code.
KompilierenMarqueSéparation
Déclarer appexit%
Déclarer Button1&,Button2&
Déclarer Menu#,hMenu&,hSubMenu&
Faible 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

    Paramètres m%,nr%,Text$
    ' m%, chez 0 ist cela hMenu gemeint, chez 1 cela hSubMenu
    ' nr%, qui Position des hMenu bzw. d MenuItem
    ' Text$ contient den neuen Text
    hMenu& = ~GetMenu(&hMenu,0)
    hSubMenu& = ~GetSubMenu(&hMenu,0)
    String Menu#,0=Text$
    Cas m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    Cas m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    ~DrawMenuBar(%hwnd)

ENDPROC

Set("TrueColor", 1)
Fenêtre Style $003F
Titre de la fenêtre "DesignForm"
Fenêtre %maxx + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Créer("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Créer("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    Waitinput

    Si %clé = 2

        appexit% = 1
        Dispose Menu#

    ElseIf MenuItem(1)

        'menu Text1

    ElseIf Clicked(Button1&)

        ChangeMenu 0,0,"Hauptmenü OK"

    ElseIf Clicked(Button2&)

        ChangeMenu 1,1,"Test2 OK"

    ElseIf %clé = 4

        ' Fenstergröße

    ElseIf %clé = 5

        ' Aider

    EndIf

Wend

Salut
 
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
allô Manfred,

so sollte es aller.

GetMenu hat seulement un paramètre et muss %hwnd son dans unserem le cas, &hMenu ist cela Handle vom menu des Hauptfensters.c'est pourquoi brauchen wir hMenu& = ~GetMenu(%hwnd) pas, hatte chez Dir aussi aucun Funktion.
KompilierenMarqueSéparation
Déclarer appexit%
Déclarer Button1&,Button2&
Déclarer Menu#,hMenu&,hSubMenu&
Faible 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

    Paramètres m%,nr%,Pos%,Text$
    ' m%, chez 0 ist cela hMenu gemeint, chez 1 cela hSubMenu
    ' nr%, qui Position des hMenu bzw. d MenuItem
    ' Pos% gibt qui Position à pour cela hSubMenu à
    ' Text$ contient den neuen Text
    hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
    String Menu#,0=Text$
    Cas m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    Cas m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    ~DrawMenuBar(%hwnd)

ENDPROC

Set("TrueColor", 1)
Fenêtre Style $003F
Titre de la fenêtre "DesignForm"
Fenêtre %maxx + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Créer("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Créer("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    Waitinput

    Si %clé = 2

        appexit% = 1
        Dispose Menu#

    ElseIf MenuItem(1)

        'menu Text1

    ElseIf Clicked(Button1&)

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

    ElseIf Clicked(Button2&)

        ChangeMenu 1,0,0,"Test2 OK"

    ElseIf %clé = 4

        ' Fenstergröße

    ElseIf %clé = 5

        ' Aider

    EndIf

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




Manfred
Barei
allô Detlef,

DAAAAAAAANNNNNKKKEE, maintenant funtz es comment je es brauche.
Relatif à la zweiten paramètre chez ~GetSubMenu véritable dass quoi je toujours faux gemacht habe, hat cela kanze Lesen im Netz rien genützt.

Nochmals merci pour qui Aider aussi à alle anderen.

Salut aus qui 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
Detlef Jagolski (22.01.11)
allô Manfred,

so sollte es aller.

GetMenu hat seulement un paramètre et muss %hwnd son dans unserem le cas, &hMenu ist cela Handle vom menu des Hauptfensters.c'est pourquoi brauchen wir hMenu& = ~GetMenu(%hwnd) pas, hatte chez Dir aussi aucun Funktion.
KompilierenMarqueSéparation
Déclarer appexit%
Déclarer Button1&,Button2&
Déclarer Menu#,hMenu&,hSubMenu&
Faible 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

    Paramètres m%,nr%,Pos%,Text$
    ' m%, chez 0 ist cela hMenu gemeint, chez 1 cela hSubMenu
    ' nr%, qui Position des hMenu bzw. d MenuItem
    ' Pos% gibt qui Position à pour cela hSubMenu
    ' Text$ contient den neuen Text
    hSubMenu& = ~GetSubMenu(&hMenu,Pos%)
    String Menu#,0=Text$
    Cas m%=0 : ~ModifyMenu(&hMenu,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    Cas m%=1 : ~ModifyMenu(hSubMenu&,nr%,~MF_BYPOSITION | ~MF_STRING,1,Menu#)
    ~DrawMenuBar(%hwnd)

ENDPROC

Set("TrueColor", 1)
Fenêtre Style $003F
Titre de la fenêtre "DesignForm"
Fenêtre %maxx + 5,114 - 498,415
Cls ~GetSysColor(15)
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
CreateMainMenu
Button1&=Créer("Button",%hwnd,"hMenü ändern",93,65,100,25)
Button2&=Créer("Button",%hwnd,"subMenü ändern",93,100,100,25)
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    Waitinput

    Si %clé = 2

        appexit% = 1
        Dispose Menu#

    ElseIf MenuItem(1)

        'menu Text1

    ElseIf Clicked(Button1&)

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

    ElseIf Clicked(Button2&)

        ChangeMenu 1,0,0,"Test2 OK"

    ElseIf %clé = 4

        ' Fenstergröße

    ElseIf %clé = 5

        ' Aider

    EndIf

Wend

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



répondre


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

Unreaded
abonner
La liste de voeux
Notes
guests
Effacer
Permanent
Done

19.948 Views

Untitledvor 0 min.
RudiB.01.02.2022
Georg Teles10.03.2018
Ernst12.05.2016
Michael W.22.08.2015
plus...

Themeninformationen

cet Thema hat 4 participant:

Detlef Jagolski (4x)
Manfred Barei (4x)
Rolf Koch (3x)
iF (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.

d'accordDatenschutzerklärung
je voudrais keinen Cookie