Problem with 5.05

[Guido Klapperich]

I have a simple test project with one form and a TEurekaLog-Component on
it and the following code:

procedure TForm1.FormCreate(Sender: TObject);
var DebugMode: Boolean;
begin
DebugMode:=false;
if not DebugMode then
CurrentEurekaLogOptions.ExceptionDialogOptions:=
CurrentEurekaLogOptions.ExceptionDialogOptions-[edoShowExceptionDialog];

Application.OnException:=AppException;
end;

procedure TForm1.EurekaLog1ExceptionNotify(
EurekaExceptionRecord: TEurekaExceptionRecord; var Handled: Boolean);
begin
if not (edoShowExceptionDialog in
CurrentEurekaLogOptions.ExceptionDialogOptions) then
AppException(Self,Exception(EurekaExceptionRecord. ExceptionObject));
// Handled:=true bedeutet, dass die Exception von EurekaLog behandelt
wird
Handled:=true;
end;

procedure TForm1.AppException(Sender: TObject; E: Exception);
begin
Application.ShowException(E);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
raise Exception.Create('test');
end;

Until Eurekalog 5.04 Application.ShowException(E) in the method
AppException has been called. Since 5.05 ShowException isn't called any
more, which means I don't see any error message.

Regards

Guido

[admin]

Him

Guido Klapperich wrote:
> I have a simple test project with one form and a TEurekaLog-Component on
> it and the following code:
>
> [...]
>
> Until Eurekalog 5.04 Application.ShowException(E) in the method
> AppException has been called. Since 5.05 ShowException isn't called any
> more, which means I don't see any error message.
>
> Regards
>
> Guido

Thank you for the good feedback!
I have just fixed this little bug in the last 5.0.6 RC 3 available on:
http://www.eurekalog.com/login.php

--
Best regards...

Fabio Dell'Aria.
----------------
http://www.eurekalog.com
Catch every BUG showing line n.