home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kompon / d23456 / TB97.ZIP / Source / TB97Vers.pas < prev   
Pascal/Delphi Source File  |  2001-06-18  |  990b  |  39 lines
  1. unit TB97Vers;
  2.  
  3. {
  4.   Toolbar97
  5.   Copyright (C) 1998-2001 by Jordan Russell
  6.   For conditions of distribution and use, see LICENSE.TXT.
  7.  
  8.   Version constant
  9.  
  10.   $Id: TB97Vers.pas,v 1.5 2001/06/18 19:21:06 jr Exp $
  11. }
  12.  
  13. interface
  14.  
  15. {$I TB97Ver.inc}
  16.  
  17. const
  18.   Toolbar97Version = '1.78';
  19.   Toolbar97VersionPropText = 'Toolbar97 version ' + Toolbar97Version;
  20.  
  21. type
  22.   TToolbar97Version = type string;
  23.  
  24. const
  25.   Sig: PChar = '- ' + Toolbar97VersionPropText +
  26.     {$IFDEF VER90}  '/D2'+ {$ENDIF} {$IFDEF VER93}  '/CB1'+ {$ENDIF}
  27.     {$IFDEF VER100} '/D3'+ {$ENDIF} {$IFDEF VER110} '/CB3'+ {$ENDIF}
  28.     {$IFDEF VER120} '/D4'+ {$ENDIF} {$IFDEF VER125} '/CB4'+ {$ENDIF}
  29.     {$IFNDEF BCB} {$IFDEF VER130} '/D5'+ {$ENDIF} {$ELSE} {$IFDEF VER130} '/CB5'+ {$ENDIF} {$ENDIF}
  30.     {$IFNDEF BCB} {$IFDEF VER140} '/D6'+ {$ENDIF} {$ELSE} {$IFDEF VER140} '/CB6'+ {$ENDIF} {$ENDIF}
  31.     ', Copyright (C) 1998-2001 Jordan Russell -';
  32.  
  33. implementation
  34.  
  35. initialization
  36.   Sig := Sig;
  37. end.
  38.  
  39.