Witam,
Jestem w trakcie tworzenia edytora tekstowego (komponent RichEdit)
Napotkałem na mały problem, odnośnie czcionki ekranowej, (chce aby w ComboBox pokazywały się czcionki)
Oto mój kod:
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.Text:=RichEdit1.Font.Name;
end;
(* W czasie tworzenia formy (onCreate) załaduj do ComboBox1 czcionki ekranowe.*)
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
// onChange dla ComboBox1
RichEdit1.SelAttributes.Name:=ComboBox1.Text;
end;
Pracuje na Delphi 7 Personal
Proszę o sugestie, z góry dziękuję