МОДУЛЬ 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.
 
             |