 |
|
Процедура ClearDevice
procedure ClearDevice;
Очищает графический экран, закрашивает его в цвет фона, устанавливает указатель текущей позиции в точку с координатами (0, 0). Цвет фона задается процедурой SetBkColor.
Процедура Ellipse
procedure Ellipse(X, Y: Integer; StAngle. EndAngle: Word; XRadius, YRadius: Word);
Рисует дугу эллипса текущим цветом. Текущий цвет задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle. Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой SetAspectRatio.
X, Y – координаты центра эллипса;
StAngle – угол до начальной точки эллипса, отсчитываемый против часовой стрелки от горизонтальной оси. направленной слева направо;
EndAngle – угол до конечной точки эллипса, отсчитываемый против часовой стрелки от горизонтальной оси, направленной слева направо; '
XRadius, YRadius – горизонтальная и вертикальная полуоси эллипса.
Процедура FillEllips
procedure FillEllipse(X, Y: Integer; XRadius, Yradius: Word);
Строит эллипс, закрашенный текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурой SetFillStyle или SetFillPattern. Текущий цвет контура задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle.
Изменение относительных масштабов изображения по вертикали и горизонтали осуществляется процедурой SetAspectRatio.
X, Y – координаты центра эллипса;
XRadius, YRadius – горизонтальная и вертикальная полуоси эллипса.
Процедура FloodFill
procedure FloodFill(X, Y: Integer; Border: Word);
Закрашивает область, ограниченную непрерывной линией, текущим орнаментом и цветом заполнения. Орнамент и цвет заполнения задаются процедурой SetFillSlyle или SetFillPattern.
X, Y – координаты любой точки внутри закрашиваемой линии;
Border – цвет линии, до которой производится закрашивание.
Процедура GetAspectRatio
procedure GetAspectRatio(var Xasp, Yasp: Word);
Возвращает число точек (пикселов) на графическом экране по горизонтали и вертикали.
Xasp, Yasp – переменные, в которые процедура записывает число точек по горизонтали и вертикали.
Процедура Line
procedure Line(X1, Y1, X2, Y2: Integer);
Проводит линию текущего цвета между точками с координатами (X1, Y1) и (X2, Y2) без изменения значения указателя координат. Текущий цвет задается процедурой SetColor, текущие параметры линии - процедурой SetLineStyle, a режим построения линии - процедурой SetWriteMode.
X1, Yl, X2, Y2 – координаты точек, между которыми проводится линия.
Процедура LineRel
procedure LineRel(Dx, Dy: Integer);
Проводит линию текущего цвета из текущей позиции в точку, сдвинутую относительно исходной позиции на величины Dx и Dy. Текущий цвет задается процедурой SetColor, текущие параметры линии – процедурой SetLineStyle, a режим построения линии – процедурой SetWriteMode.
Dx, Dy – смещение координат точки конца линии по отношению к исходным координатам.
Процедура LineTo
procedure LineTo(X, Y: Integer);
Проводит линию текущего цвета из текущей позиции в точку с заданными координатами. Текущий цвет задается процедурой SetColor, текущие параметры линии – процедурой SetLineStyle, a режим построения линии – процедурой SetWriteMode.
X, Y - координаты точки, до которой проводится линия.
Процедура MoveRel
procedure MoveRel(Dx, Dy: Integer);
Перемещает указатель координат на заданное расстояние (Dx, Dy) по отношению к его предыдущему положению (точка на экране не высвечивается).
Dx, Dy - смещение текущего указателя относительно его старого положения.
Процедура MoveTo
procedure MoveTo(X, Y: Integer);
Перемещает текущий указатель координат в точку окна с координатами (X, Y). Точка на экране не высвечивается.
X, Y – координаты точки относительно левого верхнего угла окна.
Процедура PutPixel
procedure putPixel(X, Y: Integer; Pixel: Word);
Закрашивает пиксел с заданными координатами в цвет Pixel.
X, Y – координаты пиксела;
Pixel – цвет, в который закрашивается пиксел.