paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 10:29:37 +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

15
rtl/os2/video.pp
View File

@ -318,10 +318,12 @@ begin
Dec(I);
If SysSetVideoMode then
begin
SysVideoModeSelector(Mode);
ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color;
if SysVideoModeSelector(Mode) then
begin;
ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color;
end else SysSetVideoMode := false;
end;
end;
@ -470,7 +472,10 @@ end.
{
$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
Revision 1.9 2003/10/07 21:26:35 hajny

17
rtl/win32/video.pp
View File

@ -144,7 +144,7 @@ var MI: Console_Screen_Buffer_Info;
SR: Small_Rect;
begin
if GetConsoleScreenBufferInfo (TextRec (Output).Handle, MI) then
if not (GetConsoleScreenBufferInfo (TextRec (Output).Handle, MI)) then
SysVideoModeSelector := false
else
begin
@ -207,10 +207,12 @@ begin
Dec(I);
If SysSetVideoMode then
begin
SysVideoModeSelector(Mode);
ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color;
if SysVideoModeSelector(Mode) then
begin;
ScreenWidth:=SysVMD[I].Col;
ScreenHeight:=SysVMD[I].Row;
ScreenColor:=SysVMD[I].Color;
end else SysSetVideoMode := false;
end;
end;
@ -419,7 +421,10 @@ initialization
end.
{
$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
Revision 1.11 2003/09/17 15:06:36 peter