anchor.diff:      procedure SetExtraHint(const AValue: TfpgString);
     protected
       procedure HandlePaint; override;
  +    procedure HandleResize(AWidth, AHeight: TfpgCoord); 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;
  
positive.code:   end;
  end;
  
  
  { TfpgDirectoryEdit}
  
  
negative.code:     function GetFileName: TfpgString;
    protected
      procedure HandlePaint; override;
      procedure HandleResize(AWidth, AHeight: TfpgCoord); override;
    public
      constructor Create(AOwner: TComponent); override;
    published
      property ExtraHint: TfpgString read GetExtraHint write SetExtraHint;
      property FileName: TfpgString read GetFileName write SetFileName;
  