home *** CD-ROM | disk | FTP | other *** search
/ synchro.net / synchro.net.tar / synchro.net / main / COMM / CTA6_SRC.ZIP / globals.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-20  |  833 b   |  49 lines
  1. unit globals;
  2.  
  3. {
  4. CyTerm Project.
  5. globals  created by Shawn Rapp
  6.  
  7. Not too itresting stuff here.
  8. }
  9.  
  10. interface
  11.  
  12. uses classes;
  13.  
  14. const
  15.   SoftwareName = 'AutoTerminator';
  16.   SoftwareVer  = '1.0.0';
  17.   //Loging mode types
  18.   lmPlainText = 0;
  19.   lmAnsiText  = 1;
  20.  
  21. type
  22.   tProfileEntry = record
  23.     Name : string;  //simple profile name to rember what entry is
  24.     Device : byte;  //0 for telnet; 1 for serial
  25.    // For Internet Use
  26.     HostName : string;
  27.     SocketPort : byte;
  28.   end;
  29.   pArea = ^tArea;
  30.   tArea = record
  31.     x0,y0,
  32.     x1,y1 : integer;
  33.     cmdType  : word;
  34.     cmd   : string;
  35.   end;
  36.  
  37. Var
  38.   //global Scroll back buffers
  39.   LogingBuffer : TStringList;
  40.   LogingStr    : String;
  41.   LogingMode   : Byte;
  42.  
  43.   CurrentProfile : tProfileEntry;
  44.   AreaList       : tList;
  45.  
  46. implementation
  47.  
  48. end.
  49.