Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed weird close bug

Browse Source
This commit is contained in:
Christian Hammacher
2006-04-29 10:20:41 +00:00
parent d2b57d29fb
commit ddda9c9118
8 changed files with 16 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
editor/studio/UnitfrmMain.pas
View File

@ -419,6 +419,8 @@ begin
pnlLoading.Top := tbDocs.Top + sciEditor.Top + ((sciEditor.Height * 5) div 6) - (pnlLoading.Height div 2);
pnlLoading.BringToFront;
if not Assigned(ActiveDoc) then exit;
if (Canvas.TextWidth(ActiveDoc.FileName) + 10 > mnuFilename.CustomWidth) then
mnuFilename.Caption := ExtractFileName(ActiveDoc.FileName)
else
@ -3067,7 +3069,7 @@ begin
if tbDocs.Tabs.IndexOf(Item) <> -1 then begin
if CloseDocument(TDocument(Collection.Items[tbDocs.Tabs.IndexOf(Item)]), True, False) then
tbDocs.Tabs.Delete(tbDocs.Tabs.IndexOf(Item));
tbDocs.Tabs.Delete(Item.Index);
end;
Screen.Cursor := crDefault;
end;