VPF::RxRichEdit - Форум программистов

ThrashTillDeath

Дата 10.1.2010, 01:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 9.12.2009

Репутация: нет
Всего: нет

Доброго времени суток))))
Возник вопрос с работой в RxRichEdit: Как в нем выровнять текст по ширине???

Rrader

Дата 11.1.2010, 09:10 (ссылка)

(голосов:1)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


uses RichEdit;
...
procedure TForm1.Button1Click(Sender: TObject);
const
  EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
  TO_ADVANCEDTYPOGRAPHY = 1;
var
  ParaFormat: TParaFormat2;
begin
  with RxRichEdit1 do
  begin
    SendMessage(Handle, EM_SETTYPOGRAPHYOPTIONS,
      TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
    { Выравнивание текущего абзаца по ширине }
    FillChar(ParaFormat, SizeOf(ParaFormat), 0);
    ParaFormat.cbSize := SizeOf(ParaFormat);
    if SendMessage(Handle, EM_GETPARAFORMAT, 0, LPARAM(@ParaFormat)) <> 0 then
    begin
      ParaFormat.dwMask := PFM_ALIGNMENT;
      ParaFormat.wAlignment := PFA_JUSTIFY;
      SendMessage(Handle, EM_SETPARAFORMAT, 0, LPARAM(@ParaFormat));
    end;
  end;
end;

Это сообщение отредактировал(а) Rrader - 11.1.2010, 16:31

--------------------

Let's do this quickly!
Rest in peace, Vit!

ThrashTillDeath

Дата 11.1.2010, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 9.12.2009

Репутация: нет
Всего: нет

Спасибо, сейчас попробую))))

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »