1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Created page with "Umožňuje změnit velikost bufferu (vyrovnávací paměti), který je používán pro výplňové operace. ;Deklarace procedure SetGraphBufSize(BufSize: Word); ;Režim :Re..."
Umožňuje změnit velikost bufferu (vyrovnávací paměti), který je používán pro výplňové operace.
;Deklarace
procedure SetGraphBufSize(BufSize: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Nastaví velikost interního bufferu na BufSize a alokuje buffer na haldě, když je volána procedura InitGraph.
Vzorový příklad
{Setgbfsz.PAS}
{Vzorový příklad pro proceduru SetGraphBufSize.}
uses
Graph;
const
BigPoly : array[1..700] of PointType =
((x: 50; y: 100),
(x: 100; y: 100),
{ Add 698 more points here } );
var
Gd, Gm : Integer;
begin
{ Alokuje buffer 8K buffer, takže můžeme vyplnit mnohoúhelník o 700 vrcholech }
SetGraphBufSize(8*1024);
Gd := Detect; InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then Halt(1);
FillPoly(SizeOf(BigPoly) div SizeOf(PointType), BigPoly);
ReadLn;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure SetGraphBufSize(BufSize: Word);
;Režim
:Reálný, Chráněný
;Poznámky
:Nastaví velikost interního bufferu na BufSize a alokuje buffer na haldě, když je volána procedura InitGraph.
Vzorový příklad
{Setgbfsz.PAS}
{Vzorový příklad pro proceduru SetGraphBufSize.}
uses
Graph;
const
BigPoly : array[1..700] of PointType =
((x: 50; y: 100),
(x: 100; y: 100),
{ Add 698 more points here } );
var
Gd, Gm : Integer;
begin
{ Alokuje buffer 8K buffer, takže můžeme vyplnit mnohoúhelník o 700 vrcholech }
SetGraphBufSize(8*1024);
Gd := Detect; InitGraph(Gd, Gm, ' ');
if GraphResult <> grOk then Halt(1);
FillPoly(SizeOf(BigPoly) div SizeOf(PointType), BigPoly);
ReadLn;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
