marabu stellt
hier eine
Unit zur Verfügung, mit der es möglich ist, das aktive Control farblich besonders hervorheben zu können. Hintergrund der Sache war eine Anmerkung von
Sven Janssen, dass es beispielsweise bei Präsentationen schwer wäre, das gerade selektierte Control, wie z.B. ein Edit-Feld, erkennen zu können.
Alles, was man dafür tun muss, ist die angefügte
Unit runterladen und per
Unit-Klausel einzubinden. (Man sollte darauf achten, dass die
Unit sich dann natürlich auch im Suchpfad findet bzw. der Suchpfad entsprechend erweitert wird.)
Die
Unit stellt die globale Variable ScreenHelper zur Verfügung, über die man das "Highlighting" steuern kann. Möchte man die Hervorhebung dauerhaft nutzen, sollte man am besten im OnCreate des Hauptformulars die Initialisierung vornehmen:
Delphi-Quellcode:
Screenhelper.HighlightingColor:=clYellow; //Hintergrund-Farbe des aktiven Controls
Screenhelper.HighlightingFontColor:=clRed; //Schriftfarbe des aktiven Controls
Screenhelper.Connected:=True; //aktivieren der Hervorhebung
Wichtig ist dabei, dass man die Farben vor der Aktivierung setzt, da sonst die Hervorhebung mit den voreingestellten Farben (clInfoBk und clBlack) erfolgt.
Die Hervorhebung erfolgt dann auf allen Formularen des Projektes für die gängstigen Controls und kann jederzeit wieder deaktiviert werden:
Screenhelper.Connected:=False; //deaktivieren der Hervorhebung