diff --git a/editor/studio/AMXX_Studio.exe b/editor/studio/AMXX_Studio.exe index a003dc03..1edb7531 100755 Binary files a/editor/studio/AMXX_Studio.exe and b/editor/studio/AMXX_Studio.exe differ diff --git a/editor/studio/UnitfrmMain.pas b/editor/studio/UnitfrmMain.pas index 60dea6f8..a5b86c5e 100755 --- a/editor/studio/UnitfrmMain.pas +++ b/editor/studio/UnitfrmMain.pas @@ -3057,6 +3057,7 @@ end; procedure TfrmMain.tbDocsTabClosing(Sender: TObject; Item: TJvTabBarItem; var AllowClose: Boolean); var Collection: TDocCollection; + i: integer; begin AllowClose := False; if (Started) and (Screen.Cursor = crDefault) and (not pnlLoading.Visible) then begin @@ -3068,8 +3069,12 @@ begin end; if tbDocs.Tabs.IndexOf(Item) <> -1 then begin - if CloseDocument(TDocument(Collection.Items[tbDocs.Tabs.IndexOf(Item)]), True, False) then + if CloseDocument(TDocument(Collection.Items[tbDocs.Tabs.IndexOf(Item)]), True, False) then begin tbDocs.Tabs.Delete(Item.Index); + + for i := 0 to tbDocs.Tabs.Count -1 do + tbDocs.Tabs[i].Caption := TDocument(Collection.Items[i]).Title; + end; end; Screen.Cursor := crDefault; end;