home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TEGL6B.ZIP / INTROPAK.EXE / TWDIALOG.DOC < prev    next >
Encoding:
Text File  |  1991-08-16  |  2.6 KB  |  95 lines
  1. {-----------------------------------------------------------------------------}
  2. {               TEGL Windows ToolKit II                  }
  3. {          Copyright (C) 1990, 1991 TEGL Systems Corporation              }
  4. {                All Rights Reserved.                  }
  5. {-----------------------------------------------------------------------------}
  6.  
  7. UNIT twDialog;
  8.  
  9. {$I Switches.inc}
  10.  
  11. INTERFACE
  12.  
  13. USES
  14.   crt,
  15.   errorlog,
  16.   FastGrph,
  17.   virtmem,
  18.   {$IFDEF NoGr}
  19.   TGraph,
  20.   {$ELSE}
  21.   Graph,
  22.   {$ENDIF}
  23.   teglintr,
  24.   TeglUnit,
  25.   TeglMain,
  26.   tegledit,
  27.  
  28.   twcommon,
  29.   twkernel;
  30.  
  31.  
  32. CONST
  33.   twdConDisplay = 0; {-- format the string for display }
  34.   twdConEntry    = 1; {-- format the string just before entering or editing}
  35.   twdConDelete    = 2; {-- clear the entry }
  36.   twdConReturn    = 3; {-- convert the string back to orginal type }
  37.  
  38. {-- This is the type definition of the conversion routine that must be}
  39. {-- coded for each user defined Dialogue entry.}
  40. {-- The node pointer is passed along for advanced error recovery }
  41.  
  42. TYPE
  43.  
  44. twdConvert = procedure (VAR s    : String;   {-- the working string }
  45.                p    : Pointer;  {-- points to var of your type }
  46.              Mode    : Integer;  {-- the conversion mode }
  47.             Width    : Byte;     {-- the field width }
  48.             Decimals: byte;     {-- places, for floats }
  49.             Node    : twDialogPtr);  {-- the Dialogue item }
  50.  
  51. Function twdRegisterUserType(ConvertProc: twdConvert; CharProc: AcceptCh): Integer;
  52. Function twdClose(ifs: ImageStkPtr; ms: MsClickPtr): Word;
  53. Procedure twdInit(VAR wf : WinFramePtr; x1_, y1_, x2_, y2_ : Word);
  54. Procedure twdAddDialogItem(wf : WinFramePtr; tdtype : integer;
  55.               x, y : Integer;
  56.               mess : string;
  57.               dp   : pointer;
  58.               len  : byte;
  59.               places: byte;
  60.               event: CallProc);
  61.  
  62. Procedure twdAddLabel(wf : WinFramePtr;
  63.               x, y : Integer;
  64.               Mess : string);
  65. Procedure twdAddButton(wf : WinFramePtr;
  66.                x, y : Integer;
  67.                Mess : string;
  68.                event: CallProc);
  69. Procedure twdAddCheckBox(wf : WinFramePtr;
  70.              x, y : Integer;
  71.              Mess : string;
  72.              VAR b: Boolean);
  73. Procedure twdAddRadioButton(wf : WinFramePtr;
  74.                 x, y : Integer;
  75.                 Mess : string;
  76.                 VAR i : Integer);
  77.  
  78. Procedure twdAddIconButton(wf : WinFramePtr;
  79.                x, y : Integer;
  80.                icon : pointer;
  81.                event: CallProc);
  82. Procedure twdAddInputLine(wf : WinFramePtr;
  83.             x,y : Integer;
  84.             Mess: String;
  85.             VAR utype: String;
  86.             len: Byte);
  87.  
  88. Procedure twdNewCluster(wf: WinFrameptr);
  89. function twdFindDialog(wf: WinFramePtr; num: Integer): twDialogPtr;
  90. Procedure twdSetDialogActivity(wf: WinFramePtr; num: Integer; Active: Boolean);
  91.  
  92. Function twdRedraw(ifs : ImageStkPtr; ms : MsClickPtr): Word;
  93.  
  94. IMPLEMENTATION
  95.