Změny

Skočit na navigaci Skočit na vyhledávání

GraphResult

Přidáno 1 321 bajtů, 4. 10. 2012, 16:25
Created page with "Vrací chybový kód poslední grafické operace. ;Deklarace function GraphResult: Integer; ;Režim :Reálný, Chráněný ;Poznámky :GraphResult nastavují tyto rutiny: ..."
Vrací chybový kód poslední grafické operace.

;Deklarace
function GraphResult: Integer;

;Režim
:Reálný, Chráněný

;Poznámky
:GraphResult nastavují tyto rutiny:
:[[Bar]]
:[[GetGraphMode]]
:[[SetAllPalette]]
:[[Bar3D]]
:[[ImageSize]]
:[[SetFillPattern]]
:[[ClearViewPort]]
:[[InitGraph]]
:[[SetFillStyle]]
:[[CloseGraph]]
:[[InstallUserDriver]]
:[[SetGraphBufSize]]
:[[DetectGraph]]
:[[InstallUserFont]]
:[[SetGraphMode]]
:[[DrawPoly]]
:[[PieSlice]]
:[[SetLineStyle]]
:[[FillPoly]]
:[[RegisterBGIdriver]]
:[[SetPalette]]
:[[FloodFill]]
:[[RegisterBGIfont]]
:[[SetTextJustify]]
:[[SetTextStyle]]

;Viz také
:[[DetectGraph]]

:[[DrawPoly]]

:[[Chybové kódy grafického režimu]]

:[[GraphErrorMsg]]


Vzorový příklad

{Grfreslt.PAS}
{Vzorový příklad pro funkci GraphResult.}
uses Graph;
var
ErrorCode: Integer;
GrDriver, GrMode: Integer;
begin
GrDriver := Detect;
InitGraph(GrDriver, GrMode, ' ');
ErrorCode := GraphResult; { Kontrola chyb }
if ErrorCode <> grOk then
begin
Writeln('Chyba grafiky:');
Writeln(GraphErrorMsg(ErrorCode));
Writeln('Program přerušen...');
Halt(1);
end;
ClearDevice; { Nakreslit nějakou grafiku... }
Rectangle(0, 0, GetMaxX, GetMaxY);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Funkce Graph]]

Navigační menu