Правила форума
GetImage (процедура) (модуль Graph)Язык:
Русский
English
GetImage (процедура) (модуль Graph)
Сохраняет участок изображения в буфер.
Объявление
Procedure GetImage(X1, Y1, X2, Y2 : Integer; Var BitMap);
Режим
Real, Protected
Замечания
Параметры X1, Y1, X2 и Y2 определяют прямоугольную область на экране. BitMap — нетипизированный параметр, который должен быть больше или равен 6 плюс количество памяти, занимамой изображением в данной области. Первые два слова в BitMap содержат ширину и высоту области. Третье слово зарезервировано.
Оставшаяся часть памяти в BitMap используется для хранения двоичного образа данного участка изображения. Используйте функцию ImageSize, чтобы определить необходимый размер параметра BitMap. Для выделения и освобождения памяти можно использовать GetMem и FreeMem, соответственно.
Ограничения
Нужно быть в графическом режиме. Количество памяти, необходимое для хранения битового образа участка изображения, не должно превышать 64Кб.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры GetImage }
var
Gd, Gm : Integer;
P : Pointer;
Size : Word;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
