Подпрограммы для работы с пером

↑

▷ Содержание

⇐ ПредыдущаяСтр 2 из 11Следующая ⇒

Графические примитивы

Графические примитивы представляют собой процедуры, осуществляющие рисование в графическом окне. Рисование осуществляется текущим пером (линии), текущей кистью (заливка замкнутых областей) и текущим шрифтом (вывод строк).

procedure SetPixel(x,y: integer; c: Color); Закрашивает пиксел с координатами (x,y) цветом c

procedure PutPixel(x,y: integer; c: Color); Закрашивает пиксел с координатами (x,y) цветом c

function GetPixel(x,y: integer): Color;   Возвращает цвет пиксела с координатами (x,y)

procedure MoveTo(x,y: integer);          Устанавливает текущую позицию рисования в точку (x,y)

procedure LineTo(x,y: integer); Рисует отрезок от текущей позиции до точки (x,y).Текущая позиция переносится в (x,y)

procedure LineTo(x,y: integer; c: Color); Рис.отр. от тек.поз. до т. (x,y) цветом c. Тек. Поз. переносится в т. (x,y)

procedure Line(x1,y1,x2,y2: integer);       Рисует отрезок от точки (x1,y1) до точки (x2,y2)

procedure Line(x1,y1,x2,y2: integer; c: Color); Рисует отрезок от точки (x1,y1) до точки (x2,y2) цветом c

procedure FillCircle(x,y,r: integer); Заполняет внутренность окружности с центром (x,y) и радиусом r

procedure DrawCircle(x,y,r: integer); Рисует окружность с центром (x,y) и радиусом r

procedure FillEllipse(x1,y1,x2,y2: integer);
Заполняет внутренность эллипса, ограниченного прямоугольником, заданным координатами противопол-х вершин (x1,y1) и (x2,y2)

procedure DrawEllipse(x1,y1,x2,y2: integer);
Рисует границу эллипса, ограниченного прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)

procedure FillRectangle(x1,y1,x2,y2: integer);
Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

procedure FillRect(x1,y1,x2,y2: integer);
Заполняет внутренность прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

procedure DrawRectangle(x1,y1,x2,y2: integer);
Рисует границу прямоугольника, заданного координатами противоположных вершин (x1,y1) и (x2,y2)

procedure FillRoundRect(x1,y1,x2,y2,w,h: integer);
Заполняет внутренность прямоугольника со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure DrawRoundRect(x1,y1,x2,y2,w,h: integer);
Рисует границу прямоугольника со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure Circle(x,y,r: integer); Рисует заполненную окружность с центром (x,y) и радиусом r

procedure Ellipse(x1,y1,x2,y2: integer);
Рисует заполненный эллипс, ограниченный прямоугольником, заданным координатами противоположных вершин (x1,y1) и (x2,y2)

procedure Rectangle(x1,y1,x2,y2: integer);
Рисует заполненный прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2)

procedure RoundRect(x1,y1,x2,y2,w,h: integer);
Рисует заполненный прямоугольник со скругленными краями; (x1,y1) и (x2,y2) задают пару противоположных вершин, а w и h – ширину и высоту эллипса, используемого для скругления краев

procedure Arc(x,y,r,a1,a2: integer);
Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure FillPie(x,y,r,a1,a2: integer);
Заполняет внутренность сектора окружности, ограниченного дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против час.стрелки)

procedure DrawPie(x,y,r,a1,a2: integer);
Рисует сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки)

procedure Pie(x,y,r,a1,a2: integer);
Рисует заполненный сектор окружности, ограниченный дугой с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против час. стрелки)

procedure DrawPolygon(points: array of Point);
Рисует замкнутую ломаную по точкам, координаты которых заданы в массиве points

procedure FillPolygon(points: array of Point);
Заполняет многоугольник, координаты вершин которого заданы в массиве points

procedure Polygon(points: array of Point);
Рисует заполненный многоугольник, координаты вершин которого заданы в массиве points

procedure Polyline(points: array of Point); Рис. ломаную по точкам, координаты которых заданы в масс. points

procedure Curve(points: array of Point); Рисует кривую по точкам, координаты которых заданы в массиве points

procedure DrawClosedCurve(points: array of Point);
Рисует замкнутую кривую по точкам, координаты которых заданы в массиве points

procedure FillClosedCurve(points: array of Point);
Заполняет замкнутую кривую по точкам, координаты которых заданы в массиве points

procedure ClosedCurve(points: array of Point);
Рисует заполненную замкнутую кривую по точкам, координаты которых заданы в массиве points

procedure TextOut(x,y: integer; s: string);
Выводит строку s в прямоугольник к координатами левого верхнего угла (x,y)

procedure FloodFill(x,y: integer; c: Color);
Заливает область одного цвета цветом c, начиная с точки (x,y).

Функции для работы с цветом

Тип цвета Color является синонимом System.Drawing.Color.

