ImageSize

Vrací počet bajtů, potřebný k uložení obdélníkové oblasti obrazovky.

Deklarace

function ImageSize(x1, y1, x2, y2: Integer): Word;

Režim

Reálný, Chráněný

Poznámky

X1, Y1, X2 a Y2 definují obdélníkovou oblast obrazovky. ImageSize určuje počet bajtů, které potřebuje procedura GetImage k uložení určené oblasti do paměti. Velikost obrázku zahrnuje místo pro několik slov - první slovo obsahuje šířku oblasti a druhé obsahuje její výšku. Další slova obsahují atributy vlastního obrázku. Poslední slovo je rezervováno.

Pokud je požadovaná paměť větší nebo rovna 64K, vrátí funkce ImageSize hodnotu 0 a GraphResult vrátí -11 (grError).

Omezení

Je nutno být v grafickém režimu.

Viz také

GetImage

PutImage

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.