Расстояние между строками

[Kib]

В RichEdit нужно поменять расстояние между строками. Искал, но кроме этого ни чего не нашел:

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;

-но это не работает, как было, так и остается.

Посоветуйте что нить, очень нужно.

[Neeter]

Почему же не работает?
напишите так:

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelectAll;
RE_SetLineSpacing(RichEdit1, 1);
end;

[Kib]

Заработало. Но результат не сильно отличается от начального. Хотелось бы чтоб расстояние было минимальным.
Пробовал даже так:

RE_SetLineSpacing(RichEdit1, 0);

Но все равно не то, растояние большое.

Еще такой вопрос: а можно как нить убрать форматирование у того, что вставляешь? А то вся проблема от того, что когда из ворда вставляешь текст, он сильно отличается.

На крайний случай: как у RichEdit убрать форматирование текста?

[goblinyara]

ну на последний вопрос ответ - есть у RichEdit'a свойство PlainText... ставишь его в True - и форматирование убирается

[Kib]

Еще такой вопрос: а можно как нить убрать форматирование у того, что вставляешь? А то вся проблема от того, что когда из ворда вставляешь текст, он сильно отличается.

- А по этому поводу у кого нить есть идеи?

[goblinyara]

ну я не знаю точно... можно попробовать в onChange выделять весь текст, приводить форматирование к эталону, и затем снимать выделение.... но имхо - долговато будет по идее....