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...
cb_font_size.SelText := IntToStr ( FontSize );