getimage.pas

 {Getimage.PAS}
 
 { Пример программы для процедуры 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.