Delphi 7 : TRichEdit и выравнивание текста по ширине

[macomics]

Только изначально у RTF не было выравнивания по ширине. Его добавили потом. Соответственно в старой версии компонента нету даже констант для отображения этого выравнивания. Зато WordPad при задании выравнивания по ширине устанавливает константу равную 4, а не 3 как она указана в TParaAlignment;

Из чего я делаю вывод, что WordPad самостоятельно обрабатывает абзацы с таким типом выравнивания и его просто нету в этом системном компоненте.

[Arigato]

Сообщение от macomics

Только изначально у RTF не было выравнивания по ширине.

А по центру RichEdit выравнивает нормально? Да, действительно, у RTF не было выравнивания по ширине. И еще надо бы проверить в более свежих версиях Делфи, может быть там добавили выравнивание?

[hexor_boo]

Сообщение от macomics

А у вас какая версия этого RichEdit выбрана (TRichEditVersion)?

Пишет, что 3-я.

[hexor_boo]

Найдено великолепное решение, которое даже не требует установки дополнительных компонентов - всё можно сделать в обычном TRichEdit!

uses
 RichEdit; //А вы знали что такой юнит существует в Delphi 7? Лично я не знал. И он не подключается при добавлении TRichEdit на форму.
...
procedure TForm1.btnLoadClick(Sender: TObject);
begin
 rchText.Lines.LoadFromFile('Test.rtf');
end;

procedure TForm1.btnAlignClick(Sender: TObject);
var
 Format: TParaFormat;
const
 EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
 EM_GETTYPOGRAPHYOPTIONS = WM_USER + 203;
 TO_ADVANCEDTYPOGRAPHY   = $0001;
begin
 rchText.SelectAll;
 Format.cbSize:=SizeOf(Format);
 Format.dwMask:=PFM_ALIGNMENT;
 Format.wAlignment:=4;

  If (SendMessage(rchText.Handle, EM_SETTYPOGRAPHYOPTIONS,
   TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY) <> 0) Then
   Begin
    SendMessage(rchText.Handle, EM_GETTYPOGRAPHYOPTIONS, 0, 0);
    SendMessage(rchText.Handle, EM_SETPARAFORMAT, 0, Integer(@Format));
   End;
end;

[macomics]

Сообщение от hexor_boo

uses
 RichEdit; //А вы знали что такой юнит существует в Delphi 7? Лично я не знал. И он не подключается при добавлении TRichEdit на форму.

Когда добавляешь к модулю Clipbrd функцию поддержки WideString и пересобираешь соответствующие модули для Delphi, то либо приходится пересобирать RichEdit.pas, либо на него натыкаешься. В любом случае это не секретная информация. Все модули лежат в папке include и при создании обычной формы в Delphi 7 используется набор модулей из папки include\vcl. Так все это можно найти. Но спасибо за то, что опубликовали найденное решение.