{ The Window Manager by Jim Everingham (C) Copyright 1985 January 13 Ultra-Fast Window Generation for Turbo Pascal 2.0 made Simple. All questions concerning this package should be directed towards: Jim Everingham 215 West Fairmount Ave Apt. #306 Fairmount Hills State College, Pa. 16801 (814)-238-9655 Compuserve [75116,433] If you find these routines of use, or use them in commercially produced Software, a donation of $5.00 to $15.00 is appreciated. Please read WINDMNGR.DOC wich accompanies this package. } {$I VAR.INC} {$I WINDMNGR.INC} {$I GROWWIN.INC} Const NumChar = 20; Title_char: Array[1..NumChar] of char = ('T','H','E',' ',' ','W','I','N','D','O','W',' ',' ','M','A','N' ,'A','G','E','R'); Var Ch: CHar; i,j,k: integer; Begin Add_window(1,1,80,25,1,0,4); textcolor(15); j:=47; for i:=numchar downto 1 do begin for k:=1 to j do begin gotoxy(k,2); Write(' ',Title_Char[i]); end; j:=j-1 end; gotoxy(1,3); textcolor(7); Writeln(' (C) Copyright 1985'); Writeln(' by '); Writeln(' Jim Everingham'); Writeln; Writeln(' The Window Manager is written for Turbo Pascal 2.0 IBM PC-DOS Specific.'); Writeln(' This program was developed on a COLUMBIA MPC 1600-1. '); writeln; Writeln(' The Window manager is collection of Ultra-Fast window routines which'); Writeln(' can easily be added into your own Turbo Pascal programs. If you find these'); Writeln(' routines of value, please donate $10 dollars. It''s for a good cause, my'); Writeln(' tuition bill.'); Writeln(' I have also provided the version of all demos in case you are considering'); Writeln(' purchasing the TURBO Pascal System.'); Writeln(' Jim Everingham'); Writeln(' 318 East Sheridan'); Writeln(' DuBois, Pa. 15801'); Writeln(' CIS: 75116,433'); Writeln(' Tel: 814-238-9655'); Writeln; textcolor(11); Write(' Press any key to begin Demo...'); repeat until keypressed; read(kbd,ch); Add_Window(5,5,50,18,12,7,2); gotoxy(1,2); Textcolor(black);Writeln; Writeln(' With The Window Manager, windows'); Writeln(' can be completely manipulated with'); Writeln(' as little as two commands which do'); Writeln(' all the tough work of setting up '); Writeln(' windows on your RGB or MonoChrome'); Writeln(' monitor. Window manager routines'); Writeln(' keep track of which window is active'); Writeln(' and which window to activate next.'); Writeln;Writeln;Textcolor(black+blink); Write(' Press a key ...'); repeat until keypressed; read(kbd,ch); Add_window(29,3,70,9,11,0,3); Writeln(' All in all, four different frame types'); Writeln(' can be used.'); Writeln;Write(' Press a key ... '); repeat until keypressed; read(kbd,ch); Add_window(5,12,25,21,12,0,1); textcolor(15); write(' Plain...'); repeat until keypressed; read(kbd,ch); Add_window(31,12,51,21,12,0,2); textcolor(15); write(' Double...'); repeat until keypressed; read(kbd,ch); Add_window(57,12,77,21,12,0,3); textcolor(15); write(' Combination...'); repeat until keypressed; read(kbd,ch); Add_window(5,10,77,22,12,0,4); textcolor(15); writeln; write(' Solid frames also... '); repeat until keypressed; read(kbd,ch); Remove(1); delay(250); remove(1); delay(250); remove(1); delay(250); remove(1); textcolor(10+blink); repeat until keypressed; read(kbd,ch); Add_window(20,7,60,16,1,6,2); gotoxy(1,1); Writeln(' Also with the Window Manager'); Writeln(' Routines, all aspects of the'); Writeln(' Current window can be manipulated'); Writeln(' with ease.'); Writeln;Writeln;Writeln; textcolor(black+blink); Write(' Press any key ...'); repeat until keypressed; Color_window(1,0); repeat until keypressed; read(kbd,ch); Color_window(12,0); repeat until keypressed; read(kbd,ch); Color_Window(15,5); repeat until keypressed; read(kbd,ch); Color_Window(1,6); repeat until keypressed; read(kbd,ch); Clrscr; textcolor(1); for i:=1 to 34 do begin Write(copy(' I can begin typing something and ',i,1)); sound(1000); nosound; delay(75); end; repeat until keypressed; read(kbd,ch); Add_Window(1,1,80,25,0,7,2); Writeln;Writeln(' Add a window instantaneously, and when I am done '); Writeln(' with this window, I am returned to the previous window'); Write(' and my cursor is returned to where I left off and ...'); repeat until keypressed; read(kbd,ch); remove(1); for i:=1 to 33 do begin Write(copy('I canfinish what I had started.',i,1)); sound(1000); nosound; delay(75); end; textcolor(1+blink); writeln;writeln;writeln; Write(' Press a Key ...'); repeat until keypressed; read(kbd,ch); clrscr; textcolor(32); writeln(' Text can be scrolled in either'); writeln(' direction...'); delay(3000); gotoxy(1,20); for i:=1 to 30 do begin writeln(' This text is scrolling up.'); delay(75); end; textcolor(33); delay(500); for i:=1 to 30 do begin gotoxy(1,1); insline; writeln(' This text is scrolling down.'); delay(75); end; repeat until keypressed; read(kbd,ch); remove(1); Grow_Window(14,8,67,22,12,0,2); Writeln;Writeln; TextColor(15); Writeln(' And to top it all off, I can easily & Instantly'); Writeln(' add a title to any of my windows....'); repeat until keypressed; read(kbd,ch); Window_Title(' Demo Window #6 ',11); gotoxy(17,8); Textcolor(11); Writeln('Press any key ...'); repeat until keypressed; read(kbd,ch); color_window(15,2); textcolor(0); clrscr; Window_Title(' ANOTHER DEMO WINDOW ',47); Textcolor(14); gotoxy(17,8); write('Press any key ...'); repeat until keypressed; read(kbd,ch); remove(1); repeat until keypressed; read(kbd,ch); remove(1); repeat until keypressed; read(kbd,ch); remove(1); gotoxy(25,22); textcolor(white+blink); Writeln('Press any key to end demo... '); repeat until keypressed; read(kbd,ch); remove(1); gotoxy(1,25); end.