Changeset 281 for ExceptionLogger/UExceptionForm.pas

Timestamp:

Oct 5, 2011, 6:14:15 PM (13 years ago)

Author:

george

Message:

• Added: Demo for ExeptionLogger.

File:

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

ExceptionLogger/UExceptionForm.pas

@@ -10 +10 @@
 
 type
-
-  { TMainForm }
 
   { TExceptionForm }
@@ -89 +87 @@
 procedure TExceptionForm.ButtonDetailsClick(Sender: TObject);
 begin
-  if PanelDescription.Height = 0 then
+  if PanelDescription.Height <= 1 then
     Height := PanelBasic.Height + PanelButtons.Height + 200
     else Height := PanelBasic.Height + PanelButtons.Height;