Правила форума
Функции и процедуры GRAPH.TPUЯзык:
Русский
English
Функции и процедуры, находящиеся в модуле Graph:
| Тип | Имя | Аргументы и результат | Описание |
|---|---|---|---|
| procedure | Arc | (X, Y : Integer; StAngle, EndAngle, Radius : Word); | Рисует дугу окружности |
| procedure | Bar | (X1, Y1, X2, Y2 : Integer); | Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски |
| procedure | Bar3D | (X1, Y1, X2, Y2 : Integer; Depth : Word; Top : Boolean); | Рисует параллелепипед, используя текущий стиль и цвет закраски |
| procedure | Circle | (X, Y : Integer; Radius : Word); | Рисует окружность текущим цветом, используя точку (X, Y) как центр |
| procedure | ClearDevice | ; | Очищает текущее устройство вывода и устанавливает текущий указатель в точку (0, 0) |
| procedure | ClearViewPort | ; | Очищает текущую область просмотра |
| procedure | CloseGraph | ; | Закрывает графическую систему |
| procedure | DetectGraph | (Var GraphDriver, GraphMode : Integer); | Тестирует аппаратные средства и определяет, какой графический драйвер и режим можно использовать |
| procedure | DrawPoly | (NumPoints : Word; Var PolyPoints); | Рисует контур многоугольника, используя текущий цвет и тип линии |
| procedure | Ellipse | (X, Y : Integer; StAngle, EndAngle : Word; XRadius, YRadius : Word); | Рисует дугу эллипса |
| procedure | FillEllipse | (X, Y : Integer; XRadius, YRadius : Word); | Рисует закрашенный эллипс (или круг, если радиусы одинаковы) |
| procedure | FillPoly | (NumPoints : Word; Var PolyPoints); | Рисует закрашенный многоугольник |
| procedure | FloodFill | (X, Y : Integer; Border : Word); | Закрашивает замкнутую область, используя текущие стиль и цвет закраски |
| procedure | GetArcCoords | (Var ArcCoords : ArcCoordsType); | Возвращает координаты последней команды Arc |
| procedure | GetAspectRatio | (Var XAsp, YAsp : Word); | Возвращает два числа, из которых может быть вычислен коэффициент сжатия |
| function | GetBkColor | : Word; | Возвращает текущий цвет фона |
| function | GetColor | : Word; | Возвращает текущий цвет |
| procedure | GetDefaultPalette | (Var Palette : PaletteType); | Возвращает палитру, заданную по умолчанию |
| function | GetDriverName | : String; | Возвращает строку, содержащую имя текущего драйвера |
| procedure | GetFillPattern | (Var FillPattern : FillPatternType); | Возвращает текущий шаблон закраски, установленный SetFillPattern |
| procedure | GetFillSettings | (Var FillInfo : FillSettingsType); | Возвращает текущий цвет и шаблон закраски, установленные обращениями к процедурам SetFillPattern и SetFillStyle |
| function | GetGraphMode | : Integer; | Возвращает текущий графический режим |
| procedure | GetImage | (X1, Y1, X2, Y2 : Integer; Var BitMap); | Сохраняет участок изображения в буфер |
| procedure | GetLineSettings | (Var LineInfo : LineSettingsType); | Возвращает текущий тип, шаблон и толщину линии, установленные с помощью процедуры SetLineStyle |
| function | GetMaxColor | : Word; | Возвращает максимальный номер цвета, который может быть передан в процедуру SetColor |
| function | GetMaxMode | : Integer; | Возвращает максимальный номер доступного в настоящее время видеорежима |
| function | GetMaxX | : Integer; | Возвращает текущее значение разрешения по горизонтали |
| function | GetMaxY | : Integer; | Возвращает текущее значение разрешения по вертикали |
| function | GetModeName | (ModeNumber : Integer) : String; | Получает имя графического режима |
| procedure | GetModeRange | (GraphDriver : Integer; Var LoMode, HiMode : Integer); | Возвращает диапазон допустимых значений графического режима для данного графического драйвера |
| procedure | GetPalette | (Var Palette : PaletteType); | Возвращает текущую палитру и её размер |
| function | GetPaletteSize | : Integer; | Возвращает размер поисковой таблицы цветов палитры |
| function | GetPixel | (X, Y : Integer) : Word; | Возвращает значение пиксела в точке с координатами (X, Y) |
| procedure | GetTextSettings | (Var TextInfo : TextSettingsType); | Возвращает установки для вывода текста в графическом режиме |
| procedure | GetViewSettings | (Var ViewPort : ViewPortType); | Получает параметры текущей области просмотра |
| function | GetX | : Integer; | Возвращает X-координату текущего указателя (CP) |
| function | GetY | : Integer; | Возвращает Y-координату текущего указателя (CP) |
| procedure | GraphDefaults | ; | Обнуляет текущий указатель (CP), сбрасывает установки графической системы к значениям по умолчанию |
| function | GraphErrorMsg | (ErrorCode : Integer) : String; | Возвращает текст сообщения об ошибке по её номеру |
| function | GraphResult | : Integer; | Возвращает код ошибки для последней графической операции |
| function | ImageSize | (X1, Y1, X2, Y2 : Integer) : Word; | Возвращает число байт памяти, необходимых для сохранения заданной прямоугольной области экрана |
| procedure | InitGraph | (Var GraphDriver : Integer; Var GraphMode : Integer; PathToDriver : String); | Инициализирует графическую систему и переводит видеокарту в графический режим |
| function | InstallUserDriver | (Name : String; AutoDetectPtr : Pointer) : Integer; | Добавляет внешний графический драйвер к таблице BGI драйверов |
| function | InstallUserFont | (FontFileName : String) : Integer; | Устанавливает новый шрифт |
| procedure | Line | (X1, Y1, X2, Y2 : Integer); | Рисует линию из точки с координатами (X1, Y1) в точку с координатами (X2, Y2) |
| procedure | LineRel | (Dx, Dy : Integer); | Рисует линию относительно текущего указателя (CP) и перемещает CP в точку с координатами (X1, Y1) |
| procedure | LineTo | (X, Y : Integer); | Рисует линию от текущего указателя (CP) до (X, Y) |
| procedure | MoveRel | (Dx, Dy : Integer); | Перемещает текущий указатель (CP) на заданное расстояние относительно его текущей позиции |
| procedure | MoveTo | (X, Y : Integer); | Перемещает текущий указатель (CP) в точку с координатами (X, Y) |
| procedure | OutText | (TextString : String); | Посылает строку на устройство вывода в позиции текущего указателя |
| procedure | OutTextXY | (X, Y : Integer; TextString : String); | Посылает строку на устройство вывода |
| procedure | PieSlice | (X, Y : Integer; StAngle, EndAngle, Radius : Word); | Рисует и закрашивает сектор окружности |
| procedure | PutImage | (X, Y : Integer; var BitMap; BitBlt : Word); | Помещает битовое изображение на экран |
| procedure | PutPixel | (X, Y : Integer; Color : Word); | Ставит точку в позиции (X, Y) |
| procedure | Rectangle | (X1, Y1, X2, Y2 : Integer); | Рисует прямоугольник, используя текущий тип и цвет линии |
| procedure | RegisterBGIdriver | (Driver : Pointer) : Integer; | Передаёт графической системе указатель на драйвер устройства |
| procedure | RegisterBGIfont | (Font : Pointer) : Integer; | Передаёт графической системе указатель на шрифт |
| procedure | RestoreCrtMode | ; | Восстанавливает первоначальный текстовый режим, такой, какой был перед инициализацией графического режима |
| procedure | Sector | (X, Y : Integer; StAngle, EndAngle, XRadius, YRadius : Word); | Рисует и закрашивает сектор эллипса |
| procedure | SetActivePage | (Page : Word); | Устанавливает активную страницу для графического вывода |
| procedure | SetAllPalette | (Var Palette); | Изменяет все цвета в палитре на заданные |
| procedure | SetAspectRatio | (Xasp, Yasp : Word); | Изменяет заданный по умолчанию коэффициент сжатия |
| procedure | SetBkColor | (ColorNum : Word); | Устанавливает текущий цвет фона, используя палитру |
| procedure | SetColor | (Color : Word); | Устанавливает текущий цвет, используя палитру |
| procedure | SetFillPattern | (Pattern : FillPatternType; Color : Word); | Устанавливает определяемый пользователем шаблон закраски |
| procedure | SetFillStyle | (Pattern : Word; Color : Word); | Устанавливает цвет и стиль закраски |
| procedure | SetGraphBufSize | (BufSize : Word); | Изменяет заданный по умолчанию размер графического буфера, используемого для сканирования и заливки |
| procedure | SetGraphMode | (Mode : Integer); | Устанавливает графический режим и очищает экран |
| procedure | SetLineStyle | (LineStyle : Word; Pattern : Word; Thickness : Word); | Устанавливает текущий стиль линии |
| procedure | SetPalette | (ColorNum : Word; Color : Shortint); | Заменяет один цвет в палитре |
| procedure | SetRGBPalette | (ColorNum, RedValue, GreenValue, BlueValue : Integer); | Изменяет компоненты палитры для драйверов VGA и IBM 8514 |
| procedure | SetTextJustify | (Horiz, Vert : Word); | Устанавливает значения текстового выравнивания, используемые процедурами OutText и OutTextXY |
| procedure | SetTextStyle | (Font, Direction : Word; CharSize : Word); | Устанавливает стиль вывода текста в графическом режиме |
| procedure | SetUserCharSize | (MultX, DivX, MultY, DivY : Word); | Изменяет ширину и высоту символов для векторных шрифтов |
| procedure | SetViewPort | (x1, y1, x2, y2 : Integer; Clip : Boolean); | Устанавливает текущую область просмотра или окно для графического режима |
| procedure | SetVisualPage | (Page : Word); | Устанавливает номер видимой графической страницы |
| procedure | SetWriteMode | (WriteMode : Integer); | Устанавливает режим записи для рисования линий |
| function | TextHeight | (TextString : String) : Word; | Возвращает высоту строки в пикселах |
| function | TextWidth | (TextString : String) : Word; | Возвращает ширину строки в пикселах. |
::
::
::
