Введение в модуль GraphABC: различия между версиями

м
<source> -> <syntaxhighlight> (phab:T237267)
(викификация)
м (<source> -> <syntaxhighlight> (phab:T237267))
! Процедура или функция !! Описание
|-
| <sourcesyntaxhighlight lang="Pascal">procedure PutPixel(x, y: integer; c: Color)</sourcesyntaxhighlight> || Заливает пиксель с координатами (x, y) цветом c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Line(x, y, x1, y1: integer)</sourcesyntaxhighlight> || Рисует линию от точки с координатами (x, y) до точки с координатами (x1, y1) текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Line(x, y, x1, y1: integer; c: Color)</sourcesyntaxhighlight> || Рисует линию от точки с координатами (x, y) до точки с координатами (x1, y1) цветом c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FillCircle(x, y, r: integer)</sourcesyntaxhighlight> || Заполняет окружность с координатами центра (x, y) и радиусом r текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawCircle(x, y, r: integer)</sourcesyntaxhighlight> || Рисует контур окружности с координатами центра (x, y) и радиусом r текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FillEllipse(x, y, x1, y1: integer)</sourcesyntaxhighlight> || Заполняет эллипс, который ограничен прямоугольником с координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawEllipse(x, y, x1, y1: integer)</sourcesyntaxhighlight> || Рисует контур эллипса, который ограничен прямоугольником с координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FillRectangle(x, y, x1, y1: integer)</sourcesyntaxhighlight> || Заполняет прямоугольник, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawRectangle(x, y, x1, y1: integer)</sourcesyntaxhighlight> || Рисует контур прямоугольника, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FillRoundRect(x, y, x1, y1, w, h: integer)</sourcesyntaxhighlight> || Заполняет скругленный прямоугольник, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти. А w и h - ширина и высота эллипсов, которые отвечают за скругления краев прямоугольника.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawRoundRect(x, y, x1, y1, w, h: integer)</sourcesyntaxhighlight> || Рисует контур скругленного прямоугольника, который задан координатами противоположных вершин (x, y) и (x1, y1), текущим цветом кисти. А w и h - ширина и высота эллипсов, которые отвечают за скругления краев прямоугольника.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Arc(x, y, r, c1, c2: integer)</sourcesyntaxhighlight> || Рисует дугу окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawPie(x, y, r, c1, c2: integer)</sourcesyntaxhighlight> || Рисует контур сектора окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FillPie(x, y, r, c1, c2: integer)</sourcesyntaxhighlight> || Заполняет сектор окружности с координатами центра (x, y) и радиусом r, ограниченную двумя лучами, угол поворота которых определен c1 и c2 против часовой стрелки.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure TextOut(x, y: integer; t: string)</sourcesyntaxhighlight> || Выводит текст t в прямоугольник, у которого верхняя левая точка имеет координаты (x, y).
|-
| <sourcesyntaxhighlight lang="Pascal">procedure DrawTextCentered(x, y: integer; t: string)</sourcesyntaxhighlight> || Выводит отцентрированный в прямоугольнике (у которого верхняя левая точка имеет координаты (x, y)) текст t.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure FloodFill(x, y: integer; c: Color)</sourcesyntaxhighlight> || Заполняет область одного цвета (цвета точки с координатами (x, y), начиная с нее).
|-
| <sourcesyntaxhighlight lang="Pascal">procedure LineTo(x, y: integer)</sourcesyntaxhighlight> || Рисует прямую от текущей позиции кисти до точки с координатами (x, y) текущим цветом кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure LineTo(x, y: integer; c: Color)</sourcesyntaxhighlight> || Рисует прямую от текущей позиции кисти до точки с координатами (x, y) цветом c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure MoveTo(x, y: integer)</sourcesyntaxhighlight> || Устанавливает позицию кисти в точку с координатами (x, y).
|-
| <sourcesyntaxhighlight lang="Pascal">function GetPixel(x, y: integer): Color</sourcesyntaxhighlight> || Возвращает цвет пикселя с координатами (x, y).
|}
 
