home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Essentials / SETUP.EXE / %MAINDIR% / EsData.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-28  |  1.9 KB  |  90 lines
  1. {*********************************************************}
  2. {*                   ESDATA.PAS 1.05                     *}
  3. {*      Copyright (c) 1997-98 TurboPower Software Co     *}
  4. {*                 All rights reserved.                  *}
  5. {*********************************************************}
  6.  
  7. {$I ES.INC}
  8.  
  9. {$B-} {Complete Boolean Evaluation}
  10. {$I+} {Input/Output-Checking}
  11. {$P+} {Open Parameters}
  12. {$T-} {Typed @ Operator}
  13. {$W-} {Windows Stack Frame}
  14. {$X+} {Extended Syntax}
  15.  
  16. {$IFNDEF Win32}
  17.   {$G+} {286 Instructions}
  18.   {$N+} {Numeric Coprocessor}
  19.   {$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
  20. {$ENDIF}
  21.  
  22. unit EsData;
  23.   {-type, variable, and constant declarations}
  24.  
  25. interface
  26.  
  27. uses
  28.   {$IFDEF Win32} Windows, {$ELSE} WinTypes, WinProcs,{$ENDIF}
  29.   Messages;
  30.  
  31. {$IFNDEF Win32}
  32. type
  33.   AnsiChar    = Char;
  34.   PAnsiChar   = PChar;
  35.   DWord       = LongInt;
  36.   UINT        = Word;
  37.   MMRESULT    = Word;
  38.   AnsiString  = string;
  39.   ShortString = string;
  40. {$ENDIF}
  41.  
  42. {$IFNDEF VERSION3}
  43. {$IFNDEF NeedMouseWheel}                                       {!!.05}
  44. const
  45.   WM_MOUSEWHEEL = $020A;
  46.   WHEEL_DELTA   = 120;
  47. {$ENDIF}                                                       {!!.05}
  48. {$ENDIF}
  49.  
  50. type
  51.   {$IFDEF CBuilder}
  52.   TEsHdc = Integer;
  53.   {$ELSE}
  54.   TEsHdc = hDC;
  55.   {$ENDIF}
  56.  
  57.   TRGBMap = packed record
  58.     case Byte of
  59.       0 : (RGBValue : DWord);
  60.       1 : (Red      : Byte;
  61.            Green    : Byte;
  62.            Blue     : Byte;
  63.            Unused   : Byte);
  64.   end;
  65.  
  66. const
  67.   {message constants}
  68.   ES_POSITIONLABEL       = WM_USER + 100;
  69.   ES_RECORDLABELPOSITION = WM_USER + 101;
  70.   ES_ASSIGNLABEL         = WM_USER + 102;
  71.  
  72. const
  73.   VK_0 = Ord('0');
  74.   VK_1 = Ord('1');
  75.   VK_2 = Ord('2');
  76.   VK_3 = Ord('3');
  77.   VK_4 = Ord('4');
  78.   VK_5 = Ord('5');
  79.   VK_6 = Ord('6');
  80.   VK_7 = Ord('7');
  81.   VK_8 = Ord('8');
  82.   VK_9 = Ord('9');
  83.  
  84. const
  85.   EsVersionStr = '1.05'; {version string}
  86.  
  87. implementation
  88.  
  89. end.
  90.