home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Pascal / Samples / VIEWS10.ARJ / TP / VIEWS / VIEWDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-05  |  2.0 KB  |  58 lines
  1. USES
  2.      Graph, Emouse, LObjects,
  3.      BGIDriv,   { all the BGI drivers }
  4.      BGIFont    { all the BGI fonts };
  5.  
  6. VAR
  7.    Myp1       : PLDIALOG;
  8.    MyWin      : PLttyWindow;
  9.    MyB1 ,MyB2 : PLButton;
  10.    MyApp      : LApp;
  11. BEGIN
  12.     if RegisterBGIdriver(@EGAVGADriverProc) < 0 then
  13.     Quit('Error linking file');
  14.     if RegisterBGIfont(@GothicFontProc) < 0 then
  15.     Quit('Error linking file');
  16.     if RegisterBGIfont(@SansSerifFontProc) < 0 then
  17.     Quit('Error linking file');
  18.     if RegisterBGIfont(@SmallFontProc) < 0 then
  19.     Quit('Error linking file');
  20.     if RegisterBGIfont(@TriplexFontProc) < 0 then
  21.     Quit('Error linking file');
  22.  
  23.  
  24.     { INITIALIZE THE GRAPHICS DEVICE AND MEMORY MANAGER }
  25.     MyApp.init;
  26.     { CREATE A DIALOG OBJECT }
  27.     New(myP1, Init(0,100,200,300,3,'This is a Dialog'));
  28.     { INSERT DIALOG IN APPLICATION }
  29.     MyApp.Insert(myP1);
  30.     { CREATE A BUTTON FOR DIALOG, ONLY DIALOGS CAN HANDLE BUTTON OBJECTS }
  31.     New(MyB1, Init(20,20,80,50,2, '#1', lightgray));
  32.     { INSERT BUTTON INTO DIALOG }
  33.     MyP1^.Insert(MyB1);
  34.     { CREATE A SECOND BUTTON }
  35.     New(MyB2, Init(20,100,80,150,4, '#2', lightgray));
  36.     { INSERT IT AGAIN }
  37.     MyP1^.Insert(MyB2);
  38.     { CREATE A TTY-TYPE WINDOW }
  39.     New(mywin, Init(200,100,300,300,3,'Type in this Window when focused'));
  40.     { INSERT IT }
  41.     MyApp.Insert(mywin);
  42.     { THIS MUST BE THE LAST TWO LINES OF CODE }
  43.     { APP.RUN LOADS THE EVENT HANDLER }
  44.     MyApp.run;
  45.     { DISPOSE OF EVERYTHING AND RESTORE VIDEO MODE }
  46.     MyApp.Done;
  47.  
  48. END.
  49.  
  50.  
  51. {===============================NOTE================================}
  52. {          USE SHIFT-TAB TO CHANGE THE FOCUS AMONG WINDOWS          }
  53. {                         USE ALT-X TO QUIT                         }
  54. {             USE TAB TO CHANGE FOCUS BETWEEN BUTTONS               }
  55. {     USE CNTRL-SPACE BAR TO DISPLAY THE MENU IN FOCUSED WINDOW     }
  56. {             ALL COMMANDS WORK ONLY ON FOCUSED WINDOW              }
  57. {===============================NOTE================================}
  58.