1 578
editací
Změny
Created page with "Otestuje hardware a určí, který grafický driver a režim použít. ;Deklarace procedure DetectGraph(var GraphDriver, GraphMode: Integer); ;Režim :Reálný, Chráněný..."
Otestuje hardware a určí, který grafický driver a režim použít.
;Deklarace
procedure DetectGraph(var GraphDriver, GraphMode: Integer);
;Režim
:Reálný, Chráněný
;Poznámky
:[[DetectGraph]] vrací zjištěné hodnoty driveru a režimu, které lze předat proceduře [[InitGraph]], jež pak zavede správný driver. Pokud nebyl zjištěn žádný grafický hardware, parametr [[GraphDriver]] a funkce [[GraphResult]] vracejí hodnotu grNotDetected.
:Pokud není instruována jinak, procedura [[InitGraph]] volá [[DetectGraph]], najde a zavede správný driver a inicializuje grafický systém. Jediným důvodem k přímému volání [[DetectGraph]] je změnit driver, který [[DetectGraph]] doporučuje. Pokud proceduře [[InitGraph]] předáváte jiný Graph Driver než Detect, musíte také předat [[GraphMode]] platný pro požadovaný driver.
;Viz také
:[[CloseGraph]]
:[[GraphResult]]
:[[InitGraph]]
Vzorový příklad
{Detctgrf.PAS}
{Vzorový příklad pro funkci Detectgraph.}
uses Graph;
var GraphDriver, GraphMode: Integer;
begin
DetectGraph(GraphDriver, GraphMode);
if (GraphDriver = EGA) or
(GraphDriver = EGA64) then
begin
GraphDriver := CGA;
GraphMode := CGAHi;
end;
InitGraph(GraphDriver, GraphMode,' ');
if GraphResult <> grOk then
Halt(1);
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure DetectGraph(var GraphDriver, GraphMode: Integer);
;Režim
:Reálný, Chráněný
;Poznámky
:[[DetectGraph]] vrací zjištěné hodnoty driveru a režimu, které lze předat proceduře [[InitGraph]], jež pak zavede správný driver. Pokud nebyl zjištěn žádný grafický hardware, parametr [[GraphDriver]] a funkce [[GraphResult]] vracejí hodnotu grNotDetected.
:Pokud není instruována jinak, procedura [[InitGraph]] volá [[DetectGraph]], najde a zavede správný driver a inicializuje grafický systém. Jediným důvodem k přímému volání [[DetectGraph]] je změnit driver, který [[DetectGraph]] doporučuje. Pokud proceduře [[InitGraph]] předáváte jiný Graph Driver než Detect, musíte také předat [[GraphMode]] platný pro požadovaný driver.
;Viz také
:[[CloseGraph]]
:[[GraphResult]]
:[[InitGraph]]
Vzorový příklad
{Detctgrf.PAS}
{Vzorový příklad pro funkci Detectgraph.}
uses Graph;
var GraphDriver, GraphMode: Integer;
begin
DetectGraph(GraphDriver, GraphMode);
if (GraphDriver = EGA) or
(GraphDriver = EGA64) then
begin
GraphDriver := CGA;
GraphMode := CGAHi;
end;
InitGraph(GraphDriver, GraphMode,' ');
if GraphResult <> grOk then
Halt(1);
Line(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]