[Gelöst] MenuTitle deaktivieren...

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
SimonSimCity
Beiträge: 132
Registriert: 14.01.2007 00:49

[Gelöst] MenuTitle deaktivieren...

Beitrag von SimonSimCity »

Ich weiß schon, wie ich z.B. unter Datei den Eintrag Neu deaktivieren kann, aber wie ich das Ganze Menue Datei ausblenden kann...

Noch mal für Programmierer:

MenuItem() - DisableMenuItem()
MenuTitle() - ????

War das verständlich??
Zuletzt geändert von SimonSimCity am 12.08.2007 16:26, insgesamt 1-mal geändert.
Benutzeravatar
dysti
Beiträge: 656
Registriert: 10.02.2006 18:34
Wohnort: Schlicktown

Beitrag von dysti »

PB5 / Spiderbasic / WB14 / Win7 / Win8.1 / Win10 / Debian 9
Benutzeravatar
SimonSimCity
Beiträge: 132
Registriert: 14.01.2007 00:49

Beitrag von SimonSimCity »

Hier ist ein kleiner Beispielcode:

Code: Alles auswählen

If OpenWindow(0, 216, 0, 602, 302, "New window ( 0 )")
  If CreateMenu(1, WindowID(0))
    MenuTitle("Datei")
     MenuItem(2, "Open")
    MenuTitle("Testversteck")
     MenuItem(3, "Test mich mal")
    CreateGadgetList(WindowID(0))
     ButtonGadget(5, 60, 90, 140, 80, "Verstecker")
  EndIf
EndIf

Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow
Und wenn ich auf den Button "Verstecker" klicke, dann soll das MenuTitel "Titelversteck" einfach verschwinden.
Ihr braucht das nicht mit einem Menupunkt dahinter versuchen, der dann an diese Stelle rücken soll.... Dass soll nur der letzte MenuPunkt sein, der bei einer bestimmten Aktion erscheint und bei einer bestimmten (anderen) Aktion dann wieder verschwindet.
Benutzeravatar
SimonSimCity
Beiträge: 132
Registriert: 14.01.2007 00:49

Beitrag von SimonSimCity »

Oder deaktivieren würde mir auch schon reichen...
Benutzeravatar
HeX0R
Beiträge: 3042
Registriert: 10.09.2004 09:59
Computerausstattung: AMD Ryzen 7 5800X
96Gig Ram
NVIDIA GEFORCE RTX 3060TI/8Gig
Win11 64Bit
G19 Tastatur
2x 24" + 1x27" Monitore
Glorious O Wireless Maus
PB 3.x-PB 6.x
Oculus Quest 2 + 3
Kontaktdaten:

Beitrag von HeX0R »

Code: Alles auswählen

If OpenWindow(0, 216, 0, 602, 302, "New window ( 0 )")
	If CreateMenu(1, WindowID(0))
		MenuTitle("Datei")
		MenuItem(2, "Open")
		MenuTitle("Testversteck")
		MenuItem(3, "Test mich mal")
		CreateGadgetList(WindowID(0))
		ButtonGadget(5, 60, 90, 140, 80, "Verstecker")
	EndIf
EndIf

Repeat
	Select WaitWindowEvent()
		Case #PB_Event_CloseWindow
			Break
		Case #PB_Event_Gadget
			EnableMenuItem_(MenuID(1), 1, #MF_BYPOSITION | #MF_GRAYED)
			DrawMenuBar_(WindowID(0))
	EndSelect
ForEver
Übrigens hättest du, wenn du den Links gefolgt wärst und evtl. dich noch ins MSDN bemüht hättest, locker flockig selbst drauf kommen können.
Das hat mich jetzt 2 Minuten gekostet.
Andreas
ToolbarKönig
Beiträge: 142
Registriert: 08.09.2004 08:33

Beitrag von Andreas »

zum richtigen "verstecken" würde ich einfach 2 Menüs anlegen und zwischen den beiden umschalten.

Code: Alles auswählen

If OpenWindow(0, 216, 0, 602, 302, "New window ( 0 )")
  If CreateMenu(1, WindowID(0))
    MenuTitle("Datei")
    MenuItem(2, "Open")
    MenuTitle("Testversteck")
    MenuItem(3, "Test mich mal")
    MenuTitle("Nachrücker")
    CreateGadgetList(WindowID(0))
    ButtonGadget(5, 60, 90, 140, 80, "Verstecker")
    ButtonGadget(6, 200, 90, 140, 80, "Zeiger")
  If CreateMenu(2, WindowID(0))
    MenuTitle("Datei")
    MenuItem(2, "Open")
    MenuTitle("Nachrücker")
  EndIf
  EndIf
EndIf

SetMenu_(WindowID(0),MenuID(1))

Repeat
  Select WaitWindowEvent()
  Case #PB_Event_CloseWindow
    Break
  Case #PB_Event_Gadget
    Select EventGadget()
    Case 5
      SetMenu_(WindowID(0),MenuID(2))
    Case 6
      SetMenu_(WindowID(0),MenuID(1))
    EndSelect
  EndSelect
ForEver
Gruss Andreas
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

zum richtigen "verstecken" würde ich einfach 2 Menüs anlegen und zwischen den beiden umschalten.
Das funktioniert nur für statische Menüs.
Windows 10 Pro, 64-Bit / Outtakes | Derek
Andreas
ToolbarKönig
Beiträge: 142
Registriert: 08.09.2004 08:33

Beitrag von Andreas »

Fluid Byte hat geschrieben:Das funktioniert nur für statische Menüs.
??? Statische Menüs ???

Was soll das denn sein ?
Gruss Andreas
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

Andreas hat geschrieben:
Fluid Byte hat geschrieben:Das funktioniert nur für statische Menüs.
??? Statische Menüs ???

Was soll das denn sein ?
Das Gegenteil von dynamisch. Bild
Windows 10 Pro, 64-Bit / Outtakes | Derek
Andreas
ToolbarKönig
Beiträge: 142
Registriert: 08.09.2004 08:33

Beitrag von Andreas »

Es gibt nur 2 Arten von Menüs.
Fenstermenüs und Popup-Menüs.

Was ist also ein dynamisches Menü und was ist ein statisches Menü ?
Gruss Andreas
Antworten