ImageSize

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání

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.