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 )
выводит текст в середину формы и по высоте и по ширине. [цит]

---