home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TGTP60.ZIP / INTROPAK.EXE / TWDIALUD.DOC < prev    next >
Encoding:
Text File  |  1991-08-16  |  1.7 KB  |  53 lines
  1. {-----------------------------------------------------------------------------}
  2. {               TEGL Windows ToolKit II                  }
  3. {          Copyright (C) 1990, 1991 TEGL Systems Corporation              }
  4. {                All Rights Reserved.                  }
  5. {-----------------------------------------------------------------------------}
  6.  
  7. {---------------------------------------------------------}
  8. { This unit implements the standard numeric types in      }
  9. { turbo pascal. See TWDIALFP for 8087 emulation types.    }
  10. {---------------------------------------------------------}
  11.  
  12. UNIT twdialud;
  13. {$I switches.inc}
  14.  
  15. INTERFACE
  16.  
  17.  
  18. USES
  19.   teglunit,
  20.   twcommon,
  21.   twkernel,
  22.   twcontrl,
  23.   twdialog;
  24.  
  25. Procedure twdAddReal(wf : WinFramePtr;
  26.                         x,y : Integer;
  27.                         Mess: String;
  28.                         VAR r: Real;
  29.                         len: Byte;
  30.                         places: Byte);
  31. Procedure twdAddInteger(wf : WinFramePtr;
  32.                         x,y : Integer;
  33.                         Mess: String;
  34.                         VAR utype: Integer;
  35.                         len: Byte);
  36. Procedure twdAddWord(wf : WinFramePtr;
  37.                         x,y : Integer;
  38.                         Mess: String;
  39.                         VAR utype: Word;
  40.                         len: Byte);
  41. Procedure twdAddLongInt(wf : WinFramePtr;
  42.                         x,y : Integer;
  43.                         Mess: String;
  44.                         VAR utype: LongInt;
  45.                         len: Byte);
  46. Procedure twdAddByte(wf : WinFramePtr;
  47.                         x,y : Integer;
  48.                         Mess: String;
  49.                         VAR utype: Byte;
  50.                         len: Byte);
  51.  
  52. IMPLEMENTATION
  53.