Skip to content
Permalink
Browse files

Append system error message to error dialog popping up when tabs.ini …

  • Loading branch information...
ansgarbecker committed Jul 12, 2019
1 parent 36ae8f2 commit 0a31363fe9f5f1c22443baf99f29b04aab6f178e
Showing with 10 additions and 2 deletions.
  1. +10 −2 source/main.pas
@@ -2225,7 +2225,11 @@ procedure TMainForm.StoreTabs;
except
on E:Exception do begin
TimerStoreTabs.Enabled := False;
ErrorDialog(_('Storing tab setup failed'), 'Tabs won''t be stored in this session.' + CRLF + CRLF + E.Message);
ErrorDialog(_('Storing tab setup failed'),
'Tabs won''t be stored in this session.' + CRLF + CRLF +
E.Message + CRLF + CRLF +
SysErrorMessage(Windows.GetLastError)
);
end;
end;
end;
@@ -2303,7 +2307,11 @@ function TMainForm.RestoreTabs: Boolean;
except
on E:Exception do begin
Result := False;
ErrorDialog(_('Restoring tab setup failed'), 'Tabs won''t be stored in this session.' + CRLF + CRLF + E.Message);
ErrorDialog(_('Restoring tab setup failed'),
'Tabs won''t be stored in this session.' + CRLF + CRLF +
E.Message + CRLF + CRLF +
SysErrorMessage(Windows.GetLastError)
);
end;
end;
end;

0 comments on commit 0a31363

Please sign in to comment.
You can’t perform that action at this time.