Merged revisions 3616-3617 via svnmerge from

http://svn.freepascal.org/svn/fpc/trunk

r3616 (florian)
* restore cursor size in DoneVideo


r3617 (florian)
* fixed previous commit

git-svn-id: branches/fixes_2_0@3618 -

rtl/win32/video.pp

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