Как в RichEdit выравнить текст по ширине?

← →
Dmitry (2004-05-25 15:51) [0]

Как в RichEdit выравнить текст по ширине? Подскажите алгоритм, организации такой функции...

← →
Shkut © (2004-05-25 16:05) [1]

Делфи наследует стандартный RichEdit Windows, в WordPad и в примере Borland для RichEdit нет ни слова про выравнивание по ширине. Скорее всего это свойство не реализовано в этом классе.

← →
Shkut © (2004-05-25 16:09) [2]

← →
VAleksey © (2004-05-25 17:40) [3]

Для стандартного - это невозможно.

← →
MetalFan (2004-05-25 18:32) [4]

возможно... juct a moment... счас дам код

← →
MetalFan (2004-05-25 18:49) [5]

uses RichEdit; .... var Format: TParaFormat; const EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202; EM_GETTYPOGRAPHYOPTIONS = WM_USER + 203; TO_ADVANCEDTYPOGRAPHY = $0001; begin RichEdit1.SelectAll; Format.cbSize := SizeOf(Format); Format.dwMask := PFM_ALIGNMENT; Format.wAlignment := 4; if SendMessage(RichEdit1.Handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY) <> 0 then begin SendMessage(RichEdit1.Handle, EM_GETTYPOGRAPHYOPTIONS, 0, 0); SendMessage(RichEdit1.Handle, EM_SETPARAFORMAT, 0, Integer(@Format)); end; ...

← →
WebErr © (2004-05-25 18:54) [6]

Ну пошлём мы в компонент собственные сообщения, обрабатывать их кто будет? :)

← →
Andy BitOff © (2004-05-25 18:55) [7]

Сей ответ достоин помещения в FAQ.

← →
WebErr © (2004-05-25 18:55) [8]

А что за TParaFormat ?

← →
Elast (2004-05-25 18:58) [9]

В королевстве была процедура - ByWidth. Если не найдется - могу выслать.

typedef struct _paraformat {
UINT cbSize;
DWORD dwMask;
WORD wNumbering;
WORD wReserved; // RichEdit 2.0: this is wEffects
LONG dxStartIndent;
LONG dxRightIndent;
LONG dxOffset;
WORD wAlignment;
SHORT cTabCount;
LONG rgxTabs[MAX_TAB_STOPS];
} PARAFORMAT;

Как в RichEdit выравнить текст по ширине? Найти похожие ветки