Gaist-Endruy
( off
)
* (
13:30 11-04-2009
)
TRect = record
case Integer of
0: (Left, Top, Right, Bottom: Integer);
1: (TopLeft, BottomRight: TPoint) ;
end;
[цит] Gaist-Endruy
( off
)
* (
13:31 11-04-2009
)
Координаты задаются и как четыре целых числа, определяющих координаты в пикселях левой (Left), верхней (Тор), правой (Right) и нижней (Bottom) сторон прямоугольника, и как две точки типа TPoint, представляющие собой координаты левого верхнего и правого нижнего углов:
[цит] Gaist-Endruy
( off
)
* (
13:31 11-04-2009
)
type TPoint = record
X: Longint;
Y: Longint;
end;
[цит] Gaist-Endruy
( off
)
* (
13:31 11-04-2009
)
Началом координат обычно считается левый верхний угол экрана или окна.
[цит] Gaist-Endruy
( off
)
* (
13:31 11-04-2009
)
При выводе текста методом TextRect часть текста, не помещающаяся в прямоугольную область Rect, усекается.
[цит] Gaist-Endruy
( off
)
* (
13:32 11-04-2009
)
Надписи и в методе TextOut, и в методе TextRect делаются в соответствии с текущими установками шрифта Font. Пространство внутри области Rect в методе TextRect и фон надписи в методе TextOut закрашиваются текущей кистью Brush.
[цит] Gaist-Endruy
( off
)
* (
13:32 11-04-2009
)
Для выравнивания позиции текста на канве и для задания красивой рамки в методе TextRect можно использовать методы, дающие высоту и длину выводимого текста в пикселях: методы TextWidth, TextHeight и TextExtent. Функция TextWidth:
[цит] Gaist-Endruy
( off
)
* (
13:33 11-04-2009
)
function TextWidth (const Text: string): Integer;
[цит] Gaist-Endruy
( off
)
* (
13:33 11-04-2009
)
возвращает длину в пикселях текста Text, который предполагается написать на канве текущим шрифтом. Функция TextHeight:
[цит] Gaist-Endruy
( off
)
* (
13:33 11-04-2009
)
function TextHeight(const Text: string): Integer;
[цит]