[mpdasa]

У меня RichEdit. В него вставлятся (из буфера обмена) 4-х строчный стих.
Надо, чтобы если строки не помещаются в окно (лезут в 5, 6... линию), то подгонять их по размеру окна уменьшая шрифт.

Ваш ход, знатоки

[PS11011010]

Код:

for i := 0 to RichEdit1.Lines.Count - 1 do
 if MaxWidth < RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]) then
   MaxWidth := RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]);

Вроде ничего не наврал...
Так ты получишь ширину самой длинной строки.

[mpdasa]

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

Код:

for i := 0 to RichEdit1.Lines.Count - 1 do
 if MaxWidth < RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]) then
   MaxWidth := RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]);

Вроде ничего не наврал...
Так ты получишь ширину самой длинной строки.

Верю вам, что вы ведёте меня в верном направлении.
А что мне делать дальше, имея ширину самой длинной строки.
И вообще может получиться так, что каждая строка не помещается в одну линию. Тогда надо все их уменьшать.

[Pyro]

лезут в 5, 6... линию

wordwrap отключить

А что мне делать дальше, имея ширину самой длинной строки.

уменьшать размер шрифта в цикле, пока она не поместиться в richedit

[mpdasa]

wordwrap отключить

За это действительно спасибо!

уменьшать размер шрифта в цикле, пока она не поместиться в richedit

А как соотносится ширина окна и ширина стоки?

[Bargest]

Ширина окна в пикселях - Form.ClientWidth.
А как они соотносятся - это уже твое решение. В твоем случае, видимо, ширина строки должна быть меньше или равна ширине окна.

[mpdasa]

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

Код:

for i := 0 to RichEdit1.Lines.Count - 1 do
 if MaxWidth < RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]) then
   MaxWidth := RichEdit1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]);

Один дилетанский вопрос. Когда я вставил ваш код и запускаю прогу то выдается сообщение

undeclared identifier: 'Canvas'

Это при том, что у меня есть строка:

Код:

var canvas: TCanvas;

[PS11011010]

RichEdit.canvas и Canvas:TCanvas немного разные вещи