anchor.diff:      constructor Create(AOwner: TComponent); override;
       procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override;
     published
  +    property ExtraHint: TfpgString read GetExtraHint write SetExtraHint;
       property FileName: TfpgString read GetFileName write SetFileName;
       property InitialDir: TfpgString read FInitialDir write FInitialDir;
       property Filter: TfpgString read FFilter write SetFilter;
  
positive.code: procedure TfpgFileNameEdit.SetFilter(const AValue: TfpgString);
  begin
    FFilter := AValue;
  end;
  
  procedure TfpgFileNameEdit.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
  
negative.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);
  