Changeset 264 for ExceptionLogger/UExceptionForm.pas

Timestamp:

Aug 17, 2011, 10:08:55 AM (13 years ago)

Author:

george

Message:

• Modified: Now detailed info is displayed after user click Details. User will see at first only necessary error message.
• Modified: Now methods in TStackTrace class loads call stack and exception stack only as list of frame address. Then delayed GetInfo method should be called to fully load call stack debug information. This is useful in case of external debug file where loading time could be significant.

File:

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

ExceptionLogger/UExceptionForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  CustomLineInfo, ComCtrls, UStackTrace;
+  CustomLineInfo, ComCtrls, ExtCtrls, UStackTrace, UExceptionLogger;
 
 type
@@ -16 +16 @@
 
   TExceptionForm = class(TForm)
+    ButtonDetails: TButton;
+    ButtonClose: TButton;
     ButtonKill: TButton;
-    ButtonClose: TButton;
     CheckBoxIgnore: TCheckBox;
+    Image1: TImage;
+    Label1: TLabel;
+    LabelMessage: TLabel;
     ListView1: TListView;
     MemoExceptionInfo: TMemo;
     PageControl1: TPageControl;
+    PanelBasic: TPanel;
+    PanelDescription: TPanel;
+    PanelButtons: TPanel;
     TabSheet1: TTabSheet;
     TabSheet2: TTabSheet;
     procedure ButtonCloseClick(Sender: TObject);
+    procedure ButtonDetailsClick(Sender: TObject);
     procedure ButtonKillClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-  private
+    procedure Image1Click(Sender: TObject);
   public
+    Logger: TExceptionLogger;
     procedure LoadStackTraceToListView(StackTrace: TStackTrace);
   end;
@@ -43 +52 @@
 procedure TExceptionForm.FormShow(Sender: TObject);
 begin
+  Height := PanelBasic.Height + PanelButtons.Height;
   PageControl1.ActivePageIndex := 0;
   CheckBoxIgnore.Checked := False;
+end;
+
+procedure TExceptionForm.Image1Click(Sender: TObject);
+begin
+
 end;
 
@@ -55 +70 @@
 begin
   Close;
+end;
+
+procedure TExceptionForm.ButtonDetailsClick(Sender: TObject);
+begin
+  if PanelDescription.Height = 0 then
+    Height := PanelBasic.Height + PanelButtons.Height + 200
+    else Height := PanelBasic.Height + PanelButtons.Height;
+  Application.ProcessMessages;
+  if MemoExceptionInfo.Text = '' then Logger.LoadDetails;
 end;
 
@@ -72 +96 @@
   NewItem: TListItem;
 begin
-  with ListView1, Items do begin
+  with ListView1, Items do
+  try
     BeginUpdate;
     Clear;
@@ -87 +112 @@
       end;
     end;
+  finally
     EndUpdate;
   end;