1 578
editací
Změny
Created page with "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ý ..."
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.
[[Category:Graph]]
[[Category:Funkce Graph]]
;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.
[[Category:Graph]]
[[Category:Funkce Graph]]