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

AnnaAA

Здравствуйте.
Подскажите, пожалуйста, как изменить межстрочный интервал для объекта RichText?

gpi

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

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;