HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
20 января. В 1896 году (122 года назад) - В Петербурге основывается Институт физической культуры им. П.Ф. Лесгафта.
 
 

Turbo Pascal Documentation

Процедура GetImage

Модуль Graph


     Функция: Сохраняет в буфере двоичный образ заданной об-
ласти экрана.
     Описание:  GetImage(х1,  у1,  х2,  у2,  :   word;   var
бит_масс)
      Примечания: Параметры х1, у1, х2, у2 определяют прямоу-
гольную область экрана. Параметр "бит_масс" является нетипи-
зованным параметром, который должен быть больше или равен 4,
плюс  размер  памяти,  отведенный для области экрана. Первые
два слова параметра "бит_масс" зарезервированы для ширины  и
высоты области экрана:

width  := x2 - x1 + 1;                        { ширина }
heignt := y2 - y1 + 1;                        { высота }

     Оставшаяся часть параметра "бит_масс" используется  для
сохранения  самого двоичного образа. Для определения размера
памяти, необходимой для  параметра  "бит_масс",  используйте
фунцию ImageSize.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры ImageSize, PutImage.
     Пример:

var
   P    : pointer;
   Size : word;
   Gd, Gm : pointer;
  begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
      Halt(1);
  Bar(0, 0, GetMaxX, GetMaxY);
  Size := ImageSize(10,20,30,40);
  GetMem(p,Size);         { выделить память в динамически
                            распределяемой области }
  GetImage(10,20,30,40,p^);
  Readln;
  ClearDevice;
  PutImage(100, 100, P^, NormalPut);
  Readln;
  CloseGraph;
end.




HOME