Скачать: CL | DM;

Как в 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]

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

---

← →
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. Если не найдется - могу выслать.

---

← →
Fay ©   (2004-05-25 19:07) [10]

2WebErr ©   (25.05.04 18:55) [8]
uses RichEdit;

---

← →
Fay ©   (2004-05-25 19:08) [11]

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.02 c