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 определен следующим образом:
[цит]