Gaist-Endruy ( off )
( 13:23 11-04-2009 )
Вывод текста на канву может осуществляться методом TextOut, объявленным следующим образом:

---

Gaist-Endruy ( off )
( 13:23 11-04-2009 )
procedure TextOut(X, Y: Integer; const Text: string);

---

Gaist-Endruy ( off )
( 13:23 11-04-2009 )
Процедура TextOut пишет строку текста Text на канве, начиная с позиции с координатами (X, Y).

---

Gaist-Endruy ( off )
( 13:24 11-04-2009 )
Если цвет кисти Brush в момент вывода текста отличается от того, которым закрашена канва, то текст получится выведенным в цветной прямоугольной рамке. Но ее размеры будут точно равны размерам надписи.

---

Gaist-Endruy ( off )
( 13:24 11-04-2009 )
Если требуется более красивая рамка с отступом от текста, следует применять другой метод — TextRect.

---

Gaist-Endruy ( off )
( 13:24 11-04-2009 )
Этот метод определен следующим образом:

---

Gaist-Endruy ( off )
( 13:24 11-04-2009 )
procedure TextRect (Rect :TRect; X, Y: Integer;
const Text: string);

---

Gaist-Endruy ( off )
( 13:30 11-04-2009 )
Процедура TextRect пишет строку текста Text на канве, начиная с позиции с координатами (X, Y) — это левый верхний угол надписи.

---

Gaist-Endruy ( off )
( 13:30 11-04-2009 )
Параметр Rect типа TRect определяет прямоугольную рамку, в которую вписывается текст.

---

Gaist-Endruy ( off )
( 13:30 11-04-2009 )
Тип TRect определен следующим образом:

---