Gaist-Endruy ( off )
( 13:36 11-04-2009 )
Canvas.TextOut(10, 10, s) ;

---

Gaist-Endruy ( off )
( 13:37 11-04-2009 )
Оператор

---

Gaist-Endruy ( off )
( 13:37 11-04-2009 )
with Canvas do
TextOut((ClientWidth - TextWidth(s)) div 2,
TextHeight(s), s) ;

---

Gaist-Endruy ( off )
( 13:37 11-04-2009 )
выводит текст на канву текущей формы, выравнивая его при любом шрифте по середине ширины канвы (ширина определяется свойством ClientWidth) и отступив одну строчку сверху.

---

Gaist-Endruy ( off )
( 13:37 11-04-2009 )
То же самое делает и оператор

---

Gaist-Endruy ( off )
( 13:38 11-04-2009 )
with Canvas do
TextOut((ClientWidth - TextExtent(s).cx) div 2,
TextExtent(s).cy, s);

---

Gaist-Endruy ( off )
( 13:38 11-04-2009 )
который вместо методов TextWidth и TextHeight использует метод TextExtent

---

Gaist-Endruy ( off )
( 13:38 11-04-2009 )
Оператор

---

Gaist-Endruy ( off )
( 13:38 11-04-2009 )
with Canvas do
TextOut((ClientWidth - TextWidth(s)) div 2,
(ClientHeight - TextHeight(s)) div 2, s);

---

Gaist-Endruy ( off )
( 13:38 11-04-2009 )
выводит текст в середину формы и по высоте и по ширине.

---