DruckenMister WongFacebook

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: