anchor.diff:    ,fpg_utils
     ;
   
  +
  +{ TfpgFileNameEdit }
  +
   constructor TfpgFileNameEdit.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  -  FWidth              := 140;
  -  FHeight             := 24;
  -  FFilter             := '';
  +  Text            := '';
  +  FWidth          := 140;
  +  FHeight         := 24;
  +  FFilter         := '';
   
     FEdit := TfpgEdit.Create(self);
     with FEdit do
  
positive.code: end;
  
  
  end.
  
  
negative.code:     property Filter: TfpgString read FFilter write SetFilter;
      property TabOrder;
      property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
    end;
  
  
    TfpgDirectoryEdit = class(TfpgPanel)
    private
      FEdit: TfpgEdit;
      FButton: TfpgButton;
      FOnButtonClick: TNotifyEvent;
      FRootDirectory: TfpgString;
      function GetDirectory: TfpgString;
      procedure btnClick(Sender: TObject);
      function GetExtraHint: TfpgString;
      procedure SetDirectory(const AValue: TfpgString);
      procedure SetExtraHint(const AValue: TfpgString);
    protected
      procedure HandlePaint; override;
    public
      constructor Create(AOwner: TComponent); override;
      procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord);override;
    published
      property Directory: TfpgString read GetDirectory write SetDirectory;
      property ExtraHint: TfpgString read GetExtraHint write SetExtraHint;
      property RootDirectory: TfpgString read FRootDirectory write FRootDirectory;
      property TabOrder;
      property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
    end;
  
  
  