Eine Farbcombobox realisieren |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Eine komfortable Auswahl-Möglichkeit für Farben sucht man in älteren Delphi-Versionen in der Komponentenleiste vergebens. Dieser Artikel zeigt, wie Sie eine Farbcombobox realisieren können.Deklarieren Sie zunächst folgendes Array:
const
FarbArray : array [0..15] of TColor = (clBlack,clMaroon, clGreen, clOlive,
clNavy, clPurple, clTeal, clGray,
clSilver, clRed, clLime, clYellow,
clBlue, clFuchsia, clAqua, clWhite);
Schreiben Sie in das OnDrawItem-Ereignis Ihrer Combobox folgendes. Setzen Sie die Eigenschaft Style der Combobox zuvor auf csOwnerDrawFixed oder csOwnerDrawVariable damit das Ereignis ausgelöst wird.
Füllen Sie die Items-Eigenschaft mit folgenden Farbwerten:
- Pixelfarben auf dem Desktop ermitteln
- TColor in den HTML-Farbcode umwandeln und umgekehrt
- Zufallsfarbe generieren
- Text in Combobox rechtsbündig ausrichten
- DropDown-Menü der Combobox aufklappen
- DropDown-Menü einer Combobox vergrößern
- ComboBox schreibgeschützt machen
- Combobox in ein StringGrid einbauen
- Systemfarben ermitteln