Question

如何控制richedit的行距和设置字体

Answer 1

uses RichEdit;

procedure RichEditLineSpacing( //设置编辑框的行距
mRichEdit: TRichEdit; //Rich编辑框
mLineSpacingRule: Byte //行距 0~2
);
var
vParaFormat2: ParaFormat2;
begin
if not Assigned(mRichEdit) then Exit;
FillChar(vParaFormat2, SizeOf(vParaFormat2), 0);
vParaFormat2.cbSize := SizeOf(ParaFormat2);
vParaFormat2.dwMask := PFM_LINESPACING;
vParaFormat2.bLineSpacingRule := mLineSpacingRule;
vParaFormat2.dyLineSpacing := Ord(True);
mRichEdit.Perform(EM_SETPARAFORMAT, 0, Longint(@vParaFormat2));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RichEditLineSpacing(RichEdit1, 0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RichEditLineSpacing(RichEdit1, 1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RichEditLineSpacing(RichEdit1, 2);
end;