paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-31 08:42:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed maxx,maxy setting

Browse Source
This commit is contained in:
peter 2000-07-09 07:22:51 +00:00
parent 0f6ce09f13
commit 21c4b53ab2
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/linux/ggigraph.pp
View File

@ -458,10 +458,10 @@ var
ModeName := ModeNames[i];
// Pretend we're VGA always.
DriverNumber := VGA;
MaxX := ModeInfo.Visible.X;
MaxY := ModeInfo.Visible.Y;
// MaxColor := ModeInfo.colors;
MaxColor := 255;
MaxX := ModeInfo.Visible.X-1;
MaxY := ModeInfo.Visible.Y-1;
MaxColor := 1 shl (ModeInfo.graphtype and $ff);
//MaxColor := 255;
PaletteSize := MaxColor;
HardwarePages := 0;
// necessary hooks ...
@ -520,7 +520,7 @@ begin
// WriteLn('Testing mode: ', ModeNames[i]);
ggiParseMode(ModeNames[i], ModeInfo);
If ggiCheckMode(visual, ModeInfo) = 0 then begin
Writeln('OK for mode: ', ModeNames[i]);
Writeln('OK for mode ',i,' : ', ModeNames[i]);
AddGGIMode(i);
end;
end;
@ -534,7 +534,10 @@ finalization
end.
{
$Log$
Revision 1.3 2000-07-08 21:22:16 peter
Revision 1.4 2000-07-09 07:22:51 peter
* fixed maxx,maxy setting
Revision 1.3 2000/07/08 21:22:16 peter
* finalization added with setrawmode(false)
Revision 1.2 2000/05/26 18:21:04 peter