UNIT Win;
{*******************************************************}
{                                                       }
{       Turbo Pascal Version 5.5                        }
{       Window Interface Unit                           }
{                                                       }
{       Copyright (C) 1989 Borland International        }
{                                                       }
{*******************************************************}
{ Extensively modified By Tony Bigras for MCMenu
  march 1992
  WIN.OBJ as original from Borland
}
{$D-,S-}

INTERFACE

USES Crt;

TYPE

{ Window title string }

  TitleStr = string[63];

{ Window frame characters }

  FrameChars = array[1..10] of Char;

{ Window state record }

  WinState = record
    WindMin, WindMax: Word;
    WhereX, WhereY: Byte;
    TextAttr: Byte;
  end;

CONST

{ Standard frame character sets }

  SingleFrame: FrameChars = 'ÚÄ¿³³ÀÄÙô';
  DoubleFrame: FrameChars = 'ÉÍ»ººÈͼ̹';

{ Direct write routines }

procedure WriteStr(X, Y: Byte; S: String; Attr: Byte);
procedure WriteChar(X, Y, Count: Byte; Ch: Char; Attr: Byte);

{ Window handling routines }

procedure FillWin(Ch: Char; Attr: Byte);
procedure ReadWin(var Buf);
procedure WriteWin(var Buf);
function WinSize: Word;
procedure SaveWin(var W: WinState);
procedure RestoreWin(var W: WinState);
PROCEDURE tframewin(title: titlestr; var frame: framechars;
  titleattr, frameattr: BYTE);
PROCEDURE framewin(VAR frame: framechars; frameattr: BYTE);
PROCEDURE splitbox(var frame: framechars;FrameAttr: Byte;split: INTEGER);
PROCEDURE unframewin;

implementation

{$L WIN}

procedure WriteStr(X, Y: Byte; S: String; Attr: Byte);
external {WIN};

procedure WriteChar(X, Y, Count: Byte; Ch: Char; Attr: Byte);
external {WIN};

procedure FillWin(Ch: Char; Attr: Byte);
external {WIN};

procedure WriteWin(var Buf);
external {WIN};

procedure ReadWin(var Buf);
external {WIN};

function WinSize: Word;
external {WIN};

procedure SaveWin(var W: WinState);
begin
  W.WindMin := WindMin;
  W.WindMax := WindMax;
  W.WhereX := WhereX;
  W.WhereY := WhereY;
  W.TextAttr := TextAttr;
end;

procedure RestoreWin(var W: WinState);
begin
  WindMin := W.WindMin;
  WindMax := W.WindMax;
  GotoXY(W.WhereX, W.WhereY);
  TextAttr := W.TextAttr;
end;

procedure tFrameWin(Title: TitleStr; var Frame: FrameChars;
  TitleAttr, FrameAttr: Byte);
var
  W, H, Y: Word;
begin
  W := Lo(WindMax) - Lo(WindMin) + 1;
  H := Hi(WindMax) - Hi(WindMin) + 1;
  WriteChar(1, 1, 1, Frame[1], FrameAttr);
  WriteChar(2, 1, W - 2, Frame[2], FrameAttr);
  WriteChar(W, 1, 1, Frame[3], FrameAttr);
  if Length(Title) > W - 2 then Title[0] := Chr(W - 2);
  WriteStr((W - Length(Title)) shr 1 + 1, 1, Title, TitleAttr);
  for Y := 2 to H - 1 do
  begin
    WriteChar(1, Y, 1, Frame[4], FrameAttr);
    WriteChar(W, Y, 1, Frame[5], FrameAttr);
  end;
  WriteChar(1, H, 1, Frame[6], FrameAttr);
  WriteChar(2, H, W - 2, Frame[7], FrameAttr);
  WriteChar(W, H, 1, Frame[8], FrameAttr);
  Inc(WindMin, $0101);
  Dec(WindMax, $0101);
end;

procedure FrameWin(var Frame: FrameChars; FrameAttr: Byte);
var
  W, H, Y: Word;
begin
  W := Lo(WindMax) - Lo(WindMin) + 1;
  H := Hi(WindMax) - Hi(WindMin) + 1;
  WriteChar(1, 1, 1, Frame[1], FrameAttr);
  WriteChar(2, 1, W - 2, Frame[2], FrameAttr);
  WriteChar(W, 1, 1, Frame[3], FrameAttr);
  for Y := 2 to H - 1 do
  begin
    WriteChar(1, Y, 1, Frame[4], FrameAttr);
    WriteChar(W, Y, 1, Frame[5], FrameAttr);
  end;
  WriteChar(1, H, 1, Frame[6], FrameAttr);
  WriteChar(2, H, W - 2, Frame[7], FrameAttr);
  WriteChar(W, H, 1, Frame[8], FrameAttr);
  Inc(WindMin, $0101);
  Dec(WindMax, $0101);
end;

  PROCEDURE splitbox(var frame: framechars;FrameAttr: Byte;split: INTEGER);
  var
    W, H, Y: Word;
  begin   { splitbox }
    W := Lo(WindMax) - Lo(WindMin) + 1;
    H := Hi(WindMax) - Hi(WindMin) + 1;
    WriteChar(1, 1, 1, Frame[1], FrameAttr);
    WriteChar(2, 1, W - 2, Frame[2], FrameAttr);
    WriteChar(W, 1, 1, Frame[3], FrameAttr);
    for Y := 2 to H - 1 do
    begin
      WriteChar(1, Y, 1, Frame[4], FrameAttr);
      WriteChar(W, Y, 1, Frame[5], FrameAttr);
    end;
    WriteChar(1, H, 1, Frame[6], FrameAttr);
    WriteChar(2, H, W - 2, Frame[7], FrameAttr);
    WriteChar(W, H, 1, Frame[8], FrameAttr);
    WriteChar(1, split, 1, Frame[9], FrameAttr);
    WriteChar(2, split, W - 2, Frame[7], FrameAttr);
    WriteChar(W, split, 1, Frame[10], FrameAttr);
    Inc(WindMin, $0101);
    Dec(WindMax, $0101);
  END; { splitbox }


procedure UnFrameWin;
begin
  Dec(WindMin, $0101);
  Inc(WindMax, $0101);
end;

end.