Редактирование текста в Delphi

[Edo]

Помогите пожалуйста с парой вопросов.
1) Дан текст в RichEdit.
Нужно привести его строки к заданной ширине: если строки длиннее - сделать перенос "лишнего", если короче - дополнить пробелами между слов.
2) В этой же задаче нужно сделать отступ текста (на заданное кол-во символов) начинающегося с новых строк (абзац).

[mihali4]

Качайте исходник:
http://delphi.mtu-net.ru/zip/bywidthpr.zip

[Edo]

404 так сказать... =\ Пусто там.
Но все равно спасибо, по названию файла нашел

Однако вопрос с абзацем там не раскрыт. Помогите плз. Даже не знаю с какой стороны к этому подойти.

Подскажите еще 1 раз.
Распотрошил я вышеупомянутый исходник, на его основе написал код для Memo.
Но возникла проблема очень неприятного свойства.
Дело в том, что если подряд набраны две строчки текста, по 80 (к примеру) символов каждая, то это совсем не значит, что у них будет равная длина, т.к. ширина букв разная...

Можно как-то определить в memo, какова ширина строки в пикслях?

[SERG1980]

Попробуйте так:
procedure TForm1.FormCreate(Sender: TObject);
var a,b:real;
begin
// выравнивание по ширине
a:=72/form1.RichEdit1.Font.PixelsPerInch;
b:=1/a;
with form1.RichEdit1.Paragraph do
begin
form1.RichEdit1.Paragraph.FirstInde nt:=round(20*b);//число отступа красной строки в пикселях
form1.RichEdit1.Paragraph.LeftInden t:=round((10*b)-FirstIndent); //отступ слева в пикселях
form1.RichEdit1.Paragraph.RightInde nt:=round(30*b);//отступ справа в писселях
end;
end;
где числа 20 10 30 любые в разумных пределах

[Edo]

Как заставить RichEdit использовать моноширинный шрифт (если есть вообще такое свойство)?
И как использовать сторонний шрифт в RichEdit, которого нет в папке с виндой, но который есть в папке программы?

[_Dmitry]

Сообщение от Edo

Как заставить RichEdit использовать моноширинный шрифт (если есть вообще такое свойство)?

Такого свойства нет, но есть моноширинные шрифты, например

 RichEdit1.Font.Name:='Courier New';

Сообщение от Edo

И как использовать сторонний шрифт в RichEdit, которого нет в папке с виндой, но который есть в папке программы?

  AddFontResource('MyFont.ttf');
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
  RichEdit1.Font.Name:='MyFontName';