Label WordWrap

[_-Re@l-_]

Почему перенос осуществляется по пробелу, а не по длине текста? Раздражает, да и по другому надо.

[Stilet]

А почему бы не написать самому функцию отрисовки?

[volod3000]

Вот, интересные 3 функции реализации переноса строк (WordWrap) :

//=================== Перенос текста ==================================//
function WrapToTextT(at:String; y:Integer): String;
var
ar : String;
i,z: Integer;

begin
     z := y;
     for i := 1 to Length(at) do begin
     ar := ar + at[i];
     if (i >= z) then begin
     if (at[i] = ' ') then begin
     ar := ar + #13#10;
     end;
     if (at[i] <> ' ') then begin
     ar := ar + '-' + #13#10;
     end;
     z:= z + y;
     end;
     end;
     Result := ar;
end;
/////////////////////////////////////////////////////////////////////////////////
function WrapToText(at:String; y:Integer): String;
var
ar : String;
i,z: Integer;

begin
     z := y;
     for i := 1 to Length(at) do begin
     ar := ar + at[i];
     if (i >= z)and(at[i] = ' ') then begin
     ar := ar + #13#10;
     z:= z + y;
     end;
     end;
     Result := ar;
end;
/////////////////////////////////////////////////////////////////////////////////
function StrTransfer(str: string; c: Integer): String;
// в uses StrUtils;
var
i:Integer;
begin
  i:= c;
  while PosEx(' ',str,i) > 0 do
    begin
      if PosEx(' ',str,i) > 0 then
        begin
          i:= PosEx(' ',str,i);
          Insert(#10#13,str,i+1);
          i:= i+c;
        end;
    end;
  Result:= str;
end;
/////////////////////////////////////////////////////////////////////////////////

[veniside]

> Почему перенос осуществляется по пробелу

по
тому, чт
о так у
добней чита
ть тек
с, видимо

[_-Re@l-_]

Всё, нашёл как решить проблему. Надо было ещё поставить AutoSize = False, тогда всё как надо.

[Аватар]

При этом все равно перенос по словам. Как то делал перенос по правилам правописания с учетом фонта и ширины поля вывода, если нужно могу в понедельник выложить сюда

[_-Re@l-_]

Аватар нет, просто нужно сразу растянуть label настолько, насколько вам надо, и тогда не по словам, а по длине.

[Аватар]

Я имел ввиду, что WordWrap=True и Label растянуто по высоте для выдачи в несколько строк

[_-Re@l-_]

WordWrap = True, AutoSize = False, Label растянут как вам надо, и всё в порядке. Мне более ничего не надо.