home *** CD-ROM | disk | FTP | other *** search
- PTOOLWIN.INC Copyright 1984 R D Ostrander Version 1.0
- Ostrander Data Services
- 5437 Honey Manor Dr
- Indianapolis IN 46241
-
- These Turbo Pascal procedures are text window manipulation tools used to ease
- the manipulation of Windows in an IBM PC environment. They are used to open
- and close windows while saving the data covered by the window. Borders around
- windows are also supported.
-
- This program has been placed in the Public Domain by the author and copies
- may be freely made for non-commercial, demonstration, or evaluation purposes.
- Use of these subroutines in a program for sale or for commercial purposes in
- a place of business requires a $20 fee be paid to the author at the address
- above. Personal non-commercial users may also elect to pay the $20 fee to
- encourage further development of this and similar programs. With payment you
- will be able to receive update notices, diskettes and printed documentation
- of this and other PTOOLs from Ostrander Data Services.
-
-
- PTOOL, and PTOOLxxx are Copyright Trademarks of Ostrander Data Services
-
- Turbo Pascal is a Copyright of Borland International Inc.
-
- Procedures available in PTOOLWIN.INC are:
-
-
- PTWSet (Screen#, X1, Y1, X2, Y2, - Sets up window coordinates so that later
- BorderSwitch, references can be made by Mnemonic only.
- BackgroundColor, PTWSet must be done once for each window
- ForegroundColor) before it is Opened.
- The Screen# is a number between 1 and
- the maximum number of windows allowable
- set in the Constants Block below.
- The X and Y Coordinates are the same as
- for the Turbo Pascal Window procedure.
- A border may be placed around the window
- and the size of the window will be
- decreased to fit inside the border. The
- BorderSwitch functions are:
- 0 - No border
- 1 - Single line block graphics border
- 2 - Double line block graphics border
- -1 - Single line Reversed color border
- -2 - Double line Reversed color border
- The BackgroundColor and ForegroundColor
- parameters are the same as for the Turbo
- Pascal TextColor and TextBackground
- procedures.
-
- PTWOpen (Screen#) - Activates a window (previously set by
- PTWSet) and saves the screen covered by
- the window.
- In the Constants Block following, there
- is a parameter that sets the maximum
- number of windows that may be open at
- any one time.
-
- PTWClose - De-activates the open window, activates
- the previous window and restores the
- screen covered by the closed window.
- Note that the PTWOpen & PTWClose have a
- "Push/Pop" type of action.
-
-
-
- Constants in the PTOOLWIN.INC file that must be set by the programmer before
- compilation are:
-
-
- PTOOLWIN_Number_of_Windows = 10;
-
- This determines the number of windows that may be set with the
- PTWSet procedure. This is easily determined when the calling
- program is designed.
-
-
- PTOOLWIN_Max_Number_Open = 10;
-
- This determines the number of windows that may be open at any one
- time. The programmer will want to set this accurately to the maximum
- number needed by the calling program since 4006 bytes of memory are
- taken for each window that may be opened. This memory is taken in the
- data area at compilation time. This was done in order to allow the
- calling program the widest possible latitude in design; the stack is
- not used for this since running out of memory at execution time would
- be very inconvenient.
-
-
-
- There is a constant that must be set before the PTWOpen or PTWClose procedures
- are called:
-
-
- PTOOLWIN_Screen_Type : Char = 'C';
-
- If the final program is going to be run on an IBM PC with a Monochrome
- video card then this parameter must be set to 'M'. If the PC has
- a Color/Graphics card then it must be set to 'C'. This setting may be
- done at run time rather than at compile time since the difference that
- this parameter makes is whether to store and recall the screen data at
- $B8000 (Color Graphics) or $B0000 (Monochrome) via the absolute
- variables :
- PTOOLWIN_C_Screen : Char absolute $B800:$0000;
- PTOOLWIN_M_Screen : Char absolute $B000:$0000;
-
- This may be found in the calling program by using either the
- PTEMonoAttached or PTEColorAttached functions found in the PTOOLENV
- Environment control.
-