SetGraphBufSize

Z Delphi & Pascal (česká wiki)
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

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.