Append "common error message" to dialog.

[beno]

Hi,
I want to append 'common error message' to the error dialog. (not 'detailed' one).
Could you add this feature ?

before:
Error
-----------------------------------
Some terrible exception occured.

after:
Error
-----------------------------------
-> Application exception occured.
-> Please save all opened files immediately, and restart app now.
"Some terible exception occured."
-> Sorry.
-----------------------------------

with customized text like:
common_message='Application exception occured.'+#13+#10+'Please...'+#13+#10+'"%s"'+#13+#10+'Sorry'...


--beno

[admin]

Hi,

beno wrote:
> Hi,
> I want to append 'common error message' to the error dialog. (not 'detailed' one).
> Could you add this feature ?
>
> before:
> Error
> -----------------------------------
> Some terrible exception occured.
>
> after:
> Error
> -----------------------------------
> -> Application exception occured.
> -> Please save all opened files immediately, and restart app now.
> "Some terible exception occured."
> -> Sorry.
> -----------------------------------
>
> with customized text like:
> common_message='Application exception occured.'+#13+#10+'Please...'+#13+#10+'"%s"'+#13+#10+'Sorry'...
>
>
> --beno

You can obtain this simply changing the Exception message.
See the following code:

//---------------------------------------------------------------------

uses
ExceptionLog;

procedure TForm1.EurekaLog1ExceptionNotify(
EurekaExceptionRecord: TEurekaExceptionRecord; var Handled: Boolean);
begin
Exception(EurekaExceptionRecord.ExceptionObject).M essage := 'Text';
end;

//---------------------------------------------------------------------

--
Best regards...

Fabio Dell'Aria.
----------------
http://www.eurekalog.com
Catch every BUG, every time!