anchor.diff:    if grid.CurrentEntry.EntryType <> etDir then
       edFileName.Text := grid.CurrentEntry.Name;
   
  -  if FOpenMode then
  -    btnOK.Enabled := grid.CurrentEntry.EntryType = etFile
  -  else
  -    btnOK.Enabled := edFileName.Text <> '';
  +  UpdateButtonState;
   
     lbFileInfo.Text := s;
   end;
  
positive.code:   inherited Create(AOwner);
    WindowTitle := 'File Selection';
    Width := 640;
    Height := 410; // 460;
    WindowPosition := wpScreenCenter;
    FSpacing := 10;
  
  
negative.code:     Anchors := [anLeft, anRight, anBottom];
      Text := '';
      FontDesc := '#Edit1';
      OnChange := @edFilenameChanged;
    end;
    
    { Filter section }
  