Schriftart in DropDown - default anzeigen

[kroete]

Hallo liebe Community!
Und wiedermal ein Problem von mir ;)
Ich habe in meinem Programm einen Konfigurationsteil, der Optionen aus einer settings.ini ausliest, als standardwerte ausgibt und diese nach der Veränderung wieder in die ini speichert.

Jetzt habe ich hier zwei DropDowns ( TComboBox ), in denen die SchriftArt und -größe angezeigt und verändert werden kann.
Ich hab iwo gefunden, wie man die Schriftarten eben so, wie sie sein sollten (also wie man es aus den Grafikproggs kennt - als "Kostprobe" schon vorgemalt.
Anbei ein Screenshot für die, die nicht verstehen solten, was ich meine...

Delphi-Quellcode:

// Fonts malen
procedure Tf_config.cb_font_faceDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  with Control as TCombobox do
  begin
    if Index< screen.Fonts.Count then
    begin
      Canvas.FillRect(Rect);
      canvas.Font.Name:= screen.Fonts.Strings[Index];
      Canvas.TextOut(rect.Left, rect.Top,screen.Fonts.Strings[Index]);
    end;
  end;
end;

Nun will ich diese Combobox mit einem Standardwert, der aus der ini gelesen wird - also nichts mit OI.

Wie krieg ich das hin?

bei der Schriftgröße war es einfach, da nichts drübergemalt wird oder so...

Delphi-Quellcode:

cb_font_size.SelText := IntToStr ( FontSize );

[Fussball-Robby]

Du musst den Style der ComboBox auf csOwnerDrawFixed oder csOwnerDrawVariable stellen, dann müsste es funktionieren.

Mfg

[Edit]Achso, das war garnicht deine Frage..

Zitat:

Zitat von kroete

Nun will ich diese Combobox mit einem Standardwert, der aus der ini gelesen wird - also nichts mit OI.

:gruebel: :gruebel:

Delphi-Quellcode:

  with ComboBox1 do
    ItemIndex := Items.IndexOf('Das, was ausgewählt sein soll');

Sowas? [/Edit]

[kroete]

Ja, genau so!

Danke man!! :dp: