работа с RichEdit

[vbn1]

Мне нужно после загрузке файла подобрать ширину по содержимому
свойство WordWrap не помогает

[ZuBy]

смысл понятен?

 Wdth := 0;
  Hght := 0;
  if List.Count >= 0 then
  begin
    for I := 0 to List.Count - 1 do
      Wdth := Max(Wdth, Caption.Canvas.TextWidth(List.Strings[I]));

    Hght := Caption.Canvas.TextHeight('Hg') * List.Count - 1;
  end;

[vbn1]

Немного разобрался в коде, тогда как подсчитать количество строк RichEdit.

[doktor255]

RichEdit.Lines.Count, не?

[vbn1]

а Max это процедуру надо писать

[doktor255]

Uses math;

[Stilet]

Она в Math описана. прикрепи его.

[vbn1]

чего то не работает

var i,Wdth,Hght:integer;
begin
 Wdth := 0;
  Hght := 0;
if RichEdit1.Lines.Count>= 0 then
  begin
    for I := 0 to RichEdit1.Lines.Count- 1 do
      Wdth := Max(Wdth,Form1.Canvas.TextWidth(RichEdit1.Lines.Strings[i]));

    Hght := Form1.Canvas.TextHeight('Hg') * RichEdit1.Lines.Count - 1;

[doktor255]

чего не работает

По тому что ты код не понимаешь. Учиться пробовал, прежде чем начать программировать? Hght это что?

[vbn1]

мне вот эти строки не понятны ,всё остальное понятно

Form1.Canvas.TextWidth
Form1.Canvas.TextHeight('Hg')