Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)
-   -   Feststellanzeiger (https://www.delphipraxis.net/142477-feststellanzeiger.html)

BUG 28. Okt 2009 22:04


Feststellanzeiger
 
Liste der Anhänge anzeigen (Anzahl: 2)
Ich hab einen Laptop ohne LED für die Feststelltaste, was nervig ist, wenn man drauf kommt und es nicht merkt.
Ich bringe es aber auch nicht übers Herz die Feststelltaste abzuschalten (warum: keine Ahnung :mrgreen: ).

Also hier mein Programm, welches optisch und akustisch anzeigt, ob Capslock an ist.
Erwähnenswert finde ich die automatische Rücksetzung der Feststelltaste und ein hübsches Tray-Icon.

EDIT: Das Ganze ist geschrieben und kompiliert mit Lazarus.

Kritik und Vorschläge sind erwünscht.
Lob hab ich nicht verdient, das Auslesen und Setzten der Capslock-Status habe hier abgeschrieben.

MfG,
Bug

himitsu 28. Okt 2009 22:14

Re: Feststellanzeiger
 
Gibt es da keinen Treiber/Hersteller-Software?
Die Funktastatur meiner Mom hat auch keine LEDs, aber dafür wird es via OnScreenDisplay direkt auf dem Bildschirm eingeblendet.


PS: Systemsteuerung > Eingabehilfen > Tastatur
dakann man sich auch 'nen Sound einbspielen lassen :stupid:

BUG 28. Okt 2009 22:50

Re: Feststellanzeiger
 
Zitat:

Zitat von himitsu
Gibt es da keinen Treiber/Hersteller-Software?
Die Funktastatur meiner Mom hat auch keine LEDs, aber dafür wird es via OnScreenDisplay direkt auf dem Bildschirm eingeblendet.

Bei mir nur bei einigen Fn-Tasten.

Zitat:

Zitat von himitsu
PS: Systemsteuerung > Eingabehilfen > Tastatur
dakann man sich auch 'nen Sound einbspielen lassen :stupid:

Stimmt ... kannte ich nicht.
Popup, Tray-Icon und automatische Rücksetzung gibt es da aber nicht (man kann das alles auch Ausstellen) :mrgreen:

MfG,
Bug

himitsu 29. Okt 2009 03:36

Re: Feststellanzeiger
 
Joar ... man kann halt nicht alles habel :stupid:
Zumindestens für Num-Lock gibt es indirekt ein TrayIcon, zusammen mit der für Desktops praktischen Tastaturmaus (leider gibt's ja keinen NummernBlock auf Notebooks).

Statt dem Popup, könnte man eventuell auch MSDN-Library durchsuchenFlashWindow auf das aktive Fenster (anderer Anwendungen) anwenden?

[add]
Wie stellst du die Locks denn um/zurück? [noch' edit] bin auch blöd, da liegt ja der Source rum [/edit]
Bei mir ist mit deinem Programm die Feststelltaste (CapLock) immer aktiviert
und statt des Pollens via Timer würde ich einen globalen Tastaturhook empfehlen, denn wie du gleich sehn kannst, werden bei diesen Tasten auch nette Tastencodes gesendet :)
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Caption := Format('%d %d %x', [GetTickCount, Key, Byte(Shift)]);
end;
OK, das geht so nur innerhalb deiner Anwendung, aber als globalen Tastaturhook umgesetzt, muß man nicht ständig den Status abfragen. :zwinker:

turboPASCAL 29. Okt 2009 09:18

Re: Feststellanzeiger
 
Feststelltasten-Anzeige ala nonVCL für Platzsparer. ;)

Ich habe mir einmal erlaubt unter dem Link, eine (Delphi) nonVCL-Version mit einem Low Level Tastaturhook bereit zu stellen.

himitsu 29. Okt 2009 10:09

Re: Feststellanzeiger
 
Dein Programm zeigt zwar den Status richtig an, aber es schaltet MEIN CapLock immer an
(vermutlich durch due Ausschaltautomatik)

Grund wird hier wohl auch mein anderes Tastaturverhalten haben
siehe Beschreibung und Anhang im anderen Thread http://www.delphipraxis.net/internal...095725#1095725

Muellermilchtrinker 29. Okt 2009 11:01

Re: Feststellanzeiger
 
Zitat:

Zitat von himitsu
(leider gibt's ja keinen NummernBlock auf Notebooks)

Sag des net. Ich hab ein 17" Notebook und nen NummernBlock. Und wenn du jetzt sagst des ist nur 17", dann muss ich dich enttäuschen. Mein Cousin hat nen 15,4" Notebook und da hat ASUS (glaub ich) auch noch nen Nummernblock hingequetscht :shock:

MarcoWarm 29. Okt 2009 11:09

Re: Feststellanzeiger
 
Zitat:

Zitat von Muellermilchtrinker
ASUS (glaub ich) auch noch nen Nummernblock hingequetscht

OT: http://www.notebookcheck.net/Review-...k.10167.0.html ... schick schick :-D


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:47 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz