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

16
editor/studio/UnitMainTools.pas
View File

@ -1082,19 +1082,13 @@ begin
if ActiveDoc.Index = AIndex then
ActiveDoc := nil;
end;
Delete(AIndex);
for i := 0 to Count -1 do
for i := 0 to Count -1 do begin
TDocument(Items[i]).Title := '< ' + IntToStr(i +1) + #32 + ExtractFileName(TDocument(Items[i]).FileName) + ' >';
if (Collection = Self) then begin
try
for i := 0 to frmMain.tbDocs.Tabs.Count -1 do begin
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Caption := TDocument(Items[i]).Title;
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Modified := TDocument(Items[i]).Modified;
end;
except
// no idea how to fix this
if (Collection = Self) and (Started) then begin
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Caption := TDocument(Items[i]).Title;
TJvTabBarItem(frmMain.tbDocs.Tabs[i]).Modified := TDocument(Items[i]).Modified;
end;
end;