Replaced Documents tabbar (means two bugs are fixed now)

Removed Projects tabbar and added a new item to the statusbar
This commit is contained in:
Christian Hammacher
2006-04-10 18:05:08 +00:00
parent cd7f15f112
commit c9765e50c8
10 changed files with 4181 additions and 4133 deletions

View File

@ -372,13 +372,13 @@ end;
procedure UpdateCI(eLine: Integer);
begin
if eUpdating then exit;
if (eUpdating) or (not Assigned(ActiveDoc)) then exit;
eUpdating := True;
if not Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, True) then exit;
if not Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tbDocs.SelectedTab.Caption, True) then exit;
if GetCurrLang.Name = 'Pawn' then begin
UpdateCI_Pawn(eLine);
Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tsMain.Items[frmMain.tsMain.ActiveTabIndex].Caption, False);
Plugin_UpdateCodeInspector(GetCurrLang.Name, ActiveDoc.FileName, frmMain.tbDocs.SelectedTab.Caption, False);
end;
eUpdating := False;
end;