anchor.diff:      F.OnClose:= AOnClose;
       F.Caption:= msgTitle + Format(' [f%d]', [ATag]);
   
  +    F.AllowDropFiles:= true;
  +    F.OnDropFiles:= @FormFloatGroups_OnDropFiles;
  +
       if UiOps.FloatGroupsInTaskbar then
         F.ShowInTaskBar:= stAlways
       else
  
positive.code:     procedure FormFloatGroups1_OnEmpty(Sender: TObject);
      procedure FormFloatGroups2_OnEmpty(Sender: TObject);
      procedure FormFloatGroups3_OnEmpty(Sender: TObject);
      procedure FormFloatSideOnClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure FormFloatGroups1_OnClose(Sender: TObject; var CloseAction: TCloseAction);
      procedure FormFloatGroups2_OnClose(Sender: TObject; var CloseAction: TCloseAction);
  
negative.code:   end;
  end;
  
  procedure TfmMain.FormFloatGroups_OnDropFiles(Sender: TObject;
    const FileNames: array of String);
  var
    SName: string;
    CurForm: TCustomForm;
    Gr: TATGroups;
    i: integer;
  begin
    if not IsAllowedToOpenFileNow then exit;
  
    //MS WordPad, Notepad++ - they get focus on drag-drop from Explorer
    Application.BringToFront;
  
    CurForm:= Sender as TForm;
    if CurForm=FFormFloatGroups1 then
    begin
      Gr:= GroupsF1;
    end
    else
    if CurForm=FFormFloatGroups2 then
    begin
      Gr:= GroupsF2;
    end
    else
    if CurForm=FFormFloatGroups3 then
    begin
      Gr:= GroupsF3;
    end
    else
    raise Exception.Create('Unknown floating group form');
  
    for i:= 0 to Length(Filenames)-1 do
    begin
      SName:= FileNames[i];
      if DirectoryExistsUTF8(SName) then
        DoFolderOpen(SName, False)
      else
      if FileExistsUTF8(SName) then
        DoFileOpen(SName, '', Gr.Pages[0]);
    end;
  end;
  
  procedure TfmMain.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  var
    bEditorActive,
  