Текст по ширине [D7, XP]
ореол © (2007-11-02 21:23:00)
Доброго времени суток господа!!!
Как в Memo или RichEdit расположить текст по ширине? Заранее
благодарен!!!
Lacmus (2007-11-03 09:12:00) [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;
Наверх 
ЧАТ |
Орешник |
|
