anchor.diff:  procedure TfpgFileNameEdit.SetExtraHint(const AValue: TfpgString);
   begin
     FEdit.ExtraHint := AValue;
  -end;
  -
  -procedure TfpgFileNameEdit.SetPosition(aleft, atop, awidth, aheight: TfpgCoord);
  -begin
  -  inherited SetPosition(aleft, atop, awidth, aheight);
  -  FEdit.SetPosition(0, 0, Width - Height, Height);
  -  FButton.SetPosition(Width - Height, 0, Height, Height);
   end;
   
   procedure TfpgFileNameEdit.btnClick(Sender: TObject);
  
positive.code:   end;
  end;
  
  constructor TfpgFontEdit.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
  
negative.code:     function GetFontDesc: string; override;
      procedure SetFontDesc(const AValue: string); override;
      procedure HandlePaint; override;
      procedure HandleResize(AWidth, AHeight: TfpgCoord); override;
    public
      constructor Create(AOwner: TComponent); override;
    published
      property FontDesc;
      property TabOrder;
  