Window

Create new window on screen.

Declaration

Source position: crth.inc line 82

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

Description

Window creates a window on the screen, to which output will be sent. (X1,Y1) are the coordinates of the upper left corner of the window, (X2,Y2) are the coordinates of the bottom right corner of the window. These coordinates are relative to the entire screen, with the top left corner equal to (1,1). Further coordinate operations, except for the next Window call, are relative to the window's top left corner.

Errors

None.

See also

Name Description
ClrScr Clear current window.
GotoXY Set cursor position on screen.
WhereX Return X (horizontal) cursor position
WhereY Return Y (vertical) cursor position

Example

Program Example5;
uses Crt;
{ Program to demonstrate the Window function. }
begin
  ClrScr;
  WriteLn('Creating a window from 30,10 to 50,20');
  Window(30,10,50,20);
  WriteLn('We are now writing in this small window we just created, we '+
          'can''t get outside it when writing long lines like this one');
  Write('Press any key to clear the window');
  ReadKey;
  ClrScr;
  Write('The window is cleared, press any key to restore to fullscreen');
  ReadKey;
{Full Screen is 80x25}
  Window(1,1,80,25);
  Clrscr;
  Writeln('Back in Full Screen');
end.