RichEdit вставка форматированного текста и расстояние между строками.

[Armorer]

Мне нужно чтобы когда я вставлял форматированный текст(например из ворда) он автоматически форматировался в формат которой установлен в RichEdit. Я ничего не придумал лучше такой процедуры:

procedure TFMain.DefoultFormat;
  var
    SS, SL : Integer;
begin
   SS := Edit.SelStart;
   SL := Edit.SelLength;

   Edit.SelectAll;
   Edit.SelAttributes.Assign(Edit.Font);
   Edit.Paragraph.

   Edit.SelStart := SS;
   Edit.SelLength := SL;
end;

Её вызывает нажатие определенных клавиш. т.е. вставил текст нажал cntr+f текст стал в нужном формате.

Но возникла проблема, расстояние между строк остается как было в отформатированном тексте. Как это исправить не нашёл.

Два вопроса: какой параметр отвечает за расстояние между строками и как можно отловить текст из буфера и изменить его?

[Armorer]

Пробовал RichEdit.Paragraph но с помощью него не получилось изменить расстояние.

[Kotofff]

Расстояние между строк ...
Попробуй :

procedure _SetLineSpacing(ARichEdit: TRichEdit; lineSpacing: Byte);
 var
   pFormat2: ParaFormat2;
 begin
   FillChar(pFormat2, SizeOf(pFormat2), 0);
   pFormat2.cbSize := SizeOf(PARAFORMAT2);
   pFormat2.dwMask := PFM_LINESPACING;
   pFormat2.bLineSpacingRule := lineSpacing;
   SendMessage(ARichEdit.Handle, EM_SETPARAFORMAT, 0, Longint(@pFormat2));
 end;

Не забудь подключить в uses модуль RichEdit.
Использование примерно так :

_SetLineSpacing(RichEdit1, 1);// значение 1 или 2