Zobrazení zdroje stránky PutImage

Přenese bitový obraz na obrazovku.

;Deklarace
 procedure PutImage(X, Y: Integer; var BitMap; BitBlt: Word);

;Režim
:Reálný, Chráněný

;Poznámky
:(X, Y) je levý horní roh obdélníkové oblasti obrazovky. BitMap je parametr bez typu, který obsahuje výšku a šířku oblasti a bitový obrázek, který bude přenesen na obrazovku. BitBlt určuje binární operátor, kterého se k umístění obrázku na obrazovku použije.

:Každá konstanta odpovídá binární operaci. Například:

 PutImage (X, Y, BitMap, NormalPut)
:umístí obrázek uložený v BitMap do (X, Y) pomocí instrukce assembleru MOV pro každý bajt obrázku.

:Obdobně [[PutImage]](X, Y, BitMap, XORPut) umístí obrázek uložený v BitMap  do (X, Y) pomocí instrukce assembleru [[XOR]] pro každý bajt obrázku. Toto je často používaná animační technika pro "vlečení" obrázku po obrazovce.

:[[PutImage]](X, Y, BitMap, NotPut) zinvertuje bity v BitMap a poté umístí obrázek uložený v BitMap do (X, Y) pomocí instrukce assembleru [[MOV] pro každý bajt obrázku. Tím se zobrazí inverzní podoba původního obrázku BitMap.

;Omezení
:Je nutno být v grafickém režimu.

;Viz také
:[[GetImage]]

:[[ImageSize]]


Vzorový příklad

 {Getimage.PAS}
 {Vzorový příklad pro proceduru GetImage.}
 uses Graph;
 var
   Gd, Gm: Integer;
   P: Pointer;
   Size: Word;
 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);   { Alokování paměti v haldě }
   GetImage(10, 20, 30, 40, P^);
   Readln;
   ClearDevice;
   PutImage(100, 100, P^, NormalPut);
   Readln;
   CloseGraph;
 end.
[[Category:Graph]]
[[Category:Procedúry Graph]]