paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-04 09:14:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed clrscr for small windows

Browse Source 
* no turnoffmouse
This commit is contained in:
peter 2002-01-19 11:56:34 +00:00
parent ebe1ebc5a9
commit 5012dd876e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/win32/crt.pp
View File

@ -828,8 +828,8 @@ begin
TextAttr := ConsoleInfo.wAttributes;
{ Load startup values }
TurnMouseOff;
{ Not required, the dos crt does also not touch the mouse }
{TurnMouseOff;}
WindMinX := (ConsoleInfo.srWindow.Left) + 1;
WindMinY := (ConsoleInfo.srWindow.Top) + 1;
@ -851,7 +851,11 @@ end. { unit Crt }
{
$Log$
Revision 1.15 2001-09-17 21:31:44 peter
Revision 1.16 2002-01-19 11:56:34 peter
* fixed clrscr for small windows
* no turnoffmouse
Revision 1.15 2001/09/17 21:31:44 peter
* enhanced key fix (merged)
Revision 1.14 2001/08/05 12:23:57 peter