гпт 3.5 + слегка поправил: procedure TForm8.Button1Click(Sender: TObject); var s: string; begin s := 'Это-очень_длинная.строка'; Label1.Caption := WrapText(s, #$0D, ['-', '_', '.'], 10); end;
Это не может быть правильным, потому как нет ширины куда выводить и канваса, чтобы ширину выводимого текста получать
канвас тут не приделах. количество букв задано
А как быть при изменении размера Label с таким подходом?
Да? ) ACanvas.TextWidth
можно примерно пересчитать ширину в количество букв
Катя, ты что-то не то говоришь )
перенеси сам Длинная#10строка
может, стоит "нарезать" строку самому, вставив туда пробел. WordWrap сделает остальное.
Обсуждают сегодня