1 578
editací
Změny
Skočit na navigaci
Skočit na vyhledávání
Vytvorená stránka „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é...“
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.
[[Category:CRT]]
[[Category:Procedura]]
;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.
[[Category:CRT]]
[[Category:Procedura]]
