paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 04:18:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

EditorMacroScript: fix skipping self-test

Browse Source
This commit is contained in:
Martin 2022-06-04 23:04:44 +02:00
parent 9fd15edd81
commit 9fb19f8b7d
1 changed files with 50 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
components/macroscript/registerems.pas
View File

@ -29,67 +29,67 @@ begin
if not EMSSupported then {%H-}exit;
if GetSkipCheckByKey('MacroScript') or GetSkipCheckByKey('All') then
exit;
if not (GetSkipCheckByKey('MacroScript') or GetSkipCheckByKey('All')) then begin
conf := GetEMSConf;
try
conf.Load;
except
conf := GetEMSConf;
try
conf.Load;
except
try
conf.SelfTestFailed := EMSVersion;
conf.SelfTestActive := False;
conf.SelfTestError := 'load error';
conf.Save;
except
end;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailedLastTime, [LineEnding]),
mtError, [mbOK], 0);
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
if conf.SelfTestActive then begin
conf.SelfTestFailed := EMSVersion;
conf.SelfTestActive := False;
conf.SelfTestError := 'load error';
conf.SelfTestError := 'failed last time';
conf.Save;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailedLastTime, [LineEnding]),
mtError, [mbOK], 0);
end;
if conf.SelfTestFailed >= EMSVersion then begin
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
conf.SelfTestActive := True;
conf.Save;
ok := False;
try
ok := DoSelfTest;
except
end;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailedLastTime, [LineEnding]),
mtError, [mbOK], 0);
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
if conf.SelfTestActive then begin
conf.SelfTestFailed := EMSVersion;
if not ok then begin
conf.SelfTestFailed := EMSVersion;
conf.SelfTestActive := False;
conf.SelfTestError := SelfTestErrorMsg;
conf.Save;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailed, [LineEnding, SelfTestErrorMsg]),
mtError, [mbOK], 0);
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
conf.SelfTestActive := False;
conf.SelfTestError := 'failed last time';
conf.SelfTestError := '';
conf.SelfTestFailed := 0;
conf.Save;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailedLastTime, [LineEnding]),
mtError, [mbOK], 0);
end;
if conf.SelfTestFailed >= EMSVersion then begin
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
conf.SelfTestActive := True;
conf.Save;
ok := False;
try
ok := DoSelfTest;
except
end;
if not ok then begin
conf.SelfTestFailed := EMSVersion;
conf.SelfTestActive := False;
conf.SelfTestError := SelfTestErrorMsg;
conf.Save;
MessageDlg(EmsSelfTestErrCaption,
format(EmsSelfTestFailed, [LineEnding, SelfTestErrorMsg]),
mtError, [mbOK], 0);
MacroListViewerWarningText := EMSNotActiveVerbose;
exit;
end;
conf.SelfTestActive := False;
conf.SelfTestError := '';
conf.SelfTestFailed := 0;
conf.Save;
EditorMacroPlayerClass := TEMSEditorMacro;
end;