Listbox mit Farbflächendarstellung

[Delphi.Narium]

Warum nicht 'ne TJvColorCombobox auf's Formular pappen?

Und dann sinngemäß:

Delphi-Quellcode:

// Im FormCreate
Var
  i     : Integer;
begin
  JvColorComboBox1.Clear;
  for i := Low(Polyneon) to High(Polyneon) do begin
    JvColorComboBox1.AddColor(StringToColor(Polyneon[i]),Polyneon[i]));
  end; 
end;

Wie ist denn Polyneon definiert?

Delphi-Quellcode:

type  
// Dann muss man nicht irgendwie zwei Listen nebeneinander pflegen 
// und versuchen, die synchron zu halten.
  tColorRec = record
    Color : TColor;
    Name  : String;
  end;

var
  Polyneon array [0..AnzahlFarben] of tColorRec;

// Im FormCreate o. ä. sinnvoller Stelle
Var
  i     : Integer;
begin
  JvColorComboBox1.Clear;
  for i := Low(Polyneon) to High(Polyneon) do begin
    JvColorComboBox1.AddColor(Polyneon[i].Color,Polyneon[i].Name);
  end; 
end;