Растягивание текста по ширине

← →
OHP (2003-06-24 00:07) [0]

Как можно растянуть текст по ширине, как это делает ворд?

← →
INCOGNITO (2003-06-24 00:10) [1]

Всмысле?
Графический текст чтоль?

← →
Спрашивающий_ (2003-06-24 01:32) [2]

Добавить пробелы между словами.

← →
OHP (2003-06-25 00:14) [3]

Не графический, а дается там допустим 400 пикселов ширина текстового поля, напечатал три слова и нужно их по всей строке размазать

← →
ЮЮ (2003-06-25 05:21) [4]

Где напечатал? В какой строке?

Печатать по словам:
1) получить список слов WordsList
2) dX := (<компонент>.Canvas.TextWidht(str) - 400)/(WordsList.Count - 1);
3)
p := 0;
i := 0
While i < WordsList.Count do begin
Canvas.TextOut(p, Y, WordsList[i]);
inc(p, (<компонент>.Canvas.TextWidht(WordsList[i]) + dx);
end;

← →
Song (2003-06-25 08:21) [5]

DrawText()

Растягивание текста по ширине Найти похожие ветки