[erledigt] Shift+Mouse ScrollUp = EventType LeftDoubleClick

[NicknameFJ]

Hallo zusammen,

Code: Alles auswählen

If OpenWindow(1,0,0,600,420,"TEST")
  
  ListIconGadget(1,10,10,580,400,"Spalte1",400)
  
  For i = 0 To 99
    AddGadgetItem(1,i,"Entry #"+Str(i))  
  Next
  
  Repeat
    Event = WaitWindowEvent()
    
    Select Event
        
      Case #PB_Event_CloseWindow
        Quit = 1
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            
            Select EventType()
              Case #PB_EventType_LeftDoubleClick
                Debug "Mouse: left double click"
                
            EndSelect
            
        EndSelect
        
    EndSelect
    
  Until Quit = 1
          
EndIf

bitte einen Eintrag im ListIconGadget anklicken, anschließend SHIFT Taste gedrückt halten und am Mausrad nach oben (weg vom Benutzer) scrollen. Als EventType kommt in der Eventschleife "#PB_EventType_LeftDoubleClick" an.

Kann das bitte jemand bestätigen, mache ich etwas falsch oder ist das ein BUG?

System Win XP Sp 3 Home (x86) und PB 5.00 und 5.10 final. Die neue 5.11ß habe ich noch nicht getestet.

Grüße

NicknameFJ

[ts-soft]

http://www.techtalkz.com/tips-n-tricks/ ... magic.html

[NicknameFJ]

Danke ts-soft

Windows macht mich langsam echt fertig