Скачать: CL | DM;

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

← →
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()

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c