Changeset 40 for ExceptionLogger/UExceptionForm.pas

Timestamp:

Sep 9, 2010, 1:58:30 PM (14 years ago)

Author:

george

Message:

• Přidáno: Podpora pro možnost ignorovat opakující se výjimky.

File:

• ExceptionLogger/UExceptionForm.pas (modified) (3 diffs)

ExceptionLogger/UExceptionForm.pas

@@ -18 +18 @@
     ButtonKill: TButton;
     ButtonClose: TButton;
+    CheckBoxIgnore: TCheckBox;
     ListView1: TListView;
     MemoExceptionInfo: TMemo;
@@ -42 +43 @@
 procedure TExceptionForm.FormShow(Sender: TObject);
 begin
+  PageControl1.ActivePageIndex := 0;
+  CheckBoxIgnore.Checked := False;
 end;
 
@@ -56 +59 @@
 procedure TExceptionForm.ButtonKillClick(Sender: TObject);
 begin
-  Halt;
+  //Halt;
+  Application.Terminate;
 end;