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;