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

former

Дата 10.7.2007, 18:24 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Собственно, сабж.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

Rennigth

Дата 11.7.2007, 09:34 (ссылка)

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

Загрузка ...

Эксперт

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

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

former, недавно пример приводил на форуме, но чет найти немогу. Придется продублировать(тест проектик остался smile

Код


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;

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

(* Honesta mors turpi vita potior *)

former

Дата 11.7.2007, 16:01 (ссылка)

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

Загрузка ...

MEMS Expert

Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

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

Цитата(Rennigth @ 11.7.2007, 09:34

)

former, недавно пример приводил на форуме, но чет найти немогу. Придется продублировать(тест проектик остался ):

Rennigth, выравнивание по ширине я нашёл здесь на форуме. Взято из MSDN.

А вот что с расстоновкой переносов. Нашёл следующее:

модуль расстановки переносов

Но как им пользоваться не пойму.

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

Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.

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