! Процедура или функция !! Описание
|-
| <sourcesyntaxhighlight lang="Pascal">function RGB(r, g, b: integer): Color</sourcesyntaxhighlight> || Возвращает цвет со значениями компонентов r, g и b.
|-
| <sourcesyntaxhighlight lang="Pascal">function ARGB(r, g, b: integer): Color</sourcesyntaxhighlight> || Возвращает цвет со значениями компонентов r, g и b и компонентом прозрачности a.
|-
| <sourcesyntaxhighlight lang="Pascal">function clRandom(): Color</sourcesyntaxhighlight> || Возвращает случайный цвет.
|-
| <sourcesyntaxhighlight lang="Pascal">function GetRed(c: Color): integer</sourcesyntaxhighlight> || Возвращает значение красной компоненты цвета c.
|-
| <sourcesyntaxhighlight lang="Pascal">function GetGreen(c: Color): integer</sourcesyntaxhighlight> || Возвращает значение зеленой компоненты цвета c.
|-
| <sourcesyntaxhighlight lang="Pascal">function GetBlue(c: Color): integer</sourcesyntaxhighlight> || Возвращает значение синей компоненты цвета c.
|}
 
! Процедура момент функция !! Описание
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetPenColor(c: Color)</sourcesyntaxhighlight> || Установит в качестве текущего цвета кисти цвет c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetPenWidth(w: integer)</sourcesyntaxhighlight> || Установит ширину кисти равную w.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetPenStyle(s: DashStyle)</sourcesyntaxhighlight> || Установит стиль кисти для текущей кисти.
# PsSolid - сплошное перо.
# PsClear - прозрачное перо (не видимое).
# PsDash - штриховое перо.
|-
| <sourcesyntaxhighlight lang="Pascal">function PenColor(): Color</sourcesyntaxhighlight> || Возвращает текущий цвет кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">function PenWidth(): integer</sourcesyntaxhighlight> || Возвращает размер текущей кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">function PenStyle(): DashStyle</sourcesyntaxhighlight> || Возвращает стиль текущей кисти.
# PsSolid - сплошное перо.
# PsClear - прозрачное перо (не видимое).
# PsDash - штриховое перо.
|-
| <sourcesyntaxhighlight lang="Pascal">function PenX(): integer</sourcesyntaxhighlight> || Возвращает координату X текущей позиции кисти.
|-
| <sourcesyntaxhighlight lang="Pascal">function PenY(): integer</sourcesyntaxhighlight> || Возвращает координату Y текущей позиции кисти.
|}
 
! Процедура момент функция !! Описание
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetFontColor(c: Color)</sourcesyntaxhighlight> || Установит в качестве текущего цвета текста цвет c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetFontStyle(s: integer)</sourcesyntaxhighlight> || Установит стиль кисти для текущей шрифта.
# FsNormal - обычный.
# FsBold - жирный шрифт.
# FsBoldItalicUnderline - жирный подчеркнутый курсив.
|-
| <sourcesyntaxhighlight lang="Pascal">function FontColor(): Color</sourcesyntaxhighlight> || Возвращает текущий цвет шрифта.
|-
| <sourcesyntaxhighlight lang="Pascal">function FontStyle(): integer</sourcesyntaxhighlight> || Возвращает текущий стиль шрифта.
# FsNormal - обычный.
# FsBold - жирный шрифт.
! Процедура момент функция !! Описание
|-
| <sourcesyntaxhighlight lang="Pascal">procedure ClearWindow()</sourcesyntaxhighlight> || Очищает окно белым цветом.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Clear(c: Color)</sourcesyntaxhighlight> || Очищает окно цветом c.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetWindowIsFixedSize(s: boolean)</sourcesyntaxhighlight> || Зафиксирует размер графического окна если s = true, в противном случае - пользователь сможет изменять размеры окна.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetWindowWidth(w: integer)</sourcesyntaxhighlight> || Установит ширину графического окна, равную w.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure SetWindowHeight(h: integer)</sourcesyntaxhighlight> || Установит высоту графического окна, равную h.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Normalize()</sourcesyntaxhighlight> || Установит размеры и позицию графического окна, какие они были до сворачивания или разворачивается окна.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Minimize()</sourcesyntaxhighlight> || Сворачивает графическое окно.
|-
| <sourcesyntaxhighlight lang="Pascal">procedure Maximize()</sourcesyntaxhighlight> || Разворачивает во весь экран графическое окно.
|}
 
583

правки