home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / ANSIVIEW.ZIP / ANSIVIEW.DOC < prev    next >
Encoding:
Text File  |  1991-01-24  |  6.4 KB  |  187 lines
  1.  
  2.  
  3.                               ANSIVIEW.PAS
  4.  
  5.                            By Marcos R. Della
  6.  
  7.  
  8. OVERVIEW - ANSIView is a unit that will give you the features that you came
  9.            to enjoy from the CRT unit with the earlier versions of Turbo
  10.     Pascal while still retaining the features of the new TVISION enviroment.
  11.     ANSIView provides a single object that will give you the ability to open
  12.     a "CRT" window on your desktop and interface with it exactly as you would
  13.     with a "normal" pascal program.
  14.  
  15.  
  16. USAGE -    To use this with your program, you will be setting it up exactly
  17.            as you would a normal window. That is, you need to initialize it
  18.     with certain parameters and insert it into your desktop chain and you
  19.     need to dispose of the window when you are done.  An example of the
  20.     ANSIView window can be seen in the following:
  21.  
  22.  
  23.     Uses AnsiView;
  24.  
  25.     Var  MyWindow : PANSIWindow;
  26.  
  27.     PROCEDURE MyApp.Init;
  28.     VAR   R : TRect;
  29.           L : TPoint;
  30.     BEGIN
  31.        R.Assign(0,0,50,10);
  32.        L.X := 80;                  {Our "screen" size}
  33.        L.Y := 25;
  34.        MyWindow := NEW(PANSIWindow,Init(R,L,'Demo Window',1));
  35.        IF MyWindow <> NIL THEN
  36.           DeskTop^.Insert(MyWindow);
  37.     END;
  38.  
  39.     NOTE: The L variable in this example defines the actual size of the
  40.     screen that you are trying to set up.  A normal screen size is 80x25,
  41.     however you can set the X value up to MaxViewWidth and the Y value up
  42.     to MaxViewHeight. The Minimums are defined by MinWinSize.
  43.  
  44.     The R variable defines the size of the window that will "actually" be
  45.     on the screen.  It will include scroll bars so that you can scan around
  46.     the entire L defined screen. You can also move the window around and
  47.     Grow or Shrink the displayable view.  The virtual screen will still work
  48.     to the size defined in L.
  49.  
  50.     Just like the TWindow object, you can override anything in here that
  51.     you really want to however I would not recommend it.  User this unit
  52.     as a basis of your own applications! Might just be interesting!
  53.  
  54.  
  55.  
  56. FUNCTIONS - There are quite a few functions available to the TANSIView
  57.             object.  Most of these work exactly as they would in the CRT
  58.     enviroment.  Those that are different I'll mention.
  59.  
  60.  
  61. PROCEDURE PrintLN(s : STRING);
  62.  
  63.     This procedure works like the WRITELN procedure in pascal. It will write
  64.     the string S out at the current cursor location and will screen wrap when
  65.     it hits the right "virtual" edge of the screen. It will also scroll when
  66.     it hits the bottom of the screen.  Note: The displayable scrolling
  67.     region will not follow the writeln's unless AUTOSCROLL is set ON.
  68.  
  69. PROCEDURE Print(s : STRING);
  70.  
  71.     This is the same as the WRITE procedure.  It will do exactly the same as
  72.     the PrintLN above however it will not do a Carriage Return/LineFeed at
  73.     the end of the string.
  74.  
  75. PROCEDURE PrintChar(Ch : CHAR);
  76.  
  77.     A nifty little feature. Since I couldn't make things as nice as the WRITE
  78.     routine where it figures out the type being sent to it, you get a
  79.     seperate procedure to WRITE single characters.
  80.  
  81. PROCEDURE PutChar(X, Y : WORD; Ch : CHAR; Attr : BYTE);
  82.  
  83.     For those times that you want to put a specific character to the virtual
  84.     screen at a specific position.  Note that this will put all 255 characters
  85.     on the screen as represented in the IBM Extended ASCII Character Set.
  86.     If ch is zero (Null) then no modification is made to the character at
  87.     that position.  If Attr is zero then no change is made to the textattr
  88.     at that position.
  89.  
  90. PROCEDURE SetANSI(Flag : BOOLEAN);
  91.  
  92.     Defaults to FALSE.  If you set it to TRUE, then the display routines will
  93.     process ANSI requests as if there was an ANSI driver in memory for the
  94.     virtual screen.  Note that the keyboard re-definitions are not part of
  95.     this implementation, just the video standards.
  96.  
  97. PROCEDURE CursorOn;
  98.  
  99.     This will turn on the cursor at the cursor location when this window is
  100.     sfFocused.  Note that if the cursor is outside of the relative display
  101.     box, then it will not be visible until you manuever the scroll bars
  102.     around to the current cursor location.
  103.  
  104. PROCEDURE CursorOff;
  105.  
  106.     This turns off the cursor in the virtual window.
  107.  
  108. PROCEDURE AutoScrollOn;
  109.  
  110.     Default to TRUE;
  111.     If you set AutoScroll to on, then the system will keep scrolling the
  112.     relative display box to match the cursor location.  This is handy if
  113.     you are dumping a file to the little window and want the user to keep
  114.     up with what is being output.
  115.  
  116. PROCEDURE AutoScrollOff;
  117.  
  118.     This turns off the AutoScroll feature.
  119.  
  120. PROCEDURE ClrScr;
  121.  
  122.     Same as the CRT Unit. Sets the cursor to the 0,0 location.
  123.  
  124. PROCEDURE ClrEol;
  125.  
  126.     Same as the CRT Unit.
  127.  
  128. PROCEDURE DelLine;
  129.  
  130.     Same as the CRT Unit.
  131.  
  132. PROCEDURE GotoXY(X,Y : WORD);
  133.  
  134.     Somewhat the same as the CRT Unit.  This will let you go ANYWHERE in the
  135.     virtual window that you have defined.  If you define a window of 80,1024
  136.     then you can do a GotoXY(50,1000) and the system will go to that virtual
  137.     location!
  138.  
  139. PROCEDURE HighVideo;
  140.  
  141.     Same as the CRT Unit.
  142.  
  143. PROCEDURE InsLine;
  144.  
  145.     Same as the CRT Unit.
  146.  
  147. PROCEDURE LowVideo;
  148.  
  149.     Same as the CRT Unit.
  150.  
  151. PROCEDURE TextBackground(Color : BYTE);
  152.  
  153.     Same as the CRT Unit.
  154.  
  155. PROCEDURE TextColor(Color : BYTE);
  156.  
  157.     Same as the CRT Unit.
  158.  
  159. FUNCTION WhereX : BYTE;
  160.  
  161.     Same as the CRT Unit.
  162.  
  163. FUNCTION WhereY : WORD;
  164.  
  165.     Somewhat the same as the CRT Unit.  This will return a value from 0 on
  166.     through your limit for the virtual screen.  It might come back rather
  167.     large!
  168.  
  169. ------------------------------------------------------------------------------
  170.  
  171. If you have any questions or if you have suggestions (definatly if you have
  172. suggestions!) you can get in contact with me at one of the following...
  173.  
  174.        Marcos R. Della
  175.        5084 Rincon Ave.
  176.        Santa Rosa, CA 95409
  177.  
  178.        CIS: 71675,765
  179.  
  180. Note:  I will be leaving for Saudi Arabia March '91 (Yes, I'm in the Army.
  181.        I'm a Tank Platoon Leader) so if you have any instant pressing
  182.        questions, I'd recommend getting them in before then as having my
  183.        mail forwarded overseas and back again after that might just get you
  184.        a LONG response time.  But keep on trying. I have no idea when I'll
  185.        be back from the dessert.  Might just come home early!
  186.  
  187.