急！RichEdit!

Question

如何在RichEdit中实现对行间距和字间距的控制???

Answer 1

行距实现
procedure TForm1.RE_SetLineSpacing(ARichEdit: TRichEdit;
  lineSpacing,SpacingRule: Byte);
var
  pf2: ParaFormat2;
begin
  FillChar(pf2, SizeOf(pf2), 0);
  pf2.cbSize := SizeOf(PARAFORMAT2);
  pf2.dwMask := PFM_LINESPACING;
  pf2.dyLineSpacing := lineSpacing;
  pf2.bLineSpacingRule:=SpacingRule;
  SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2));
 
end;

Answer 2

谢谢 zhlwyy(海龙)（消息我收到了） 、juliens(星星球愛思纯^_^) 
我一定会给分的
不知道字间距能否实现。