Unterscheidung LeftClick und LeftDoubleClick bei EventType()

[RSBasic]

+1
Allgemeine Windows-Einstellungen wie die Doppelklickzeit der Maus sollen von Anwendungen nicht verändert werden. Das macht nur der Benutzer selbst in der Systemsteuerung.

[ts-soft]

Gerade die Doppelclickzeit sollte man nicht verändern. Ist meist eine der ersten Tätigkeiten von Einsteigern/Ungeübten usw. in der
Systemsteuerung um ein Doppelclick zu ermöglichen. Wenn das jetzt jemand anders verstellt, wäre das schon sehr übel.

[Danilo]

Man kann das auch selbst machen, ohne es im System zu verstellen.

Code: Alles auswählen

#DblClickTime = 250

Global clickStart = ElapsedMilliseconds()

Procedure OnClickTimer()
    RemoveWindowTimer(0,1)
    Debug "Single Click"
EndProcedure

Procedure OnClick()
    If (clickStart + #DblClickTime) >= ElapsedMilliseconds()
        RemoveWindowTimer(0,1)
        Debug "Double Click"
        ProcedureReturn
    EndIf
    clickStart = ElapsedMilliseconds()
    AddWindowTimer(0,1,#DblClickTime+20)
EndProcedure

If OpenWindow(0, 0, 0, 300, 200, "ListIcon Example", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    ListIconGadget(0, 5, 5, 290, 190, "Name", 100, #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection)
    AddGadgetColumn(0, 1, "Address", 250)
    AddGadgetItem(0, -1, "Harry Rannit"+Chr(10)+"12 Parliament Way, Battle Street, By the Bay")
    AddGadgetItem(0, -1, "Ginger Brokeit"+Chr(10)+"130 PureBasic Road, BigTown, CodeCity")
    
    BindGadgetEvent(0, @OnClick(), #PB_EventType_LeftClick)
    
    BindEvent(#PB_Event_Timer,@OnClickTimer(),0,1)
    
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Ich finde das aber nicht empfehlenswert, da es die gewünschte Doppelklickzeit des Benutzers ignoriert.
Es ist besser sich Grundsätzlich etwas einfallen zu lassen, so dass Einzel- und Doppelklick sich ergänzen
und nicht einander ausschließen.