anchor.diff:    FWidth          := 140;
     FHeight         := 24;
     FFilter         := '';
  +  FReadOnly       := False;
   
     FEdit := TfpgEdit.Create(self);
     with FEdit do
  
positive.code:     FFilter: TfpgString;
      FOnButtonClick: TNotifyEvent;
      FInitialDir: TfpgString;
      function GetExtraHint: TfpgString;
      procedure SetExtraHint(const AValue: TfpgString);
      procedure SetFilter(const AValue: TfpgString);
      procedure btnClick(Sender: TObject);
      procedure SetFileName(const AValue: TfpgString);
      function GetFileName: TfpgString;
    protected
      procedure HandlePaint; override;
      procedure HandleResize(AWidth, AHeight: TfpgCoord); override;
  
negative.code:     property Directory: TfpgString read GetDirectory write SetDirectory;
      property ExtraHint: TfpgString read GetExtraHint write SetExtraHint;
      property RootDirectory: TfpgString read FRootDirectory write FRootDirectory;
      property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
      property TabOrder;
      property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
    end;
  