Fenster schließen und ein Menü....brauch Hilfe!

Übersicht

BlitzBasic

BlitzPlus

	tmode00 Betreff: Fenster schließen und ein Menü....brauch Hilfe!	So, Sep 17, 2006 11:31 Antworten mit Zitat
Hallo, ich progge erst seid kurzem mit BlitzPlus und habe sonst immer mit Blitz3d ohne GUI gescripted! Ich habe mir das ganze mit diesem WaitEvent und co mal angeschaut und einen einfachen Test gemacht: Code: [AUSKLAPPEN] [EINKLAPPEN] Const screen_width = 1024 Const screen_height = 768 ;----------------------------------------------------------------------- startfenster = CreateWindow("Guten Tag",200,200,640,480,Desktop()) menu_datei = CreateMenu("Datei",1,WindowMenu(startfenster)) menu_neu = CreateMenu("Neu",2,menu_datei) menu_alt = CreateMenu("Alt",3,menu_datei) menu_bearb = CreateMenu("Bearbeiten",4,WindowMenu(startfenster)) UpdateWindowMenu startfenster ;------------------------------------------------------------------------ Repeat If WaitEvent(1) = $1001 Then ;prüfe ob im menü was angeklickt wurde If EventData() = 2 Then ;war es der punkt ,,Neu" value=MenuChecked(menu_neu) If value=0 Then CheckMenu(menu_neu) If value=1 Then UncheckMenu(menu_neu) UpdateWindowMenu startfenster ElseIf EventData() = 3 Then ;war es der punkt ,,Alt" value=MenuChecked(menu_alt) If value=0 Then CheckMenu(menu_alt) If value=1 Then UncheckMenu(menu_alt) UpdateWindowMenu startfenster EndIf EndIf ;If WaitEvent(1) = $803 Then End --------->Problemzeile!!!!! Until KeyHit(1) ;-------------------------------------------------------------------------- So, an und für sich eine feine Sache! Ich kann Datei/Neu auswählen und auch Datei/alt! Sobald ich aber ein weiteres WaitEvent einbaue, z.b. um zu prüfen ob schließen gedrückt wurde geht es nur noch teilweise! Das Waitevent scheint nicht schnell genug zu sein bzw. das Timeout so dass es passiert das man genau in dem Wartemoment auf Neu oder Alt klickt, fazit: es passiert nichts! So ohne die ,,Problemzeile", alles Okay: Und mit eben nicht! Ich hoffe mir kann jemand weiterhelfen, danke im Voraus! Ps.: Nicht wundern das ich kein SELECT...CASE benutze, ich kann mich einfach nicht daran gewöhnen ^^
While (1) : Wend

tmode00

Betreff: Fenster schließen und ein Menü....brauch Hilfe!

So, Sep 17, 2006 11:31
Antworten mit Zitat

Hallo,

ich progge erst seid kurzem mit BlitzPlus und habe sonst immer mit Blitz3d ohne GUI gescripted!

Ich habe mir das ganze mit diesem WaitEvent und co mal angeschaut und einen einfachen Test gemacht:

Code: [AUSKLAPPEN]

Const screen_width = 1024
Const screen_height = 768
;-----------------------------------------------------------------------
startfenster = CreateWindow("Guten Tag",200,200,640,480,Desktop())
menu_datei = CreateMenu("Datei",1,WindowMenu(startfenster))
menu_neu = CreateMenu("Neu",2,menu_datei)
menu_alt = CreateMenu("Alt",3,menu_datei)
menu_bearb = CreateMenu("Bearbeiten",4,WindowMenu(startfenster))

UpdateWindowMenu startfenster
;------------------------------------------------------------------------
Repeat
If WaitEvent(1) = $1001 Then          ;prüfe ob im menü was angeklickt wurde
   If EventData() = 2 Then             ;war es der punkt ,,Neu"
      value=MenuChecked(menu_neu)
   If value=0 Then CheckMenu(menu_neu)
   If value=1 Then UncheckMenu(menu_neu)
   UpdateWindowMenu startfenster
   ElseIf EventData() = 3 Then          ;war es der punkt ,,Alt"
      value=MenuChecked(menu_alt)
   If value=0 Then CheckMenu(menu_alt)
   If value=1 Then UncheckMenu(menu_alt)
   UpdateWindowMenu startfenster
   EndIf
EndIf

;If WaitEvent(1) = $803 Then End --------->Problemzeile!!!!!

Until KeyHit(1)
;--------------------------------------------------------------------------

So, an und für sich eine feine Sache! Ich kann Datei/Neu auswählen und auch Datei/alt!

Sobald ich aber ein weiteres WaitEvent einbaue, z.b. um zu prüfen ob schließen gedrückt wurde geht es nur noch teilweise! Das Waitevent scheint nicht schnell genug zu sein bzw. das Timeout so dass es passiert das man genau in dem Wartemoment auf Neu oder Alt klickt, fazit: es passiert nichts!

So ohne die ,,Problemzeile", alles Okay:
user posted image

Und mit eben nicht!

Ich hoffe mir kann jemand weiterhelfen, danke im Voraus!

Ps.: Nicht wundern das ich kein SELECT...CASE benutze, ich kann mich einfach nicht daran gewöhnen ^^

While (1) : Wend

	Schnittlauch Unkraut	So, Sep 17, 2006 11:50 Antworten mit Zitat
Du solltest nur ein WaitEvent() benutzten. z.B. Select Waitevent() case $801 ... end select
Ich wars nicht.

Schnittlauch

Unkraut

So, Sep 17, 2006 11:50
Antworten mit Zitat

Du solltest nur ein WaitEvent() benutzten.
z.B.

Select Waitevent()
case $801
...
end select

Ich wars nicht.

	Blitzcoder Newsposter	So, Sep 17, 2006 11:53 Antworten mit Zitat
Du darfst nur ein waitevent benutzen: Code: [AUSKLAPPEN] [EINKLAPPEN] ... select waitevent(1) case $803 end case sonstwas print "Blubb" end select MfG Blitzcoder
P4 3 Ghz@3,55Ghz\|GF 6600GT 256MB\|Samsung 80GB \| 2x Samsung 160GB\|2048MB DDR-400 RAM\|6 Mbit Flatrate \| Logitech G15 \| Samsung 225BW-TFT \| Ubuntu Gutsy Linux \| Windows Vista \| Desktop \| Blog \| CollIDE \| Worklog ________________ \|°°°°°°°°°°°°°°\|\|'""\|""\__,_ \|______________ \|\|__ \|__\|__ \|) \|(@) \|(@)"""\|(@)(@)**\|(@)

Blitzcoder

Newsposter

So, Sep 17, 2006 11:53
Antworten mit Zitat

Du darfst nur ein waitevent benutzen:

Code: [AUSKLAPPEN]

...
select waitevent(1)
case $803
end
case sonstwas
print "Blubb"
end select

MfG Blitzcoder

P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)