SetGraphBufSize: Porovnání verzí

Z Delphi & Pascal (česká wiki)
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...")
 
m (1 revízia: Unit Graph)
 
(Žádný rozdíl)

Aktuální verze z 4. 10. 2012, 17:01

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.