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

Posted by maloy under Delphi, Архив

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 текст стал в нужном формате.
Но возникла проблема, расстояние между строк остается как было в отформатированном тексте. Как это исправить не нашёл.
Два вопроса: какой параметр отвечает за расстояние между строками и как можно отловить текст из буфера и изменить его?

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

тема на форуме от 2009 года

Похожие статьи

• Вставка символа Unicode в RichEdit в Delphi 7
• RichEdit и выгрузка в RTF-файл (добавление в конец файла)
• Как вставить перевод строки #10#13 в текст RichEdit?
• Координаты коретки RichEdit
• Верхний и нижний отступ RichEdit
• Найти и раскрасить нужное слово в RichEdit
• После загрузки файла в RichEdit подобрать ширину по содержимому
• Выделить строку RichEdit жирным
• Как сохранить текст из 4х RichEdit в файл?
• Вставить TBitMap в RichEdit