ClrScr

Z Delphi & Pascal (česká wiki)
Verze z 5. 10. 2012, 20:29, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání

Smaže aktivní okno a umístí kurzor do levého horního rohu.

Deklarace
procedure ClrScr;


Režim
Windows, Reálný, Chráněný


Poznámky
Všechny znakové pozice jsou nahrazeny mezerami s aktuálně definovanými textovými attributy. Takže pokud TextBackground není černá, dostane celá obrazovka barvu pozadí. To také platí pro znaky, smazané procedurami ClrEol, InsLine a DelLine, a pro prázdné řádky, vytvořené rolováním (scrolling).

ClrScr se vztahuje k aktuálnímu oknu. Následující řádky programu definují textové okno a smažou obdélník 60x20 počínaje pozicí (1, 1).


Window(1, 1, 60, 20);
ClrScr;


Vzorový příklad

{ClrScr.PAS}
{Vzorový příklad pro proceduru ClrScr.}
{ Pro Windows: }
{ uses WinCrt; }

uses Crt;
begin
  Writeln('Stiskněte Enter a něco uvidíte...');
  Readln;
  ClrScr;
end.