Das ist mir schon klar.
Aber:
Delphi-Quellcode:
begin
with RichEdit1 do
begin
If SelLength > 0 then //prüfen ob was markiert wurde
SelAttributes.size := ComboBox2.Items[ComboBox2.ItemIndex];
end;
funzt nicht.
Der Code, um die Fonts in die Combobox zu bekommen:
Delphi-Quellcode:
begin
RichEdit1.Font.Name:='Arial';
ComboBox1.Items:= Screen.Fonts;
end;
für die Größe??
Sorry.