Collection of Education/collectionofeducationcarat1997.iso/COMPUSCI/TOT11.ZIP/TOTDEM11.ZIP/DEMWI4.PAS

Pascal/Delphi Source File | 1991-02-11 | 1KB | 70 lines

program DemoWindowFour;
{DEMWI4 - a StretchWinOBJ template}
{$I totflags.inc}
Uses DOS,CRT,
     totFAST, totINPUT, totWIN;

var
  MyWindow: StretchWinOBJ;
  K: word;
  X,Y: byte;

procedure ScreenRefreshProc;
{This procedure would refresh the screen contents}
begin
   Screen.WritePlain(1,1,'Fresh Screen');
   {...}
   MyWindow.DrawHorizBar(1,100); {the parameters should reflect}
   MyWindow.DrawVertBar(1,100);  {the data position of the window}
end;

procedure ScrollUpProc;
begin
end;

procedure ScrollDownProc;
begin
end;

procedure ScrollLeftProc;
begin
end;

procedure ScrollRightProc;
begin
end;

procedure ScrollJumpVertProc(X,Y:byte);
begin
end;

procedure ScrollJumpHorizProc(X,Y:byte);
begin
end;

begin
   Screen.Clear(white,'░'); {paint the screen}
   with MyWindow do
   begin
      Init;
      SetTitle(' Template ');
      SetBoundary(1,1,80,25);
      SetScrollable(true,true);
      Draw;
      ScreenRefreshProc;
      Repeat
         WinGetKey(K,X,Y);
         case K of
         602: ScreenRefreshProc;
         610: ScrollUpProc;
         611: ScrollDownProc;
         612: ScrollLeftProc;
         613: ScrollRightProc;
         614: ScrollJumpVertProc(X,Y);
         615: ScrollJumpHorizProc(X,Y);
         end;
      until (K=27) or (K=600);
      Done;
   end;
end.