 |
|
Процедура SetColor устанавливает текущий цвет для выводимых линий и символов.
Графический модуль GRAPH.
Процедура инициализации графического режима работы адаптера
InitGraph (Driver, mode: integer, path: string).
если тип адаптера неизвестен, то можно использовать автоматическое определение типа драйвера, т.е.
Driver:= detect;
InitGraph (Driver,mode,’c:\tp\bgi’).
Процедура вывода точки
PutPixel ( X , Y : integer ; Color : word ), где X и Y -экранные координаты расположения точки ,Color - её цвет .
Процедура перемещения указателя в точку с координатами X,Y
MoveTo ( X , Y : integer ) .
4. Процедура перемещения указателя на dX точек по горизонтали и на dY точек по вертикали MoveRel ( dX , dY : integer) .
5. Процедуры черчения линии Line(X1,Y1,X2,Y2),
где X1 и Y1 - координаты начала линии, X2 и Y2 координаты конца линии.
6. Процедура черчения линии из точки текущего положения указателя в точку с координатами X и Y - LineTo(X,Y)
7. Процедура рисования незакрашенного прямоугольника: Rectangle(X1,Y1,X2,Y2),
где Х1,Y1 и Х2 ,Y2 - координаты противоположных углов прямоугольника.
Процедура рисования закрашенного прямоугольника Bar(X1,Y1,X2,Y2),
Х1,Y1 и Х2 ,Y2 - координаты противоположных углов прямоугольника.
Процедура вычерчивания окружности: Circle(X,Y,Radius),
где X и Y- координаты центра окружности, Radius- её радиус.
Процедура вычерчивания эллипса: Ellipse(X,Y,B,E,dX,dY),
где X и Y- координаты центра эллипса, B и E - начало и конец дуги (в градусах), dX - радиус по горизонтали , dY - радиус по вертикали.
Процедура вычерчивания дуг: Arc(X,Y,B,E,Radius),
где X и Y- координаты центра дуги, B и E - начало и конец дуги (в градусах), Radius - её радиус.
Процедура разделения окружности на сектора: PieSlice(X,Y,StAngle,EndAngle,Radius),
где X и Y- координаты центра окружности, StAngle - начало угла сектора в градусах., EndAngle - конец угла сектора в градусах, Radius- её радиус.
Процедура вычерчивания и заполнения эллипса: FillEllipse(X,Y,rX,rY),
где Х и Y - координаты центра эллипса, rX и rY - горизонтальная и вертикальная оси.
Процедура SetColor устанавливает текущий цвет для выводимых линий и символов.
SetColor(Color);
Переменная Color типа Word - код цвета символов и линий из цветовой шкалы или установленной палитры.
15. Процедура SetBkColor устанавливает цвет фона - SetBkColor(Color);
Переменная Color типа Word - код цвета фона из цветовой шкалы или установленной палитры.
16. Процедура SetFillStyle(Fill, Color) устанавливает стиль (тип и цвет) заполнения.
переменная Fill - тип заполнения, переменная Color- цвет заполнения. Переменные Fill и Color типа Word.
C помощью выбранного стиля можно покрывать какие -либо фрагменты изображения периодически повторяющимся узором.
Процедура SetFillPattern(Pattern,Color)устанавливает образец рисунка и цвет штриховки.
Переменная Pattern типа FillPatternType ,переменная Color типа Word -код цвета штриховки.
17. Процедура FloodFill(X,Y,Border) заполняет произвольную замкнутую фигуру, используя текущий стиль заполнения.
Переменные X, Y типа Integer- координаты любой точки внутри замкнутой фигуры; переменная Border типа Word - цвет граничной линии. Если фигура не замкнута, заполнение разольется по всему экрану.