paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ VESA Driver name

Browse Source
This commit is contained in:
carl 1999-05-09 22:24:38 +00:00
parent 312ba676f2
commit 8e45cea1c3
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
rtl/inc/graph/graph.pp
View File

@ -305,6 +305,7 @@ Interface
LowRes = 1;
HercMono = 7;
VGA = 9;
VESA = 10;
{ graph modes }
Default = 0;
@ -607,6 +608,10 @@ procedure SetFillPattern(Pattern: FillPatternType; Color: word);
Implementation
{$IFDEF DPMI}
uses WinAPI;
{$ENDIF}
const
StdBufferSize = 4096; { Buffer size for FloodFill }
@ -2320,7 +2325,7 @@ end;
CurrentColor:=white;
SetBkColor(Black);
SetBkColor(Blue);
ClipPixels := TRUE;
@ -2363,7 +2368,7 @@ end;
procedure SetWriteMode(WriteMode : integer);
begin
if (writemode<>xorput) and (writemode<>CopyPut) then
exit;
exit;
CurrentWriteMode := WriteMode;
end;
@ -2383,16 +2388,16 @@ end;
procedure DrawPoly(numpoints : word;var polypoints);
procedure DrawPoly(numpoints : word;var polypoints);
type
ppointtype = ^pointtype;
pt = array[0..16000] of pointtype;
ppointtype = ^pointtype;
pt = array[0..16000] of pointtype;
var
i : longint;
i : longint;
begin
begin
if numpoints < 2 then
begin
_GraphResult := grError;
@ -2403,7 +2408,7 @@ end;
pt(polypoints)[i].y,
pt(polypoints)[i+1].x,
pt(polypoints)[i+1].y);
end;
end;
procedure PieSlice(X,Y,stangle,endAngle:integer;Radius: Word);