Функция ImageSize()

Модуль GRAPH

Возвращает число байт памяти, необходимых для сохранения заданной прямоугольной области экрана.

Объявление:

Function ImageSize(X1, Y1, X2, Y2 : Integer) : Word;

Режим:

Real, Protected

Замечание:

Параметры X1, Y1, X2 и Y2 определяют прямоугольную область на экране. Функция ImageSize возвращает число байт, необходимых для сохранения заданной области экрана. Размер изображения также включает три значения типа Word. Первое - ширина области, второе - высота области, а третье зарезервировано.

Если количество памяти, требуемое для сохранение области больше или равно 64Кб, то возвращается значение равное нулю, и функция GraphResult возвращает значение -11 (grError).

Ограничения:

Нужно быть в графическом режиме.

Пример:

{ Пример программы для процедуры GetImage }

Uses Graph;

Var Gd, Gm : Integer;
         P : Pointer;
      Size : Word;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 SetFillStyle(XHatchFill, Cyan);
 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.