Fixed some bugs in the menu generator

Fixed bug in the AutoUpdate function
This commit is contained in:
Christian Hammacher
2005-11-06 14:52:50 +00:00
parent a66f13fc91
commit 78b35d80ee
8 changed files with 74 additions and 36 deletions

View File

@ -75,11 +75,16 @@ begin
for i := 0 to eCode.Count - 1 do begin
if (Application.Terminated) or (not Started) or (frmMain.pnlLoading.Visible) or (not frmMain.trvExplorer.Visible) then exit;
if Pos('get_user_button', eCode[i]) <> 0 then
eCActive := eCActive;
eString := RemoveStringsAndComments(Trim(eCode[i]), True, True);
if (Pos('/*', eString) = 1) or (Pos('*/', eString) <> 0) then begin
eCActive := (Pos('/*', eString) = 1);
continue;
if Pos('*/', eString) < Pos('/*', eString) then
continue
else
eCActive := False;
end;
if eCActive then
continue;
@ -123,8 +128,8 @@ begin
end;
end;
eString := RemoveStringsAndComments(Trim(eCode[i]), True, True);
continue;
end;
continue;
end;
{ Included }
if (IsAtStart('#include', eBackup)) then begin