paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 07:31:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* factored out the common VESA mode initialization for each screen resolution to

Browse Source 
a separate procedure (same change as r40853, but for ptcgraph)

git-svn-id: trunk@40862 -
This commit is contained in:
nickysn 2019-01-14 14:09:21 +00:00
parent cc72a4c725
commit be28276ceb
1 changed files with 63 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

165
packages/graph/src/ptcgraph/ptcgraph.pp
View File

@ -2099,6 +2099,52 @@ end;
mode.PaletteSize := mode.MaxColor;
end;
procedure FillCommonVESA320x200(var mode: TModeInfo);
begin
mode.DriverNumber := VESA;
mode.ModeName:='320 x 200 VESA';
mode.MaxX := 319;
mode.MaxY := 199;
mode.XAspect := 8333;
mode.YAspect := 10000;
end;
procedure FillCommonVESA640x480(var mode: TModeInfo);
begin
mode.DriverNumber := VESA;
mode.ModeName:='640 x 480 VESA';
mode.MaxX := 639;
mode.MaxY := 479;
mode.XAspect := 10000;
mode.YAspect := 10000;
end;
procedure FillCommonVESA800x600(var mode: TModeInfo);
begin
mode.DriverNumber := VESA;
mode.ModeName:='800 x 600 VESA';
mode.MaxX := 799;
mode.MaxY := 599;
mode.XAspect := 10000;
mode.YAspect := 10000;
end;
procedure FillCommonVESA1024x768(var mode: TModeInfo);
begin
mode.DriverNumber := VESA;
mode.ModeName:='1024 x 768 VESA';
mode.MaxX := 1023;
mode.MaxY := 767;
mode.XAspect := 10000;
mode.YAspect := 10000;
end;
procedure FillCommonVESA1280x1024(var mode: TModeInfo);
begin
mode.DriverNumber := VESA;
mode.ModeName:='1280 x 1024 VESA';
mode.MaxX := 1279;
mode.MaxY := 1023;
mode.XAspect := 10000;
mode.YAspect := 10000;
end;
var
graphmode:Tmodeinfo;
I: Integer;
@ -2436,76 +2482,51 @@ end;
InitMode(graphmode);
FillCommonVESA256(graphmode);
FillCommonVESA640x480(mode);
with graphmode do
begin
ModeNumber:=m640x480x256;
DriverNumber := VESA;
ModeName:='640 x 480 VESA';
MaxX := 639;
MaxY := 479;
InitMode := @ptc_Init640x480x256;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA32k(graphmode);
FillCommonVESA320x200(mode);
with graphmode do
begin
ModeNumber := m320x200x32k;
DriverNumber := VESA;
ModeName:='320 x 200 VESA';
MaxX := 319;
MaxY := 199;
InitMode := @ptc_Init320x200x32k;
XAspect := 8333;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA32k(graphmode);
FillCommonVESA640x480(mode);
with graphmode do
begin
ModeNumber := m640x480x32k;
DriverNumber := VESA;
ModeName:='640 x 480 VESA';
MaxX := 639;
MaxY := 479;
InitMode := @ptc_Init640x480x32k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA64k(graphmode);
FillCommonVESA320x200(mode);
with graphmode do
begin
ModeNumber := m320x200x64k;
DriverNumber := VESA;
ModeName:='320 x 200 VESA';
MaxX := 319;
MaxY := 199;
InitMode := @ptc_Init320x200x64k;
XAspect := 8333;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA64k(graphmode);
FillCommonVESA640x480(mode);
with graphmode do
begin
ModeNumber := m640x480x64k;
DriverNumber := VESA;
ModeName:='640 x 480 VESA';
MaxX := 639;
MaxY := 479;
InitMode := @ptc_Init640x480x64k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
@ -2513,61 +2534,41 @@ end;
begin
InitMode(graphmode);
FillCommonVESA16(graphmode);
FillCommonVESA800x600(mode);
with graphmode do
begin
ModeNumber := m800x600x16;
DriverNumber := VESA;
ModeName:='800 x 600 VESA';
MaxX := 799;
MaxY := 599;
InitMode := @ptc_Init800x600x16;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA256(graphmode);
FillCommonVESA800x600(mode);
with graphmode do
begin
ModeNumber:=m800x600x256;
DriverNumber := VESA;
ModeName:='800 x 600 VESA';
MaxX := 799;
MaxY := 599;
InitMode := @ptc_Init800x600x256;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA32k(graphmode);
FillCommonVESA800x600(mode);
with graphmode do
begin
ModeNumber := m800x600x32k;
DriverNumber := VESA;
ModeName:='800 x 600 VESA';
MaxX := 799;
MaxY := 599;
InitMode := @ptc_Init800x600x32k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA64k(graphmode);
FillCommonVESA800x600(mode);
with graphmode do
begin
ModeNumber := m800x600x64k;
DriverNumber := VESA;
ModeName:='800 x 600 VESA';
MaxX := 799;
MaxY := 599;
InitMode := @ptc_Init800x600x64k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
end;
@ -2576,61 +2577,41 @@ end;
begin
InitMode(graphmode);
FillCommonVESA16(graphmode);
FillCommonVESA1024x768(mode);
with graphmode do
begin
ModeNumber := m1024x768x16;
DriverNumber := VESA;
ModeName:='1024 x 768 VESA';
MaxX := 1023;
MaxY := 767;
InitMode := @ptc_Init1024x768x16;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA256(graphmode);
FillCommonVESA1024x768(mode);
with graphmode do
begin
ModeNumber:=m1024x768x256;
DriverNumber := VESA;
ModeName:='1024 x 768 VESA';
MaxX := 1023;
MaxY := 767;
InitMode := @ptc_Init1024x768x256;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA32k(graphmode);
FillCommonVESA1024x768(mode);
with graphmode do
begin
ModeNumber := m1024x768x32k;
DriverNumber := VESA;
ModeName:='1024 x 768 VESA';
MaxX := 1023;
MaxY := 767;
InitMode := @ptc_Init1024x768x32k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA64k(graphmode);
FillCommonVESA1024x768(mode);
with graphmode do
begin
ModeNumber := m1024x768x64k;
DriverNumber := VESA;
ModeName:='1024 x 768 VESA';
MaxX := 1023;
MaxY := 767;
InitMode := @ptc_Init1024x768x64k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
end;
@ -2639,61 +2620,41 @@ end;
begin
InitMode(graphmode);
FillCommonVESA16(graphmode);
FillCommonVESA1280x1024(mode);
with graphmode do
begin
ModeNumber := m1280x1024x16;
DriverNumber := VESA;
ModeName:='1280 x 1024 VESA';
MaxX := 1279;
MaxY := 1023;
InitMode := @ptc_Init1280x1024x16;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA256(graphmode);
FillCommonVESA1280x1024(mode);
with graphmode do
begin
ModeNumber:=m1280x1024x256;
DriverNumber := VESA;
ModeName:='1280 x 1024 VESA';
MaxX := 1279;
MaxY := 1023;
InitMode := @ptc_Init1280x1024x256;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA32k(graphmode);
FillCommonVESA1280x1024(mode);
with graphmode do
begin
ModeNumber := m1280x1024x32k;
DriverNumber := VESA;
ModeName:='1280 x 1024 VESA';
MaxX := 1279;
MaxY := 1023;
InitMode := @ptc_Init1280x1024x32k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
InitMode(graphmode);
FillCommonVESA64k(graphmode);
FillCommonVESA1280x1024(mode);
with graphmode do
begin
ModeNumber := m1280x1024x64k;
DriverNumber := VESA;
ModeName:='1280 x 1024 VESA';
MaxX := 1279;
MaxY := 1023;
InitMode := @ptc_Init1280x1024x64k;
XAspect := 10000;
YAspect := 10000;
end;
AddMode(graphmode);
end;