МОДУЛЬ GRAPH
Графическая Библиотека для TMT Pascal v3.50SP2
Часть 5
Copyright (c) 1997,98 TMT Development Corp.
All Rights Reserved
Если вы заметили в документе
опечатки или неточности перевода,
просьба сообщить о них!
Перевод на русский язык и оформление:
Валерий Вотинцев
К Содержанию
Процедуры и Функции
GetActivePage (функция)
-
Возвращает номер текущей активной страницы.
Объявление:
function GetActivePage: DWord;
GetAspectRatio (процедура)
-
Возвращает коэффициент пропорциональности для установленного графического
режима.
Объявление:
procedure GetAspectRatio (var AspectRatio: Real);
-
Пояснения:
-
Более подробная информация приведена в описании процедуры SetAspectRatio.
GetBitsPerPixel (функция)
-
Возвращает размер (в битах), необходимый для задания цвета точки в
установленном графическом режиме.
Объявление:
function GetBitsPerPixel: DWord;
GetBkColor (функция)
-
Возвращает текущий цвет фона.
Объявление:
function GetBkColor: DWord;
-
Пояснения:
-
Цвет фона может принимать значение от нуля до GetMaxColor,
в зависимости от использующегося графического драйвера и установленного
графического режима.
GetBytesPerScanLine (функция)
-
Функция возвращает длину линии сканирования в байтах.
Объявление:
function GetBytesPerScanLine: DWord;
-
Пояснения:
-
Длина логической линии сканирования - это ширина логического экрана.
Размеры логического окна могут быть не только равны физическому разрешению
установленного графического режима, но и превышать его.
Данная функция возвращает длину линии сканирования именно дл
логического экрана.
GetColor (функция)
-
Возвращает текущий цвет для рисования.
Объявление:
function GetColor: Word;
GetDefaultPalette (функция)
-
Возвращает структуру описания палитры по умолчанию.
Объявление:
function GetDefaultPalette(var Palette: PaletteType);
-
Пояснения:
-
GetDefaultPalette возвращает запись типа PaletteType,
содержащую палитру, устанавливаемую автоматически при инициализации
нового графического режима.
GetGraphBufSize (функция)
-
Возвращает размер внутреннего графического буфера в байтах.
Объявление:
function GetGraphBufSize: DWord;
-
Пояснения:
-
Более подробную информацию см. в описании процедуры SetGraphBufSize.
GetGraphMode (функция)
-
Возвращает VESA-совместимый номер режима для установленного графического
режима.
Объявление:
function GetGraphMode: Word;
-
Пояснения:
-
Номер режима, возвращаемый функцией GetGraphMode, может быть использован
для установки режима с помощью процедуры SetGraphMode.
Ниже приводится пример установки графического режима.
Примечание переводчика:
-
Пример для этой функции неудачен, поскольку в нем нет использовани
ни GetGraphMode, ни SetGraphMode :-(.
uses Graph,Crt;
var ErrorCode,i: LongInt:=0;
SX,SY: DWord:=0;
begin
{ Установить SVGA режим 640x480x256 }
SetSVGAMode(640,480,8,LfbOrBanked);
ClearDevice;
{ Режим установлен успешно? }
if GraphResult<>0 then begin
ErrorCode:=GraphResult;
CloseGraph;
Writeln(GraphErrorMsg(ErrorCode));
end;
SetLogicalSize(1280,600);
GetLogicalSize(SX,SY);
if (SX=640) and (SY=480) then begin
CloseGraph;
Writeln(' Логические страницы не поддерживаются...');
end;
SetLineStyle(SolidLn,0,ThickWidth);
SetColor(clRed);
Line(0,0,GetMaxX,GetMaxY);
Line(GetMaxX,0,0,GetMaxY);
SetColor(clWhite);
Rectangle(0,0,GetMaxX,GetMaxY);
for i:=0 to (SX-640) div 4 do SetScreenStart(i*4,0,True);
for i:=0 to (SY-480) div 4 do SetScreenStart(SX-640,i*4,True);
for i:=(SX-640) div 4 downto 0 do SetScreenStart(i*4,SY-480,True);
for i:=(SY-480) div 4 downto 0 do SetScreenStart(0,i*4,True);
ReadKey;
CloseGraph;
end.
GetImage (процедура)
-
Сохраняет в буфер заданную прямоугольную область изображения.
Объявление:
procedure GetImage(x1, y1, x2, y2: Integer; var BitMap);
-
Пояснения:
-
X1, Y1, X2, Y2 - координаты двух диагонально противоположных точек
прямоугольной области на экране. Размер безтипового параметра BitMap
должен быть больше, по крайней мере, на 4 байта, чем размер памяти,
занимаемой данной областью изображения, поскольку в двух первых словах
BitMap сохраняется ширина и высота сохраняемой области.
-
Оставшаяся часть BitMap используется для сохранения собственно изображения.
Для определения размера буфера BitMap можно воспользоваться функцией
ImageSize.
GetLfbAddress (функция)
-
Возвращает физический адрес буфера LFB (linear flat frame buffer).
Объявление:
function GetLfbAddress: DWord;
-
Пояснения:
-
Если режим LFB не поддерживается, то функция возвращает ноль.
GetLineSettings (процедура)
-
Возвращает текущие параметры линии: стиль, образец и толщину, установленные
процедурой SetLineStyle.
Объявление:
procedure GetLineSettings(var LineInfo: LineSettingsType);
GetLogicalPage (процедура)
-
Возвращает текущий размер логической страницы.
Объявление:
procedure GetLogicalPage(var SX,SY: Word);
-
Пояснения:
-
Подробная информация приведена в описании процедуры SetLogicalPage.
GetMaxColor (функция)
-
Возвращает максимальный номер цвета, который может быть указан в процедуре
SetColor.
Объявление:
function GetMaxColor: DWord;
-
Пояснения:
-
Если установлен 256-цветный VGA/SVGA режим, то GetMaxColor вернет значение
255. Это значит, что при обращении к SetColor можно задавать цвета только
в диапазоне 0..255.
Если установлен один из многоцветных SVGA режимов, то GetMaxColor вернет,
соответственно, значение 32767 или 65535.
GetMaxPage (функция)
-
Возвращает номер последней доступной графической страницы.
Объявление:
function GetMaxPage: DWord;
GetMaxX (функция)
-
Возвращает максимальное разрешение по X.
Объявление:
function GetMaxX: DWord;
-
Пояснения:
-
Возвращает номер крайнего правого столбца точек (разрешение по X)
логической видео-страницы для установленного графического режима.
GetMaxY (функция)
-
Возвращает максимальное разрешение по Y.
Объявление:
function GetMaxY: DWord;
-
Пояснения:
-
Возвращает номер самой нижней строки точек (разрешение по Y)
логической видео-страницы для установленного графического режима.
GetOemProductName (функция)
-
Возвращает строку, содержащую название установленной видео-карты.
Объявление:
function GetOemProductName: String;
-
Пояснения:
-
Если видео-карта не поддерживает VESA VBE 2.0+, то функция вернет пустую
строку.
GetOemProductRev (функция)
-
Возвращает строку, содержащую версию или номер установленной видео-карты.
Объявление:
function GetOemProductRev: String;
-
Пояснения:
-
Если видео-карта не поддерживает VESA VBE 2.0+, то функция вернет пустую
строку.
GetOemString (функция)
-
Возвращает OEM-идентификатор графического контроллера.
Объявление:
function GetOemString: String;
-
Пояснения:
-
Возвращаемая строка может быть использована для идентификации типа
графического контроллера или семейства OEM-продуктов для конкретного
видео-драйвера.
-
Если видео-карта не поддерживает VESA VBE 1.2+, то функция вернет пустую
строку.
GetOemVendorName (функция)
-
Возвращает строку, содержащую наименование изготовителя видео-карты.
Объявление:
function GetOemVendorName: String;
-
Пояснения:
-
Если видео-карта не поддерживает VESA VBE 1.2+, то функция вернет пустую
строку.
GetPageSize (функция)
-
Возвращает размер логической видео-страницы для установленного
графического режима (в байтах).
Объявление:
function GetPageSize: DWord;
-
Размер графической страницы зависит как от установленного графического
режима, так и размеров логической страницы, установленных процедурой
SetLogicalPage.
GetPalette (процедура)
-
Возвращает в переменной типа PaletteType текущую палитру и ее размер.
Объявление:
procedure GetPalette(var Palette: PaletteType);
GetPixel (функция)
-
Возвращает цвет точки (пиксела) с координатами (X,Y).
Объявление:
function GetPixel(X,Y: LongInt): DWord;
GetScreenHeight (функция)
-
Возвращает высоту физического экрана в пикселах.
Объявление:
function GetScreenHeight: DWord;
GetScreenWidth (функция)
-
Возвращает ширину физического экрана в пикселах.
Объявление:
function GetScreenWidth: DWord;
GetTextSettings (процедура)
-
Возвращает параметры вывода текста в графическом режиме.
Объявление:
procedure GetTextSettings(var TextInfo: TextSettingsType);
-
Пояснения:
-
Функция возвращает параметры текста: установленный фонт (шрифт),
направление, размер и метод выравнивания, установленные процедурами
SetTextStyle или SetCustomFont и SetTextJustify.
GetTranspSettings (процедура)
-
Возвращает текущие установки для режима прозрачности.
Объявление:
procedure GetTranspSettings (var Mode: Boolean; Color: DWord);
-
Пояснения:
-
Более подробная информация приведена в описании процедуры SetTransparentMode.
|