function RGB(r,g,b: byte): Color;
Возвращает цвет, который содержит красную (r), зеленую (g) и синюю (b) составляющие (r,g и b - в диапазоне от 0 до 255)

function ARGB(a,r,g,b: byte): Color;
Возвращает цвет, который содержит красную (r), зеленую (g) и синюю (b) составляющие и прозрачность (a) (a,r,g,b - в диапазоне от 0 до 255)

function RedColor(r: byte): Color; Возвращает красный цвет с интенсивностью r (r - в диапазоне от 0 до 255)

function GreenColor(g: byte): Color; Возвращает зеленый цвет с интенсивностью g (g - в диапазоне от 0 до 255)

function BlueColor(b: byte): Color; Возвращает синий цвет с интенсивностью b (b - в диапазоне от 0 до 255)

function clRandom: Color;                   Возвращает случайный цвет

function GetRed(c: Color): integer; Возвращает красную составляющую цвета

function GetGreen(c: Color): integer; Возвращает зеленую составляющую цвета

function GetBlue(c: Color): integer; Возвращает синюю составляющую цвета

Цветовые константы

clAquamarine

clAzure

clBeige

clBisque

clBlack

clBlanchedAlmond

clBlue

clBlueViolet

clBrown

clBurlyWood

clCadetBlue

clChartreuse

clChocolate

clCoral

clCornflowerBlue

clCornsilk

clCrimson

clCyan

clDarkBlue

clDarkCyan

clDarkGoldenrod

clDarkGray

clDarkGreen

clDarkKhaki

clDarkMagenta

clDarkOliveGreen

clDarkOrange

clDarkOrchid

clDarkRed

clDarkTurquoise

clDarkSeaGreen

clDarkSlateBlue

clDarkSlateGray

clDarkViolet

clDeepPink

clDarkSalmon

clDeepSkyBlue

clDimGray

clDodgerBlue

clFirebrick

clFloralWhite

clForestGreen

clFuchsia

clGainsboro

clGhostWhite

clGold

clGoldenrod

clGray

clGreen

clGreenYellow

clHoneydew

clHotPink

clIndianRed

clIndigo

clIvory

clKhaki

clLavender

clLavenderBlush

clLawnGreen

clLemonChiffon

clLightBlue

clLightCoral

clLightCyan

clLightGray

clLightGreen

clLightGoldenrodYellow

clLightPink

clLightSalmon

clLightSeaGreen

clLightSkyBlue

clLightSlateGray

clLightSteelBlue

clLightYellow

clLime

clLimeGreen

clLinen

clMagenta

clMaroon

clMediumBlue

clMediumOrchid

clMediumAquamarine

clMediumPurple

clMediumSeaGreen

clMediumSlateBlue

clMoneyGreen

clPlum

clMistyRose

clNavy

clMidnightBlue

clMintCream

clMediumSpringGreen

clMoccasin

clNavajoWhite

clMediumTurquoise

clOldLace

clOlive

clOliveDrab

clOrange

clOrangeRed

clOrchid

clPaleGoldenrod

clPaleGreen

clPaleTurquoise

clPaleVioletRed

clPapayaWhip

clPeachPuff

clPeru

clPink

clMediumVioletRed

clPowderBlue

clPurple

clRed

clRosyBrown

clRoyalBlue

clSaddleBrown

clSalmon

clSandyBrown

clSeaGreen

clSeaShell

clSienna

clSilver

clSkyBlue

clSlateBlue

clSlateGray

clSnow

clSpringGreen

clSteelBlue

clTan

clTeal

clThistle

clTomato

clTransparent

clTurquoise

clViolet

clWheat

clWhite

clWhiteSmoke

clYellow

clYellowGreen

Рисование линий осуществляется текущим пером. Доступ к свойствам текущего пера можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.

Процедуры и функции для доступа к свойствам пера сгруппированы парами: если Prop - имя свойства пера, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:

procedure SetPenColor(c: Color);
Устанавливает цвет текущего пера

function PenColor: Color;
Возвращает цвет текущего пера

procedure SetPenWidth(Width: integer);
Устанавливает ширину текущего пера

function PenWidth: integer;
Возвращает ширину текущего пера

procedure SetPenStyle(style: DashStyle);
Устанавливает стиль текущего пера. Константы стилей пера приведены здесь

function PenStyle: DashStyle;
Возвращает стиль текущего пера. Константы стилей пера приведены здесь

procedure SetPenMode(m: integer);
Устанавливает режим текущего пера

function PenMode: integer;
Возвращает режим текущего пера

function PenX: integer;
Возвращают x-координату текущей позиции рисования

function PenY: integer;
Возвращают y-координату текущей позиции рисования

Кроме этого, можно изменять свойства текущего пера через объект Pen.

Познавательные статьи:



Алгоритмические операторы Matlab

Конструирование и порядок расчёта дорожной одежды

Исследования учёных: почему помогают молитвы?

Почему терпят неудачу многие предприниматели?