Fix #1906
This commit is contained in:
parent
4bcd96e20c
commit
41d11e0def
1 changed files with 5 additions and 3 deletions
|
|
@ -185,13 +185,15 @@ proc eraseScreen* =
|
|||
var numwrote: DWORD
|
||||
var origin: TCOORD # is inititalized to 0, 0
|
||||
var hStdout = conHandle
|
||||
|
||||
if GetConsoleScreenBufferInfo(hStdout, addr(scrbuf)) == 0:
|
||||
raiseOSError(osLastError())
|
||||
if FillConsoleOutputCharacter(hStdout, ' ', scrbuf.dwSize.X*scrbuf.dwSize.Y,
|
||||
let numChars = int32(scrbuf.dwSize.X)*int32(scrbuf.dwSize.Y)
|
||||
|
||||
if FillConsoleOutputCharacter(hStdout, ' ', numChars,
|
||||
origin, addr(numwrote)) == 0:
|
||||
raiseOSError(osLastError())
|
||||
if FillConsoleOutputAttribute(hStdout, scrbuf.wAttributes,
|
||||
scrbuf.dwSize.X * scrbuf.dwSize.Y,
|
||||
if FillConsoleOutputAttribute(hStdout, scrbuf.wAttributes, numChars,
|
||||
origin, addr(numwrote)) == 0:
|
||||
raiseOSError(osLastError())
|
||||
setCursorXPos(0)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue