paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 11:00:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added CGA and MCGA graphics modes

Browse Source 
git-svn-id: trunk@15908 -
This commit is contained in:
nickysn 2010-08-25 22:55:05 +00:00
parent ac51f535ae
commit 621f28cd1d
3 changed files with 1248 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1217
packages/graph/src/go32v2/graph.pp
View File

File diff suppressed because it is too large Load Diff

19
packages/graph/src/inc/graphh.inc
View File

@ -321,7 +321,9 @@ type
{ graphic drivers }
CurrentDriver = -128;
Detect = 0;
LowRes = 1;
CGA = 1;
MCGA = 2;
LowRes = 6; { nickysn: used to be 1, but moved to 6, because I added CGA }
HercMono = 7;
VGA = 9;
VESA = 10;
@ -346,6 +348,21 @@ type
{ graph modes }
Default = 0;
{ CGA Driver modes }
CGAC0 = 0;
CGAC1 = 1;
CGAC2 = 2;
CGAC3 = 3;
CGAHi = 4;
{ MCGA Driver modes }
MCGAC0 = 0;
MCGAC1 = 1;
MCGAC2 = 2;
MCGAC3 = 3;
MCGAMed = 4;
MCGAHi = 5;
{ VGA Driver modes }
VGALo = 0;
VGAMed = 1;

26
packages/graph/src/sdlgraph/sdlgraph.pp
View File

@ -64,8 +64,8 @@ It's highly recommended to use Detect (0 constant) for grDriver and grmode: init
}
//Detect =0; is in the graphh.inc
CGA =1;
MCGA =2;
//CGA =1; is in graphh.inc
//MCGA =2; is in graphh.inc
EGA =3;
EGA64 =4;
EGAMono =5;
@ -76,18 +76,18 @@ It's highly recommended to use Detect (0 constant) for grDriver and grmode: init
PC3270 =10;
{Graphics Modes for Each Driver}
CGAC0 =0;
CGAC =1;
CGAC2 =2;
CGAC3 =3;
CGAHi =4;
//CGAC0 =0; is in graphh.inc
//CGAC =1; is in graphh.inc
//CGAC2 =2; is in graphh.inc
//CGAC3 =3; is in graphh.inc
//CGAHi =4; is in graphh.inc
MCGAC0 =0;
MCGAC =1;
MCGAC2 =2;
MCGAC3 =3;
MCGAMed =4;
MCGAHi =5;
//MCGAC0 =0; is in graphh.inc
//MCGAC =1; is in graphh.inc
//MCGAC2 =2; is in graphh.inc
//MCGAC3 =3; is in graphh.inc
//MCGAMed =4; is in graphh.inc
//MCGAHi =5; is in graphh.inc
EGAMonoHi =3;
//HercMonoHi =0; is in the graphh.inc