Aktives Control farblich hervorheben

[fkerber]

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:

Delphi-Quellcode:

Screenhelper.Connected:=False;                //deaktivieren der Hervorhebung