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

* SysSetVideoMode corrected to reflect SysVideoModeSelector result

Browse Source
This commit is contained in:
Tomas Hajny 2004-09-13 20:58:57 +00:00
parent 3b59efea14
commit d082859a46
2 changed files with 21 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/os2/video.pp
View File

@ -318,10 +318,12 @@ begin
Dec(I); Dec(I);
If SysSetVideoMode then If SysSetVideoMode then
begin begin
SysVideoModeSelector(Mode); if SysVideoModeSelector(Mode) then
begin;
ScreenWidth:=SysVMD[I].Col; ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row; ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color; ScreenColor:=SysVMD[I].Color;
end else SysSetVideoMode := false;
end; end;
end; end;
@ -470,7 +472,10 @@ end.
{ {
$Log$ $Log$
Revision 1.10 2004-05-24 19:33:22 hajny Revision 1.11 2004-09-13 20:58:58 hajny
* SysSetVideoMode corrected to reflect SysVideoModeSelector result
Revision 1.10 2004/05/24 19:33:22 hajny
* regcall update * regcall update
Revision 1.9 2003/10/07 21:26:35 hajny Revision 1.9 2003/10/07 21:26:35 hajny

11
rtl/win32/video.pp
View File

@ -144,7 +144,7 @@ var MI: Console_Screen_Buffer_Info;
SR: Small_Rect; SR: Small_Rect;
begin begin
if GetConsoleScreenBufferInfo (TextRec (Output).Handle, MI) then if not (GetConsoleScreenBufferInfo (TextRec (Output).Handle, MI)) then
SysVideoModeSelector := false SysVideoModeSelector := false
else else
begin begin
@ -207,10 +207,12 @@ begin
Dec(I); Dec(I);
If SysSetVideoMode then If SysSetVideoMode then
begin begin
SysVideoModeSelector(Mode); if SysVideoModeSelector(Mode) then
begin;
ScreenWidth:=SysVMD[I].Col; ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row; ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color; ScreenColor:=SysVMD[I].Color;
end else SysSetVideoMode := false;
end; end;
end; end;
@ -419,7 +421,10 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.12 2004-09-11 21:45:13 hajny Revision 1.13 2004-09-13 20:58:57 hajny
* SysSetVideoMode corrected to reflect SysVideoModeSelector result
Revision 1.12 2004/09/11 21:45:13 hajny
+ experimental patch to support more resolutions in text-mode IDE under Win32 + experimental patch to support more resolutions in text-mode IDE under Win32
Revision 1.11 2003/09/17 15:06:36 peter Revision 1.11 2003/09/17 15:06:36 peter