Текущий архив: 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.038 c
