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

* fixed previous commit

Browse Source 
git-svn-id: trunk@3617 -
This commit is contained in:
florian 2006-05-21 18:19:09 +00:00
parent 7343039cdd
commit 77c4459fd1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/win/video.pp
View File

@ -79,7 +79,7 @@ procedure SysDoneVideo;
begin begin
SetConsoleScreenBufferSize (TextRec (Output).Handle, OrigConsoleInfo.dwSize); SetConsoleScreenBufferSize (TextRec (Output).Handle, OrigConsoleInfo.dwSize);
SetConsoleWindowInfo (cardinal (TextRec (Output).Handle), true, OrigConsoleInfo.srWindow); SetConsoleWindowInfo (cardinal (TextRec (Output).Handle), true, OrigConsoleInfo.srWindow);
GetConsoleCursorInfo(TextRec(Output).Handle, OrigConsoleCursorInfo); SetConsoleCursorInfo(TextRec(Output).Handle, OrigConsoleCursorInfo);
SetConsoleCP(OrigCP); SetConsoleCP(OrigCP);
end; end;