Window erstellen in Purebasic funktioniert nicht

[Kiffi]

@Thomas:

http://www.purearea.net/pb/download/tut ... torium.pdf

Grüße ... Kiffi

[01-andreas]

@Thomas:

http://www.purearea.net/pb/download/tut ... torium.pdf

Grüße ... Kiffi

Ja genau das ist die Datei, dann auf Seite 28 geht das Thema los.


@ Thomas: Was hast du denn eigentlich genau damit vor? Würde mich mal interessieren.

[ts-soft]

@Thomas:

http://www.purearea.net/pb/download/tut ... torium.pdf

Grüße ... Kiffi

Danke, aber die PDF werde ich nicht überarbeiten, das lohnt dann doch nicht.

[01-andreas]

Hallo,

wieder das gleiche Problem mit dem Thema Windows-Handling, langsam finde ich es etwas blöd, wenn die Tutorials oft nicht mehr korrekt sind, wieder die Syntax Fehlermeldung.

Code: Alles auswählen

;Öffne ein Fenster...
If OpenWindow(0,0,0,100,100,"Knopf",#PB_Window_MinimizeGadget |#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
;Das Fenster konnte erstellt werden
;Benutze Fenster 0
UseWindow(0)
;Erstelle eine Liste für das aktuell benutzte Fenster
If CreateGadgetList(WindowID())
;Die GadgetListe konnte erstellt werden :-)
;Erstelle ein ButtonGadget(diese Knöpfchen)
ButtonGadget(0,0,0,100,20,"Knopf 1",#PB_Button_Left)
;Und noch einen ^^
ButtonGadget(1,0,80,100,20,"Knopf 2",#PB_Button_Right)
EndIf
;Okay alles klar soweit :-)
;Unsere Event-Loop
Repeat
;Auf ein Event warten...
Event = WaitWindowEvent()
Select Event ;Das Event herausfinden
Case #PB_Event_CloseWindow ;Fenster soll geschlossen werden...
End ;Cya ^^
Case #PB_EventGadget ;Es ist ein Ereignis auf einem Knopf
aufgetreten...
Select EventGadgetID() ;Welches wurde gedrückt?
Case 0 ;Gadget 0 wurde gedrückt...
MessageRequester("Hallo","Du hast Knopf 1 gedrückt",0)
Case 1 ;Gadget 1 wurde gedrückt
MessageRequester("Hallo","Du hast Knopf 2 gedrückt",0)
EndSelect
EndSelect
ForEver
EndIf

Den ersten Fehler zeigt er bei UseWindow(0) an, wie muss ich es denn korrigieren, auf F1 finde ich sowas nicht, wenn ich dieses Wort markiere und mit F1 überprüfe.


Ps.: Gibt es noch Tutorials die 100% funktionieren, Beispiele haben und sich mit dem Thema Windows-Handling befassen? Wenn ja nenn mal den Link bitte. Anders komme ich sonst nicht weiter, wenn ständig Fehlermeldungen auftauchen.

Ein leeres Windows Fenster kann ich erstellen aber bei dem Tutorial mit den Knöpfen klappt es wieder nicht, weil dort etwas falsch ist oder meine Demo Version sowas angeblich nicht erstellen kann.

[ts-soft]

Die meisten Tutorials wurden doch überarbeitet. Ansonsten musst Du in der Geschichte nach den
nicht mehr enthaltenen Funktionen suchen!
Unter "Änderungen" (changes.htm) sind alle Änderungen von PB3.xx zu PB4.xx aufgeführt.

Code: Alles auswählen

;Öffne ein Fenster...
If OpenWindow(0,0,0,100,100,"Knopf",#PB_Window_MinimizeGadget |#PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ;Das Fenster konnte erstellt werden
  ;Erstelle eine Liste für das aktuell benutzte Fenster
  ;If CreateGadgetList(WindowID())
    ;Die GadgetListe konnte erstellt werden :-)
    ;Erstelle ein ButtonGadget(diese Knöpfchen)
    ButtonGadget(0,0,0,100,20,"Knopf 1",#PB_Button_Left)
    ;Und noch einen ^^
    ButtonGadget(1,0,80,100,20,"Knopf 2",#PB_Button_Right)
  ;EndIf
  ;Okay alles klar soweit :-)
  ;Unsere Event-Loop
  Repeat
    ;Auf ein Event warten...
    Event = WaitWindowEvent()
    Select Event ;Das Event herausfinden
      Case #PB_Event_CloseWindow ;Fenster soll geschlossen werden...
        End ;Cya ^^
      Case #PB_Event_Gadget ;Es ist ein Ereignis auf einem Knopf aufgetreten...
        Select EventGadget() ;Welches wurde gedrückt?
          Case 0 ;Gadget 0 wurde gedrückt...
            MessageRequester("Hallo","Du hast Knopf 1 gedrückt",0)
          Case 1 ;Gadget 1 wurde gedrückt
            MessageRequester("Hallo","Du hast Knopf 2 gedrückt",0)
        EndSelect
    EndSelect
  ForEver
EndIf 

Gruß
Thomas

[01-andreas]

Wusste ich noch nicht, dass man sowas in der Geschichte finden kann, aber da wo du es erwähnt hast, ist mir es auch aufgefallen dass dort die ganzen Veränderungen stehen.

Für deine Hilfe nochmal ein Dankeschön.