Межстрочный интервал Richtext

Комментарии

• gpi

  August 2015 отредактировано August 2015

  http://delphikingdom.com/asp/answer.asp?IDAnswer=72165

  procedure RELineSpace(REhwnd: THandle; LineSpace: Byte);
  var
  PF: PARAFORMAT2; //если будет ругаться "Undeclared identifier..." - добавьте в Uses модуль "RichEdit"
  begin
  ZeroMemory(@PF, SizeOf(PF));
  PF.cbSize:=SizeOf(PARAFORMAT2);
  PF.dwMask:=PFM_LINESPACING;
  PF.bLineSpacingRule:=LineSpace;
  
  SendMessage(REhwnd, EM_SETSEL, 0, -1);
  SendMessage(REhwnd, EM_SETPARAFORMAT, 0, LPARAM(@PF));
  SendMessage(REhwnd, EM_SETSEL, 0, 0);
  end;
  
  
  ...
  RichEdit1.Lines.LoadFromFile(fileName);
  //вставляете эту процедуру после открытия файла
  RELineSpace(RichEdit1.Handle, 1); // где "1" это будет величина интервала (указываются только целые числа)
  ...
  
• gpi

  June 2018 отредактировано 20:25

  uses frxRichEdit;
  procedure TForm1.PreviewBClick(Sender: TObject);
  var
    RE: TRxRichEdit;
  begin
    RE := TfrxRichView(frxReport1.FindObject('Rich1')).RichEdit;
    RE.SelectAll;
    RE.Paragraph.LineSpacingRule := TLineSpacingRule.lsMultiple;
    RE.Paragraph.LineSpacing := 2;
    frxReport1.ShowReport;
  end;