Главная
История
Borland Pascal
Учебник
Справочник
Процедуры
System
Graph
CRT
DOS
Strings
Overlay
Borland Delphi
Borland Kylix
Компоненты
Download
Форум
Гостевая книга
Реклама
Справочные данные по процедурам и функциям Borland Pascal 7
Модуль Graph
| Интерфейс | Описание |
|---|---|
| Function GetBkColor : word; | Функция определяет цвет фона |
| Function GetDriverName : string; | Функция возвращает имя используемого графического драйвера |
| Function GetGraphMode : integer; | Функция возвращает код используемого графического режима |
| Function GetMaxMode : integer; | Функция определяет максимальное значение графического режима для используемого графического драйвера |
| Function GetMaxX : integer; | Функция возвращает максимальное значение координаты Х |
| Function GetMaxY : integer; | Функция возвращает максимальное значение координаты Y |
| Function GetModeName : string; | Функция определяет имя используемого графического режима |
| Function GraphErrorMsg(errorcode: integer) : string; | По коду ошибки функция вернет строку с сообщением об ошибке |
| Function GraphResult : integer; | Функция определяет произошла ли ошибка, возвращая код ошибки |
| Function InstallUserDriver(name: string; autodetectptr: pointer) : integer | Функция устанавливает новый графический драйвер, используя параметры name - имя драйвера и autodetectptr - указатель на процедуру определяющую успешность инсталяции, и возвращает код нового графического драйвера, если всё прошло успешно |
| Procedure ClearDevice; | Процедура очищает экран, сбрасывая все установленные ранее параметры |
| Procedure ClearViewport; | Процедура очищает экран, задавая цвет фона, установленный свойством SetBkColor |
| Procedure CloseGraph; | Процедура закрывает графический режим |
| Procedure DetectGraph(var grDriver, grMode: integer); | Возвращает оптимальные для данного компьютера графические драйвер и режим |
| Procedure GetAspectRatio(var xasp, yasp: word); | Процедура определяет значения, характеризующие неодинаковость расстояния между пикселами по осям Х и Y |
| Procedure GetModeRange(grDriver: integer; var Lomode, HiMode: integer); | Для указанного в параметрах графического (grDriver) драйвера процедура возвратит наибольшее и наименьшее значение графического режима |
| Procedure GetViewSittings(var viewport: TViewport); | Процедура определяет текущие параметры окна и отсечения |
| Procedure GraphDefaults; | Перезапускает графический режим, устанавливая указатель в начало координат |
| Procedure InitGraph(var grDriver, grMode: integer; pachtodriver: string); | Процедура инициализации графического режима по указанному графическому драйверу (grDriver) пути к нему (pachtodriver) и графическому режиму, поддержка которого осуществляется в драйвере (grMode) |
| Procedure RegisterBGLDriver(driver: pointer); | Процедура регестрирует новый графический драйвер |
| Procedure RestoreCrtMode; | Процедура закрывает графический режим, возвращая приложение в текстовый режим |
| Procedure SetActivePage(page: word); | Процедура устанавливает активную графическую страницу |
| Procedure SetAspectRatio(var xasp, yasp: word); | Процедура устанавливает значения отношения сторон экрана |
| Procedure SetBkColor(color: word); | Процедура устанавливает цвет фона |
| Procedure SetGraphMode(grMode: integer); | Процедура меняет графический режим, инициализированного ранее графического драйвера |
| Function GetColor : word; | Функция возвращает цвет установленный процедурой SetColor |
| Function GetMaxColor : word; | Функция определяет максимальное количество цветов для установленного режима |
| Function GetPaletteSize : word; | Функция определяет размер таблицы палитры цветов |
| Function GetPixel(x, y: integer) : word; | Функция возвращает цвет точки с координатами x, y |
| Function GetX : integer; | Функция возвращает Х-овую координату указателя |
| Function GetY : integer; | Функция возвращает Y-овую координату указателя |
| Function ImageSize(x1, y1, x2, y2: integer) : word; | Функция возвращает обём памяти, необходимый для хранения прямоугольной области экрана от x1, y1 до x2, y2 |
| Function InstallUserFont(fontfilename: string) : integer; | Функция возвращает код нового, проинсталируенного шрифта из внешнего файла, заданного параметром fontfilename |
| Function TextHeight(text: string) : integer; | Функция возвращает высоту выводимой строки text |
| Function TextWidth(text: string) : integer; | Функция возвращает ширину выводимой строки text |
| Procedure Arc(x, y: integer; startangle, endangle, r: word); | Процедура выводит на экран дугу окружности. X, Y - координаты окружности; startangle, endangle - начальный и конечный углы дуги; r - радиус окружности |
| Procedure Bar(x1, y1, x2, y2); | Процедура выводит на экран закрашеный прямоугольник без контура. X1, Y1 - координаты левого верхнего угла; X2, Y2 - координаты правого нижнего угла прямоугольника |
| Procedure Bar3D(x1, y1, x2, y2: integer; depth: word; top: boolean); | Процедура выводит на экран параллелепипед с окрашеной передней гранью. X1, Y1, X2, Y2 - координаты левого верхнего и правого нижнего углов фигуры соответственно; depth - глубина параллелепипеда; top - параметр, указывающий отображать ли верхнюю грань |
| Procedure Circle(x, y: integer; r: word); | Процедура выводит на экран окружность с центром в точке x, y и радиусом r |
| Procedure DrawPoly(numpoints: word; var polypoints: TPoints); | Процедура выводит на экран ломаную линию, заданную числом точек numpoints и проходящую через массив точек polypoints |
| Procedure Ellipse(x, y: integer; startangle, endangle, rx, ry: word); | Процедура выводит на экран дугу эллипса. X, Y - координаты центра элипса; startangle, endangle - начальный и конечный углы дуги эллипса; rx, ry - полуоси элипса в пикселях |
| Procedure FillEllipse(x, y: integer; rx, ry: word); | Процедура выводит на экран закрашенный эллипс, с координатами центра эллипса x, y и полуосями rx, ry |
| Procedure FillPoly(numpoints: word; var polypoints: TPolyPoints); | Процедура выводит на экран закрашеный многоугольник заданный числом (numpoints) и массивом (polypoints) точек вершин многоугольника |
| Procedure FloodFill(x, y: integer; bordercolor: word); | Процедура закрашивает область экрана в цвет заданный параметром SetFillStyle; границами заливки будут служить любые замкнутые края (линии) цвет которых равен цвету установленному параметром bordercolor |
| Procedure GetArcCoords(var arccoords: TArcCoords); | Процедура возвращает координаты дуги изображенной процедурой Arc или Ellipse |
| Procedure GetDefaultPalette(var palette: TPalette); | Процедура определяет действующую по умолчанию палитру в установленном режиме |
| Procedure GetFillPattern(var fillpattern: TFillPattern); | Процедура определяет установленный тип шаблона FillPattern |
| Procedure GetFillSettings(var fillinfo: TFillSittings); | Процедура определяет установленный тип шаблона FillInfo |
| Procedure GetImage(x1, y1, x2, y2: integer; var bitmap: pointer); | Процедура копирует в буффер прямоугольную область экрана от x1, y1 до x2, y2 |
| Procedure GetLineSittings(var lineinfo: TLineSittings); | Процедура определяет установленный тип линии |
| Procedure GetPalette(var palette: TPalette); | Процедура определяет установленную палитру |
| Procedure GetTextSettings(var textinfo: TTextSettings); | Процедура определяет установки выводимого текста по записи (textinfo) содержащей эти установки |
| Procedure Line(x1, y1, x2, y2: integer); | Процедура выводит на экран линию, начало которой имеет координаты x1, y1, а конец x2, y2 |
| Procedure LineRel(deltax, deltay: integer); | Процедура выводит на экран линию, которая чертится от текущего положения указателя до точки, координаты которой отличаются от координат указателя на deltax, deltay, перемещая указатель в эту точку |
| Procedure LineTo(x, y: integer); | Процедура выводит на экран линию, которая чертится от текущего положения указателя до точки с координатами x, y |
| Procedure MoveRel(deltax, deltay: integer); | Процедура перемещает указатель в точку, координаты которой отличаются от текущих координат на deltax, deltay |
| Procedure MoveTo(x, y: integer); | Процедура перемещает указатель в точку с координатами X, Y |
| Procedure OutText(text: string); | Процедура выводит на экран текст, начиная с позиции графического указателя; указатель смещается при этом на ширину выводимого текста |
| Procedure OutTextXY(x, y: integer; text: string); | Процедура выводит на экран текст в заданной точке координат, учитывая при этом тип используемой юстировки |
| Procedure PieSlice(x, y: integer; startangle, endangle, r: word); | Процедура выводит на экран закрашенный сектор окружности. X, Y - координаты центра окружности; startangle, endangle - крайние углы, ограничивающие сектор; r - радиус окружности в пикселах |
| Procedure PutImage(x, y: integer; var bitmap: pointer; bitblt: word); | Процедура выводит на экран изображение из буффера в указанной области (x, y) экрана. Bitmap является указателем на изображение в буффере; bitblt - код логической операции наложения нового изображения на старое |
| Procedure PutPixel(x, y: integer; color: word); | Процедура выводит на экран точку (пиксел) заданного цвета, в заданных координатах x и y |
| Procedure Rectangle(x1, y1, x2, y2: integer); | Процедура выводит на экран не закрашенный прямоугольник. X1, Y1 - координаты левого верхнего угла; X2, Y2 - координаты правого нижнего угла прямоугольника |
| Procedure RegisterBGIFont(font: pointer); | Процедура регистрирует шрифт для действующей графической системы (font - указатель на шрифт) |
| Procedure Sector(x, y: integer; startangle, endangle, rx, ry: word); | Процедура выводит на экран закрашенный сектор эллипса. X, Y - координаты центра элипса; startangle, endangle - крайние углы, ограничивающие сектор; rx, ry - полуоси элипса в пикселях |
| Procedure SetAllPalette(var Palette: PaletteType); | Процедура устанавливает все цвета палитры |
| Procedure SetColor(color: word); | Процедура устанавливает цвет для линий |
| Procedure SetFillPattern(pattern: TFillPattern); | Процедура устанавливает шаблон для цвета линий и заливки |
| Procedure SetFillStyle(pattern, color: word); | Процедура устанавливает стиль заливки по коду шаблона (pattern) и цвету заливки (color) |
| Procedure SetGraphBufSize(size: word); | Процедура устанавливает размер буфера для графических функций заполнения/хранения |
| Procedure SetLineStyle(linestyle, pattern, thickness: word); | Процедура устанавливает стиль линий либо по сушествующим шаблонам, либо по своим собственным, с толщеной, заданной параметром thickness |
| Procedure SetPalette(colornum, color: word); | Процедура заменяет один цвет палитры на другой (colornum заменяемый код цвета, color замена colornum) |
| Procedure SetRGBPalette(colornum, red, green, blue: word); | Процедура заменяет цвет палитры colornum на цвет, заданный активностью красного (параметр red), зеленого (параметр green) и синего (параметр blue) |
| Procedure SetTextJustify(horiz, vert: word); | Процедура устанавливает тип привязки выводимого текста (по горизонтали и вертикали) к точке вывода текста; параметры используется процедурой OutTextXY |
| Procedure SetTextStyle(font, direction, charsize: word); | Процедура устанавливает стиль выводимого текста: шрифт (по его коду), направление выводимого текста, размер выводимых символов |
| Procedure SetUserCharSize(multx, divx, multy, divy: word); | Процедура маштабирует шрифты по коэфицентам умножения (mult*) и деления (div*) при осях x и y соответственно |
| Procedure SetVisualPage(page: word); | Процедура устанавливает номер видимой графической страницы |
| Procedure SetVisualPort(x1, y1, x2, y2: integer; clip: boolean); | Процедура устанавливает визуальный порт (окно, где х1, y1, x2, y2 определяют прямоугольную область экрана) для вывода графики. Параметр clip определяет отсекать ли изображение за пределами порта. |
| Proceudre SetWriteMode(writemode: integer); | Процедура устанавливает режим вывода рисующихся линий |
Копирование и использование данных материалов разрешается только в случае указания на сайт «Pascalfamily: всё о семействе Object Pascal» как на источник получения информации, при этом во всех ссылках обязательно явное указание адреса вэб-сайта http://www.pascalfamily.narod.ru/.
