{$I OVC.INC}

{$B-} {Complete Boolean Evaluation}
{$I+} {Input/Output-Checking}
{$P+} {Open Parameters}
{$T-} {Typed @ Operator}
{$W-} {Windows Stack Frame}
{$X+} {Extended Syntax}

{$IFNDEF Win32}
{$G+} {286 Instructions}
{$N+} {Numeric Coprocessor}
{$C MOVEABLE,DEMANDLOAD,DISCARDABLE}
{$ENDIF}

{*********************************************************}
{*                  OVCEFPE.PAS 2.00                     *}
{*     Copyright (c) TurboPower Software Co 1995-96      *}
{*                 All rights reserved.                  *}
{*********************************************************}

unit OvcEfPe;

interface

uses
  {$IFDEF Win32} Windows, {$ELSE} WinTypes, WinProcs, {$ENDIF}
  Classes, Graphics, Forms, Controls, Buttons, DsgnIntf,
  StdCtrls, ExtCtrls,
  OvcBase, OvcData, OvcEF, OvcHelp, OvcNF, OvcPB, OvcPF,
  OvcSF, OvcStr;

type
  TOvcfrmEfRange = class(TForm)
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    btnHelp: TBitBtn;
    lblRange: TLabel;
    lblLower: TLabel;
    lblUpper: TLabel;
    pfRange: TOvcPictureField;
    DefaultController: TOvcController;
    sfRange: TOvcSimpleField;
    procedure btnHelpClick(Sender: TObject);
  protected
    { Private declarations }
    TR : TOvcSimpleField;
  public
    { Public declarations }
  end;

type
  {local class to allow access to protected data}
  TLocalEF = class(TOvcBaseEntryField);

type
  {property editor for ranges}
  TEfRangeProperty = class(TStringProperty)
  public
    function GetAttributes : TPropertyAttributes;
      override;
    function GetValue : AnsiString;
      override;
    procedure Edit;
      override;
  end;

implementation
