GraphResult
Verze z 4. 10. 2012, 17:01, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Unit Graph)
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
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.