GetImage(integer,integer,integer,integer,Void) Method

A megadott, téglalap alakú grafikus képernyőrészletet tárolja el a megadott memóriaterületen.

Namespace: Graph

procedure GetImage(const X1, Y1, X2, Y2: integer; var Image);

Parameters

X1: Type: integer
A téglalap bal felső sarkának X koordinátája.
Y1: Type: integer
A téglalap bal felső sarkának Y koordinátája.
X2: Type: integer
A téglalap jobb alsó sarkának X koordinátája.
Y2: Type: integer
A téglalap jobb alsó sarkának Y koordinátája.
Image: Type: System.Void
A tároláshoz használt memóriaterület.

Remarks

A GetImage kis képek esetén (~100x100) gyors, nagyobbak esetén viszont lassú. Egymás után ismételt hívásokban, főleg nagy téglalapok mellett lehetőleg ne használja.

Examples

Delphi

procedure OffsetImage;
var
  Image: Pointer;
  Size: integer;
begin
  Size := ImageSize(100, 100, 200, 200);
  if Size > 0 then begin
    GetMem(Image, Size);
    GetImage(100, 100, 200, 200, Image^);
    PutImage(150, 150, Image^, CopyPut);
    FreeMem(Image, Size);
  end;
end;

Reference

Graph