maus? geht das?

[Mathias-Kwiatkowski]

damit nicht genug...


wie kann man hier die maus benutzen?

Code: Alles auswählen

OpenLibrary(1,"ftp_lib") 
InitKeyboard() 
InitMouse()

;Fesnter
If OpenWindow(0, 100, 200, 600 , 500, #PB_Window_BorderLess, "Test")
  
Repeat

ExamineMouse()   

If MouseButton(1)
End
EndIf

  
ForEver


EndIf

Edit by Kiffi: Code-Tags gesetzt

[Green Snake]

hallo

ich kann dir nicht helfen, nur sagen, warums nich geht.

mousebutton examinemouse etc sind direcx befehle.
du benutzt aber windows.
dx befehle funzen nur in openscreen oder mit openwindowedscreen

[Mathias-Kwiatkowski]

wie verwende ich den diesen befehl?

openwindowedscreen

[bobobo]

Lass folgendes mal mit aktiviertem Debugger (wegen der Ausgaben) laufen.

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 298, 113, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      
    EndIf
  EndIf
EndProcedure


Open_Window_0()

Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
Select event
Case 512
  Debug Str(event)+" Du hast die Maus bewegt"
Case 513
  Debug Str(event)+" Linke Maust Down"
Case 514
  Debug Str(event)+" Linke Maust UP"
Case 516
  Debug Str(event)+" Rechte Maust Down"
Case 517
  Debug Str(event)+" Rechte Maust up"
Case 519
  Debug Str(event)+" Mittlere Maust Down"
Case 520
  Debug Str(event)+" Mittlere Maust up"
Default
EndSelect


  
Until Event = #PB_Event_CloseWindow ; End of the event loop

End
;

[DrShrek]

Hier noch ein paar PB Konstanten:

#PB_EventType_LeftClick : Klick mit der linken Maustaste
#PB_EventType_RightClick : Klick mit der rechten Maustaste
#PB_EventType_LeftDoubleClick : Doppelklick mit der linken Maustaste
#PB_EventType_RightDoubleClick : Doppelklick mit der rechten Maustaste

[Mathias-Kwiatkowski]

danke hat sehr geholfen!!!