anchor.diff:      img := fpgImages.GetImage('stdimg.folder'); // don't free the img instance - we only got a reference
       if img <> nil then
         Canvas.DrawImage(Width-Height+((Height-img.Width) div 2), (Height-img.Height) div 2, img);
  +  end;
  +end;
  +
  +procedure TfpgDirectoryEdit.HandleResize(AWidth, AHeight: TfpgCoord);
  +begin
  +  inherited HandleResize(AWidth, AHeight);
  +  if csDesigning in ComponentState then
  +  begin
  +    FEdit.Visible := False;
  +    FButton.Visible := False;
  +  end
  +  else
  +  begin
  +    FEdit.SetPosition(0, 0, AWidth - AHeight, AHeight);
  +    FButton.SetPosition(AWidth - AHeight, 0, AHeight, AHeight);
     end;
   end;
   
  
positive.code:     function GetFontDesc: string; override;
      procedure SetFontDesc(const AValue: string); override;
      procedure HandlePaint; override;
    public
      constructor Create(AOwner: TComponent); override;
      procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord);override;
    published
      property FontDesc;
      property TabOrder;
  
negative.code:   end;
  end;
  
  procedure TfpgFileNameEdit.HandleResize(AWidth, AHeight: TfpgCoord);
  begin
    inherited HandleResize(AWidth, AHeight);
    if csDesigning in ComponentState then
    begin
      FEdit.Visible := False;
      FButton.Visible := False;
    end
    else
    begin
      FEdit.SetPosition(0, 0, AWidth - AHeight, AHeight);
      FButton.SetPosition(AWidth - AHeight, 0, AHeight, AHeight);
    end;
  end;
  
  
  { TfpgDirectoryEdit}
  
  