paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 16:26:14 +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]; ModeName := ModeNames[i];
// Pretend we're VGA always. // Pretend we're VGA always.
DriverNumber := VGA; DriverNumber := VGA;
MaxX := ModeInfo.Visible.X; MaxX := ModeInfo.Visible.X-1;
MaxY := ModeInfo.Visible.Y; MaxY := ModeInfo.Visible.Y-1;
// MaxColor := ModeInfo.colors; MaxColor := 1 shl (ModeInfo.graphtype and $ff);
MaxColor := 255; //MaxColor := 255;
PaletteSize := MaxColor; PaletteSize := MaxColor;
HardwarePages := 0; HardwarePages := 0;
// necessary hooks ... // necessary hooks ...
@ -520,7 +520,7 @@ begin
// WriteLn('Testing mode: ', ModeNames[i]); // WriteLn('Testing mode: ', ModeNames[i]);
ggiParseMode(ModeNames[i], ModeInfo); ggiParseMode(ModeNames[i], ModeInfo);
If ggiCheckMode(visual, ModeInfo) = 0 then begin If ggiCheckMode(visual, ModeInfo) = 0 then begin
Writeln('OK for mode: ', ModeNames[i]); Writeln('OK for mode ',i,' : ', ModeNames[i]);
AddGGIMode(i); AddGGIMode(i);
end; end;
end; end;
@ -534,7 +534,10 @@ finalization
end. end.
{ {
$Log$ $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) * finalization added with setrawmode(false)
Revision 1.2 2000/05/26 18:21:04 peter Revision 1.2 2000/05/26 18:21:04 peter