IPB

> Функции и процедуры GRAPH.TPU
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
English

Функции и процедуры, находящиеся в модуле Graph:

ТипИмяАргументы и результатОписание
procedureArc(X, Y : Integer; StAngle, EndAngle, Radius : Word);Рисует дугу окружности
procedureBar(X1, Y1, X2, Y2 : Integer);Рисует закрашенный прямоугольник, используя текущие стиль и цвет закраски
procedureBar3D(X1, Y1, X2, Y2 : Integer; Depth : Word; Top : Boolean);Рисует параллелепипед, используя текущий стиль и цвет закраски
procedureCircle(X, Y : Integer; Radius : Word);Рисует окружность текущим цветом, используя точку (X, Y) как центр
procedureClearDevice;Очищает текущее устройство вывода и устанавливает текущий указатель в точку (0, 0)
procedureClearViewPort;Очищает текущую область просмотра
procedureCloseGraph;Закрывает графическую систему
procedureDetectGraph(Var GraphDriver, GraphMode : Integer);Тестирует аппаратные средства и определяет, какой графический драйвер и режим можно использовать
procedureDrawPoly(NumPoints : Word; Var PolyPoints);Рисует контур многоугольника, используя текущий цвет и тип линии
procedureEllipse(X, Y : Integer; StAngle, EndAngle : Word;
XRadius, YRadius : Word);
Рисует дугу эллипса
procedureFillEllipse(X, Y : Integer; XRadius, YRadius : Word);Рисует закрашенный эллипс (или круг, если радиусы одинаковы)
procedureFillPoly(NumPoints : Word; Var PolyPoints);Рисует закрашенный многоугольник
procedureFloodFill(X, Y : Integer; Border : Word);Закрашивает замкнутую область, используя текущие стиль и цвет закраски
procedureGetArcCoords(Var ArcCoords : ArcCoordsType);Возвращает координаты последней команды Arc
procedureGetAspectRatio(Var XAsp, YAsp : Word);Возвращает два числа, из которых может быть вычислен коэффициент сжатия
functionGetBkColor : Word;Возвращает текущий цвет фона
functionGetColor : Word;Возвращает текущий цвет
procedureGetDefaultPalette(Var Palette : PaletteType);Возвращает палитру, заданную по умолчанию
functionGetDriverName : String;Возвращает строку, содержащую имя текущего драйвера
procedureGetFillPattern(Var FillPattern : FillPatternType);Возвращает текущий шаблон закраски, установленный SetFillPattern
procedureGetFillSettings(Var FillInfo : FillSettingsType);Возвращает текущий цвет и шаблон закраски, установленные обращениями к процедурам SetFillPattern и SetFillStyle
functionGetGraphMode : Integer;Возвращает текущий графический режим
procedureGetImage(X1, Y1, X2, Y2 : Integer; Var BitMap);Сохраняет участок изображения в буфер
procedureGetLineSettings(Var LineInfo : LineSettingsType);Возвращает текущий тип, шаблон и толщину линии, установленные с помощью процедуры SetLineStyle
functionGetMaxColor : Word;Возвращает максимальный номер цвета, который может быть передан в процедуру SetColor
functionGetMaxMode : Integer;Возвращает максимальный номер доступного в настоящее время видеорежима
functionGetMaxX : Integer;Возвращает текущее значение разрешения по горизонтали
functionGetMaxY : Integer;Возвращает текущее значение разрешения по вертикали
functionGetModeName(ModeNumber : Integer) : String;Получает имя графического режима
procedureGetModeRange(GraphDriver : Integer;
Var LoMode, HiMode : Integer);
Возвращает диапазон допустимых значений графического режима для данного графического драйвера
procedureGetPalette(Var Palette : PaletteType);Возвращает текущую палитру и её размер
functionGetPaletteSize : Integer;Возвращает размер поисковой таблицы цветов палитры
functionGetPixel(X, Y : Integer) : Word;Возвращает значение пиксела в точке с координатами (X, Y)
procedureGetTextSettings(Var TextInfo : TextSettingsType);Возвращает установки для вывода текста в графическом режиме
procedureGetViewSettings(Var ViewPort : ViewPortType);Получает параметры текущей области просмотра
functionGetX : Integer;Возвращает X-координату текущего указателя (CP)
functionGetY : Integer;Возвращает Y-координату текущего указателя (CP)
procedureGraphDefaults;Обнуляет текущий указатель (CP), сбрасывает установки графической системы к значениям по умолчанию
functionGraphErrorMsg(ErrorCode : Integer) : String;Возвращает текст сообщения об ошибке по её номеру
functionGraphResult : Integer;Возвращает код ошибки для последней графической операции
functionImageSize(X1, Y1, X2, Y2 : Integer) : Word;Возвращает число байт памяти, необходимых для сохранения заданной прямоугольной области экрана
procedureInitGraph(Var GraphDriver : Integer; Var GraphMode : Integer;
PathToDriver : String);
Инициализирует графическую систему и переводит видеокарту в графический режим
functionInstallUserDriver(Name : String; AutoDetectPtr : Pointer) : Integer;Добавляет внешний графический драйвер к таблице BGI драйверов
functionInstallUserFont(FontFileName : String) : Integer;Устанавливает новый шрифт
procedureLine(X1, Y1, X2, Y2 : Integer);Рисует линию из точки с координатами (X1, Y1) в точку с координатами (X2, Y2)
procedureLineRel(Dx, Dy : Integer);Рисует линию относительно текущего указателя (CP) и перемещает CP в точку с координатами (X1, Y1)
procedureLineTo(X, Y : Integer);Рисует линию от текущего указателя (CP) до (X, Y)
procedureMoveRel(Dx, Dy : Integer);Перемещает текущий указатель (CP) на заданное расстояние относительно его текущей позиции
procedureMoveTo(X, Y : Integer);Перемещает текущий указатель (CP) в точку с координатами (X, Y)
procedureOutText(TextString : String);Посылает строку на устройство вывода в позиции текущего указателя
procedureOutTextXY(X, Y : Integer; TextString : String);Посылает строку на устройство вывода
procedurePieSlice(X, Y : Integer; StAngle, EndAngle, Radius : Word);Рисует и закрашивает сектор окружности
procedurePutImage(X, Y : Integer; var BitMap; BitBlt : Word);Помещает битовое изображение на экран
procedurePutPixel(X, Y : Integer; Color : Word);Ставит точку в позиции (X, Y)
procedureRectangle(X1, Y1, X2, Y2 : Integer);Рисует прямоугольник, используя текущий тип и цвет линии
procedureRegisterBGIdriver(Driver : Pointer) : Integer;Передаёт графической системе указатель на драйвер устройства
procedureRegisterBGIfont(Font : Pointer) : Integer;Передаёт графической системе указатель на шрифт
procedureRestoreCrtMode;Восстанавливает первоначальный текстовый режим, такой, какой был перед инициализацией графического режима
procedureSector(X, Y : Integer; StAngle, EndAngle, XRadius, YRadius : Word);Рисует и закрашивает сектор эллипса
procedureSetActivePage(Page : Word);Устанавливает активную страницу для графического вывода
procedureSetAllPalette(Var Palette);Изменяет все цвета в палитре на заданные
procedureSetAspectRatio(Xasp, Yasp : Word);Изменяет заданный по умолчанию коэффициент сжатия
procedureSetBkColor(ColorNum : Word);Устанавливает текущий цвет фона, используя палитру
procedureSetColor(Color : Word);Устанавливает текущий цвет, используя палитру
procedureSetFillPattern(Pattern : FillPatternType; Color : Word);Устанавливает определяемый пользователем шаблон закраски
procedureSetFillStyle(Pattern : Word; Color : Word);Устанавливает цвет и стиль закраски
procedureSetGraphBufSize(BufSize : Word);Изменяет заданный по умолчанию размер графического буфера, используемого для сканирования и заливки
procedureSetGraphMode(Mode : Integer);Устанавливает графический режим и очищает экран
procedureSetLineStyle(LineStyle : Word; Pattern : Word; Thickness : Word);Устанавливает текущий стиль линии
procedureSetPalette(ColorNum : Word; Color : Shortint);Заменяет один цвет в палитре
procedureSetRGBPalette(ColorNum, RedValue, GreenValue, BlueValue : Integer);Изменяет компоненты палитры для драйверов VGA и IBM 8514
procedureSetTextJustify(Horiz, Vert : Word);Устанавливает значения текстового выравнивания, используемые процедурами OutText и OutTextXY
procedureSetTextStyle(Font, Direction : Word; CharSize : Word);Устанавливает стиль вывода текста в графическом режиме
procedureSetUserCharSize(MultX, DivX, MultY, DivY : Word);Изменяет ширину и высоту символов для векторных шрифтов
procedureSetViewPort(x1, y1, x2, y2 : Integer; Clip : Boolean);Устанавливает текущую область просмотра или окно для графического режима
procedureSetVisualPage(Page : Word);Устанавливает номер видимой графической страницы
procedureSetWriteMode(WriteMode : Integer);Устанавливает режим записи для рисования линий
functionTextHeight(TextString : String) : Word;Возвращает высоту строки в пикселах
functionTextWidth(TextString : String) : Word;Возвращает ширину строки в пикселах.
 
 К началу страницы 
Тэги:
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"