anchor.diff:    Result := FEdit.Text;
   end;
   
  +procedure TfpgFileNameEdit.SetReadOnly(const AValue: Boolean);
  +begin
  +  if FReadOnly = AValue then
  +    Exit;
  +  FReadOnly := AValue;
  +  FEdit.ReadOnly := FReadOnly;
  +  FButton.Enabled := not FReadOnly;   // Buttons don't have ReadOnly property.
  +end;
  +
   procedure TfpgFileNameEdit.HandlePaint;
   var
     img: TfpgImage;
  
positive.code:   inherited Create(AOwner);
    FWidth          := 140;
    FHeight         := 24;
  
    FEdit := TfpgEdit.Create(self);
    with FEdit do
  
negative.code:   FWidth          := 140;
    FHeight         := 24;
    FFilter         := '';
    FReadOnly       := False;
  
    FEdit := TfpgEdit.Create(self);
    with FEdit do
  