home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Essentials / SETUP.EXE / %MAINDIR% / EsBase0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-28  |  1.0 KB  |  49 lines
  1. {*********************************************************}
  2. {*                   ESBASE.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 EsBase0;
  23.  
  24. interface
  25.  
  26. uses
  27.   DsgnIntf;
  28.  
  29. type
  30.   {property editor for the EsControl property of the TEsAttachedLabel component}
  31.   TEsControlProperty = class(TClassProperty)
  32.   public
  33.     function GetAttributes: TPropertyAttributes;
  34.       override;
  35.   end;
  36.  
  37.  
  38. implementation
  39.  
  40.  
  41. {*** TEsControlProperty ***}
  42.  
  43. function TEsControlProperty.GetAttributes : TPropertyAttributes;
  44. begin
  45.   Result := [paReadOnly];
  46. end;
  47.  
  48. end.
  49.