[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.
А как они соотносятся - это уже твое решение. В твоем случае, видимо, ширина строки должна быть меньше или равна ширине окна.

[PS11011010]

Ширина окна должна быть равна ширине строки+отступы

[mpdasa]

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

Ширина окна в пикселях - Form.ClientWidth.

У формы свойство ClientWidth есть, а у RichEdit нет.

[Bargest]

У него должен быть простой Width.

[cotseec]

Width, просто Width

[mpdasa]

Код:

Rect: TRect;
SendMessage(RichEdit1.Handle,EM_GETRECT,0,LongInt(@Rect));
Rect.Top := Rect.Top+8;
Rect.Left := Rect.Left+10;
Rect.Right := Rect.Right-10;
Rect.Bottom := Rect.Bottom-10;
SendMessage(RichEdit1.Handle,EM_SETRECT,0,LongInt(@Rect));
RichEdit1.Refresh;

[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 немного разные вещи