Текущий архив: 2007.11.25;
Скачать: CL | DM;

Вниз

Текст по ширине   Найти похожие ветки 

← →
ореол ©   (2007-11-02 21:23) [0]

Доброго времени суток господа!!!
Как в Memo или RichEdit расположить текст по ширине? Заранее благодарен!!!

---

← →
Lacmus ©   (2007-11-03 09:12) [1]

Для RichEdit



uses
 RichEdit;

const
 EM_SETTYPOGRAPHYOPTIONS = WM_USER + 202;
 TO_ADVANCEDTYPOGRAPHY  = 1;

procedure TForm83.Button1Click(Sender: TObject);
begin
 RichEdit1.Width := 300;
 RichEdit1.Text := "The EM_SETTYPOGRAPHYOPTIONS message sets the current state of the typography options of a rich edit control.";
 SendMessage(RichEdit1.Handle, EM_SETTYPOGRAPHYOPTIONS, TO_ADVANCEDTYPOGRAPHY, TO_ADVANCEDTYPOGRAPHY);
 RichEdit1.Paragraph.Alignment := TAlignment(3)
end;



---

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

Текущий архив: 2007.11.25;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.025 c