Rev 7983 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7983 | Rev 8097 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | Copyright (c) 2019, Anton Krotov |
4 | Copyright (c) 2019-2020, Anton Krotov |
| 5 | All rights reserved. |
5 | All rights reserved. |
| Line 6... | Line 6... | ||
| 6 | *) |
6 | *) |
| Line 46... | Line 46... | ||
| 46 | ScrBufInfo: WINAPI.TConsoleScreenBufferInfo; |
46 | ScrBufInfo: WINAPI.TConsoleScreenBufferInfo; |
| Line 47... | Line 47... | ||
| 47 | 47 | ||
| 48 | BEGIN |
48 | BEGIN |
| 49 | WINAPI.GetConsoleScreenBufferInfo(hConsoleOutput, ScrBufInfo); |
49 | WINAPI.GetConsoleScreenBufferInfo(hConsoleOutput, ScrBufInfo); |
| 50 | fill := ORD(ScrBufInfo.dwSize.X) * ORD(ScrBufInfo.dwSize.Y); |
50 | fill := ORD(ScrBufInfo.dwSize.X) * ORD(ScrBufInfo.dwSize.Y); |
| 51 | WINAPI.FillConsoleOutputCharacter(hConsoleOutput, 20H, fill, 0, SYSTEM.ADR(fill)); |
51 | WINAPI.FillConsoleOutputCharacterA(hConsoleOutput, 20H, fill, 0, SYSTEM.ADR(fill)); |
| 52 | WINAPI.FillConsoleOutputAttribute(hConsoleOutput, ORD(ScrBufInfo.wAttributes), fill, 0, SYSTEM.ADR(fill)); |
52 | WINAPI.FillConsoleOutputAttribute(hConsoleOutput, ORD(ScrBufInfo.wAttributes), fill, 0, SYSTEM.ADR(fill)); |
| 53 | SetCursor(0, 0) |
53 | SetCursor(0, 0) |