Combobox Einstellungen Speichern

[Gast]

Habe bis jetzt das hier:

Code:

function GetColor(idx: Integer): TColor;
begin
    case idx of
      0 : result := clWhite;
      1 : result := clBlack;
      2 : result := clRed;
      3 : result := clYellow;
      4 : result := clBlue;
      5 : result := clGreen;
      6 : result := clGray;
      7 : result := clSilver;
      8 : result := clOlive;
      9 : result := clMaroon;
      10 : result := clNavy;
    end;
  end;

procedure TForm1.Combobox1Change(Sender: TObject);
begin
Memo1.color := getcolor(Combobox1.ItemIndex);
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ListBox1.color := getcolor(Combobox2.ItemIndex);
end;

procedure TForm1.ComboBox3Change(Sender: TObject);
begin
Mitteilung.color := getcolor(Combobox3.ItemIndex);
end;

procedure TForm1.ComboBox4Change(Sender: TObject);
begin
Memo1.Font.Color := getcolor(Combobox4.ItemIndex);
end;

procedure TForm1.ComboBox5Change(Sender: TObject);
begin
ListBox1.Font.Color := getcolor(Combobox5.ItemIndex);
end;

procedure TForm1.ComboBox6Change(Sender: TObject);
begin
Mitteilung.Font.Color := getcolor(Combobox6.ItemIndex);
end;

Komme echt nicht weiter und wer auf die Uhrzeiten meines Posts guckt sieht auch, dass ich bereits Stunden da dran bin *heul* .. wäre sehr nice wenn mir einer helfen könnte.


Gr33tz!
Tigerhead