Оформление окна об ошибки

← →
Andrey869 (2013-02-21 11:30) [0]

есть идеи или может кто то что то подобное делал такое как например добавить кнопку "Details>>" как в EuricLog"е что бы данные стека и информация о машине и програмулине, которая допустила ошибку, показывались в окне ошибки только после нажатия на эту кнопку, т.е. как выпадающее поле с информацией, а то сейчас когда роняешь программу выводит сразу все в кучу..

← →
O'ShinW © (2013-02-21 12:02) [1]

Саму же Эврику и припахать к этому делу

как то так встать самому в обработку
ExceptionLog.ExceptionActionNotify := uLogger.MyActionNotify;

а потом имеем на руках текст и записываем/показываем, по желанию
доступ к конкретной секции - тоже есть поди, дальше не копал
в крайнем случае, можно пропарсить сам текст

procedure MyActionNotify(EurekaExceptionRecord: TEurekaExceptionRecord; EurekaAction: TEurekaActionType; var Execute: Boolean);
begin
if EurekaAction <> atShowingExceptionInfo then
Exit;
Execute := False;
LastEurekaTxtErr := EurekaExceptionRecord.LogText;
Assert(Log <> nil);
Log.AddToLog(LastEurekaTxtErr);
if Log.SaveOnExcept then
Log.SaveNow;
if Assigned(Log.FOnExcept) then
Log.FOnExcept(nil, LastEurekaTxtErr);
if Log.CallExcept then
EurekaExceptionRecord.CurrentModuleOptions.BehaviourOptions := EurekaExceptionRecord.CurrentModuleOptions.BehaviourOptions + [boCallRTLExceptionEvent] else
EurekaExceptionRecord.CurrentModuleOptions.BehaviourOptions := EurekaExceptionRecord.CurrentModuleOptions.BehaviourOptions - [boCallRTLExceptionEvent];
end;

Оформление окна об ошибки Найти похожие ветки