anchor.diff:      property FileName: TfpgString read GetFileName write SetFileName;
       property InitialDir: TfpgString read FInitialDir write FInitialDir;
       property Filter: TfpgString read FFilter write SetFilter;
  +    property ReadOnly: Boolean read FReadOnly write SetReadOnly default False;
       property TabOrder;
       property OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;
     end;
  
positive.code:   FEdit.ExtraHint := AValue;
  end;
  
  procedure TfpgDirectoryEdit.HandlePaint;
  var
    img: TfpgImage;
  
negative.code:   inherited Create(AOwner);
    FWidth          := 140;
    FHeight         := 24;
    FReadOnly       := False;
  
    FEdit := TfpgEdit.Create(self);
    with FEdit do
  