Пытаюсь переделать для всех шрифтов, а не только моношрифтов.
Как понимаю надо сделать что то вроде ALength := IntToStr(ListView1.StringWidth(S));
В function SetStrLength эта строчка не работает, но в procedure TForm1.btn10Click(Sender: TObject); ошибок не выдает.
Как решить эту ситуацию, т.к. как я понимаю, эта строчка должна быть в function SetStrLength
|