Window

Definuje textové okno na obrazovce.

Deklarace

procedure Window(X1, Y1, X2, Y2: Byte);

Režim

Reálný, Chráněný

Poznámky

X1 a Y1 jsou souřadnice levého horního rohu okna, X2 a Y2 udávají jeho pravý dolní roh. Levý horní roh celého displeje má pro tuto proceduru vždy souřadnice (1,1). Minimální velikost textového okna je jeden sloupec krát jedna řádka. Pokud jsou parametry z nějakého důvodu neplatné, je volání procedury Window ignorováno.

Implicitní okno je (1, 1, 80, 25) v 25-řádkovém režimu a (1, 1, 80, 43) v 43-řádkovém režimu, což odpovídá v obou případech celé obrazovce.

Všechny obrazovkové souřadnice (s vyjímkou vlastních souřadnic okna) jsou relativní vůči aktuálnímu oknu. Např. příkaz GotoXY(1, 1) přesune kurzor vždy do levého horního rohu aktuálního okna.

Relativní k aktuálnímu oknu je mnoho procedur a funkcí jednotky Crt, např. ClrEol, ClrScr, DelLine, GotoXY, InsLine, WhereX, WhereY, Read, Readln, Write, Writeln.

Definici aktuálního okna uchovávají WindMin a WindMax. Volání procedury Window vždy přemístí kurzor do pozice (1, 1).

Viz také

ClrEol

ClrScr

DelLine

GotoXY

WhereX

WhereY

Vzorový příklad

{Window.PAS}
{Vzorový příklad pro proceduru Window.}
uses Crt;
var
  X, Y: Byte;
begin
  TextBackground(Black);   { Smazání obrazovky }
  ClrScr;
  repeat
    X := Succ(Random(80));   { Kreslení náhodných oken }
    Y := Succ(Random(25));
    Window(X, Y, X + Random(10), Y + Random(8));
    TextBackground(Random(16));   { Náhodnými barvami }
    ClrScr;
  until KeyPressed;
end.