procedure TForm1.ChangeFontParam(Sender: TObject);
var
fnt : TFontParams;
begin
InitFontParams(fnt); //<---
if ComboBoxFontName.ItemIndex>=0 then
fnt.Name:=ComboBoxFontName.Text;
fnt.Style:= [];
if ComboBoxFontSize.ItemIndex>=0 then
fnt.Size:=StrToInt(ComboBoxFontSize.Text);
RichMemo1.SetTextAttributes(RichMemo1.SelStart, RichMemo1.SelLength, fnt);
RichMemo1.SetFocus();
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//font name
ComboBoxFontName.Items.Clear;
ComboBoxFontName.Items.Add('Arial');
ComboBoxFontName.Items.Add('Courier New');
ComboBoxFontName.Items.Add('Times New Roman');
ComboBoxFontName.Style:=csDropDownList;
ComboBoxFontName.OnChange:=@ChangeFontParam;
//fontsize
ComboBoxFontSize.Items.Clear;
ComboBoxFontSize.Items.Add('12');
ComboBoxFontSize.Items.Add('18');
ComboBoxFontSize.Items.Add('24');
ComboBoxFontSize.Items.Add('36');
ComboBoxFontSize.Items.Add('48');
ComboBoxFontSize.Items.Add('72');
ComboBoxFontSize.Style:=csDropDownList;
ComboBoxFontSize.OnChange:=@ChangeFontParam;
end;