qrdbtext折行显示后如何控制行间距大小啊？

Question

我打印时用了quickrep控件，用qrdbtext让它折行显示相关内容。可我发现折行后行间距太大，能不能使行间距变小啊？

Answer 1

看這個能不能用在 qrdbtext 上uses 
  RichEdit; procedure RE_SetLineSpacing(ARichEdit: TRichEdit; lineSpacing: Byte); 
var 
  pf2: ParaFormat2; 
begin 
  FillChar(pf2, SizeOf(pf2), 0); 
  pf2.cbSize := SizeOf(PARAFORMAT2); 
  pf2.dwMask := PFM_LINESPACING; 
  pf2.bLineSpacingRule := lineSpacing; 
  SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pf2)); 
end; //Example: Setlinespacing to 1: 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RE_SetLineSpacing(RichEdit1, 1); 
end;