Přidáno 1 321 bajtů,
4. 10. 2012, 16:25 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]]