paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:09:15 +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

7
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;