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