Alternative zu ExamineKeyboard?

[DePe]

PB v6.12

Ich verwende ExamineKeybord() und KeyboardPushed() um bei einen Klick auf eine Schaltfläche zu prüfen, ob die Strg- oder Umschalt-Taste gedrückt ist.
Mit Windows 7 wird beim Beenden des Programms dann der Bildschirm kurz dunkel, wenn man das Programm des erstemal verwendet hat. Ich vermute das hat mit DirectX zu tun, das von ExamineKeyboard() verwendet wird.

Unter Linux und MacOS gibt es ja kein DirectX, dort wird das störende Verhalten wohl nicht vorhanden sein. Hat das schon jemand beobachtet?

In PB gibt es anscheinend keine andere Möglichkeit um die Tastatur abzufragen, bleibt nur die Windows API. Wenn man für die anderen OS ExamineKeyboard verwenden kann, wäre das die einfachste Lösung.
Oder kennt jemand einen besseren Weg für Window, Linux und MacOS?

Peter

[jacdelad]

Hi,
ich kann dir nicht wirklich helfen, mir ist aber auch schon aufgefallen, dass der Bildschirm kurz dunkel wird...allerdings nur bei bestimmten Kombinatioben von OS/PB. Ich hatte erst an veraltete Treiber gedacht, war aber alles ok. Vielleicht lässt sich das irgendwie beheben.
Windows API wäre mir zu umständlich, was anderes fällt mir nicht ein.

[Lord]

Hi!

Ist denn für Windows z.B. GetAsyncKeyState_(#VK_CONTROL) keine Alternative?

Code: Alles auswählen

Procedure TestGadget()
  If GetAsyncKeyState_(#VK_CONTROL)&$8000
    SetGadgetText(1, "CTRL")
  Else
    SetGadgetText(1, "normal")
  EndIf
EndProcedure

OpenWindow(1, 10, 10, 200, 200, "")
ButtonGadget(1, 70, 90, 60, 20, "Test")

Repeat
  Event=WaitWindowEvent()
  Select Event
    Case #PB_Event_Gadget
      TestGadget()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

[DePe]

Hallo,

danke, ich werde für Windows die API verwenden, und für die anderen OS vorerst ExamineKeyboard().

Peter

[mk-soft]

Mal im englischen Forum suchen.
Es gibt auch für macOS und Linux ne Lösung

[DePe]

Hallo mk-soft,

danke, ich habe die Funktionen im Code der PureBasic-IDE gefunden.

Peter