VPF::Выравнивание в RichEdit - Форум программистов

Pepsi

Дата 28.5.2007, 13:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Можно ли в RichEdit'e выравнвать текст по ширине. если да. то как?

Rennigth

Дата 28.5.2007, 16:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Цитата(Pepsi @ 28.5.2007, 13:24

)

Можно ли в RichEdit'e выравнвать текст по ширине

можно, читаем мсдн на темы EM_SETPARAFORMAT и PARAFORMAT2

Добавлено @ 16:06
http://msdn2.microsoft.com/en-us/library/ms651894.aspx

Добавлено @ 16:19

Код


const
  TO_ADVANCEDTYPOGRAPHY         = $0001;
  TO_SIMPLELINEBREAK            = $0002;
  EM_SETTYPOGRAPHYOPTIONS       = $04CA;
  PFA_JUSTIFY                   = $0004;
  // Rich Edit 2.0: Paragraphs are justified. This value is included for compatibility with TOM interfaces; rich edit controls earlier than Rich Edit 3.0 display the text aligned with the left margin.
  PFA_FULL_INTERWORD            = $0005;
  // Paragraphs are justified by expanding the blanks alone.

procedure TForm1.btn1Click(Sender: TObject);
var
  lParagraph: TParaFormat2;
begin
  ZeroMemory(@lParagraph, SizeOf(TParaFormat2));
  lParagraph.cbSize := SizeOf(TParaFormat2);
  lParagraph.dwMask := PFM_ALIGNMENT;
  lParagraph.wAlignment := PFA_JUSTIFY;
  SendMessage(redt1.Handle, EM_SETTYPOGRAPHYOPTIONS,
    TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
  SendMessage(redt1.Handle, EM_SETPARAFORMAT, 0, Integer(@lParagraph));
end;

Это сообщение отредактировал(а) Rennigth - 28.5.2007, 16:26

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

(* Honesta mors turpi vita potior *)

Pepsi

Дата 28.5.2007, 16:42 (ссылка)

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

Загрузка ...

Новичок

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

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

А проще никак ? smile

Что-то на подобе такого : RichEdit1.Paragraph.Alignment:=taRightJustify; можно

???

Rennigth

Дата 28.5.2007, 16:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

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

Pepsi,
Нет, нельзя. Борланды не включили описание констант, типов и т.д. RichEdit-а 2-й версии.

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

(* Honesta mors turpi vita potior *)

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