Seite 1 von 1
maus? geht das?
Verfasst: 29.06.2005 12:05
von 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
Verfasst: 29.06.2005 12:17
von 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
Verfasst: 29.06.2005 12:18
von Mathias-Kwiatkowski
wie verwende ich den diesen befehl?
openwindowedscreen
Verfasst: 29.06.2005 12:26
von 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
;
Verfasst: 29.06.2005 12:32
von 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
Verfasst: 29.06.2005 12:37
von Mathias-Kwiatkowski
danke hat sehr geholfen!!!