Added: Pause and Copy buttons to Observer.MonitorForm

Added: Verbose/Info/Warning/Error buttons to test application
2024-12-23 09:43:08 +01:00 · 2014-05-20 19:17:23 +00:00 · 2014-05-20 19:17:23 +00:00 · 7d3a23295c
commit 7d3a23295c
parent b96c2a9d72
7 changed files with 426 additions and 122 deletions
--- a/Resources/Copy.bmp
+++ b/Resources/Copy.bmp
--- a/Resources/Pause.bmp
+++ b/Resources/Pause.bmp
--- a/Test/source/MainFrm.dfm
+++ b/Test/source/MainFrm.dfm
@ -19,29 +19,28 @@ object MainForm: TMainForm
  object pcObservers: TPageControl
    AlignWithMargins = True
    Left = 8
-    Top = 113
+    Top = 169
    Width = 595
-    Height = 361
+    Height = 305
    Margins.Left = 8
    Margins.Top = 8
    Margins.Right = 8
    Margins.Bottom = 8
-    ActivePage = tsNamedPipe
+    ActivePage = tsEvent
    Align = alClient
    TabOrder = 0
    OnChange = pcObserversChange
+    ExplicitTop = 113
+    ExplicitHeight = 361
    object tsEvent: TTabSheet
      Caption = 'Event Observer '
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
+      ExplicitHeight = 333
      object mmoEvent: TMemo
        AlignWithMargins = True
        Left = 8
        Top = 8
        Width = 571
-        Height = 317
+        Height = 261
        Margins.Left = 8
        Margins.Top = 8
        Margins.Right = 8
@ -50,19 +49,18 @@ object MainForm: TMainForm
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
+        ExplicitHeight = 317
      end
    end
    object tsFile: TTabSheet
      Caption = 'File Observer'
      ImageIndex = 1
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
+      ExplicitHeight = 333
    end
    object tsNamedPipe: TTabSheet
      Caption = 'Named Pipe Observer'
      ImageIndex = 2
+      ExplicitHeight = 333
    end
  end
  object pnlButtons: TPanel
@ -87,6 +85,7 @@ object MainForm: TMainForm
      Cancel = True
      Caption = 'Close'
      TabOrder = 1
+      OnClick = btnCloseClick
    end
    object btnMonitorForm: TButton
      Left = 0
@ -105,7 +104,7 @@ object MainForm: TMainForm
    Left = 8
    Top = 8
    Width = 595
-    Height = 97
+    Height = 153
    Margins.Left = 8
    Margins.Top = 8
    Margins.Right = 8
@ -115,7 +114,7 @@ object MainForm: TMainForm
    TabOrder = 2
    DesignSize = (
      595
-      97)
+      153)
    object lblMessage: TLabel
      Left = 16
      Top = 32
@ -125,7 +124,7 @@ object MainForm: TMainForm
    end
    object lblException: TLabel
      Left = 16
-      Top = 59
+      Top = 99
      Width = 51
      Height = 13
      Caption = 'Exception:'
@ -140,19 +139,19 @@ object MainForm: TMainForm
      Text = 'Hello world!'
      OnKeyDown = edtMessageKeyDown
    end
-    object btnSend: TButton
-      Left = 500
-      Top = 29
+    object btnVerbose: TButton
+      Left = 92
+      Top = 56
      Width = 75
      Height = 21
      Anchors = [akLeft, akTop, akRight]
-      Caption = '&Send'
+      Caption = 'Verbose'
      TabOrder = 1
-      OnClick = btnSendClick
+      OnClick = btnLogClick
    end
    object edtException: TEdit
      Left = 92
-      Top = 56
+      Top = 96
      Width = 402
      Height = 21
      Anchors = [akLeft, akTop, akRight]
@ -161,8 +160,8 @@ object MainForm: TMainForm
      OnKeyDown = edtExceptionKeyDown
    end
    object btnException: TButton
-      Left = 500
-      Top = 56
+      Left = 92
+      Top = 123
      Width = 75
      Height = 21
      Anchors = [akLeft, akTop, akRight]
@ -170,5 +169,35 @@ object MainForm: TMainForm
      TabOrder = 3
      OnClick = btnExceptionClick
    end
+    object btnInfo: TButton
+      Left = 173
+      Top = 56
+      Width = 75
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'Info'
+      TabOrder = 4
+      OnClick = btnLogClick
+    end
+    object btnWarning: TButton
+      Left = 254
+      Top = 56
+      Width = 75
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'Warning'
+      TabOrder = 5
+      OnClick = btnLogClick
+    end
+    object btnError: TButton
+      Left = 335
+      Top = 56
+      Width = 75
+      Height = 21
+      Anchors = [akLeft, akTop, akRight]
+      Caption = 'Error'
+      TabOrder = 6
+      OnClick = btnLogClick
+    end
  end
 end
--- a/Test/source/MainFrm.pas
+++ b/Test/source/MainFrm.pas
@ -15,7 +15,7 @@ uses
 type
  TMainForm = class(TForm)
    btnClose: TButton;
-    btnSend: TButton;
+    btnVerbose: TButton;
    edtMessage: TEdit;
    GroupBox1: TGroupBox;
    lblMessage: TLabel;
@ -29,11 +29,15 @@ type
    btnException: TButton;
    tsNamedPipe: TTabSheet;
    btnMonitorForm: TButton;
+    btnInfo: TButton;
+    btnWarning: TButton;
+    btnError: TButton;
    
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure pcObserversChange(Sender: TObject);
-    procedure btnSendClick(Sender: TObject);
+    procedure btnCloseClick(Sender: TObject);
+    procedure btnLogClick(Sender: TObject);
    procedure edtExceptionKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure edtMessageKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure btnExceptionClick(Sender: TObject);
@ -78,7 +82,9 @@ begin
  SetLogResourceString(@LogMonitorFormColumnMessage, 'Melding');

  SetLogResourceString(@LogMonitorFormButtonClear, 'Wissen');
+  SetLogResourceString(@LogMonitorFormButtonCopyDetails, 'Kopieren');
  SetLogResourceString(@LogMonitorFormButtonSaveDetails, 'Opslaan');
+  SetLogResourceString(@LogMonitorFormStatusPaused, 'Gepauseerd: %d melding(en) overgeslagen');

  FLog := TX2Log.Create;
  FLog.SetExceptionStrategy(TX2LogmadExceptExceptionStrategy.Create);
@ -156,9 +162,22 @@ begin
 end;


-procedure TMainForm.btnSendClick(Sender: TObject);
+procedure TMainForm.btnCloseClick(Sender: TObject);
 begin
-  FLog.Info(edtMessage.Text);
+  Close;
+end;
+
+
+procedure TMainForm.btnLogClick(Sender: TObject);
+begin
+  if Sender = btnVerbose then
+    FLog.Verbose(edtMessage.Text)
+  else if Sender = btnInfo then
+    FLog.Info(edtMessage.Text)
+  else if Sender = btnWarning then
+    FLog.Warning(edtMessage.Text)
+  else if Sender = btnError then
+    FLog.Error(edtMessage.Text);
 end;


--- a/X2Log.Constants.pas
+++ b/X2Log.Constants.pas
@ -40,8 +40,12 @@ resourcestring

  { Caption of the toolbar buttons }
  LogMonitorFormButtonClear = 'Clear';
+  LogMonitorFormButtonCopyDetails = 'Copy';
  LogMonitorFormButtonSaveDetails = 'Save';

+  { Status messages }
+  LogMonitorFormStatusPaused = 'Paused: %d log message(s) skipped';
+


  function GetLogLevelText(ALogLevel: TX2LogLevel): string;
--- a/X2Log.Observer.MonitorForm.dfm
+++ b/X2Log.Observer.MonitorForm.dfm
@ -12,6 +12,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
+  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
@ -20,7 +21,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
    Left = 634
    Top = 0
    Width = 6
-    Height = 500
+    Height = 496
    Align = alRight
    ResizeStyle = rsUpdate
    ExplicitLeft = 637
@ -30,43 +31,45 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
    Left = 640
    Top = 0
    Width = 350
-    Height = 500
+    Height = 496
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
-    ExplicitHeight = 519
+    ExplicitHeight = 500
    object tbDetails: TToolBar
      Left = 0
      Top = 0
      Width = 350
      Height = 22
      AutoSize = True
-      ButtonWidth = 51
+      ButtonWidth = 52
      Images = ilsLog
      List = True
      ShowCaptions = True
      TabOrder = 0
-      object tbSaveDetails: TToolButton
+      object tbCopyDetails: TToolButton
        Left = 0
        Top = 0
-        Caption = 'Save'
-        Enabled = False
-        ImageIndex = 5
+        Action = actCopyDetails
+        AutoSize = True
+      end
+      object tbSaveDetails: TToolButton
+        Left = 56
+        Top = 0
+        Action = actSaveDetails
+        AutoSize = True
      end
    end
    object pnlBorder: TPanel
      Left = 0
      Top = 22
      Width = 350
-      Height = 478
+      Height = 474
      Align = alClient
      BevelKind = bkFlat
      BevelOuter = bvNone
      TabOrder = 1
-      ExplicitLeft = 80
-      ExplicitTop = 240
-      ExplicitWidth = 185
-      ExplicitHeight = 41
+      ExplicitHeight = 478
      object HeaderControl1: THeaderControl
        Left = 0
        Top = 0
@ -80,13 +83,12 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
            Width = 346
          end>
        NoSizing = True
-        ExplicitTop = 29
      end
      object reDetails: TRichEdit
        Left = 0
        Top = 17
        Width = 346
-        Height = 457
+        Height = 453
        Align = alClient
        BorderStyle = bsNone
        Font.Charset = ANSI_CHARSET
@ -99,8 +101,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
        ReadOnly = True
        ScrollBars = ssBoth
        TabOrder = 1
-        ExplicitTop = 29
-        ExplicitHeight = 486
+        ExplicitHeight = 457
      end
    end
  end
@ -108,19 +109,16 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
    Left = 0
    Top = 0
    Width = 634
-    Height = 500
+    Height = 496
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
-    ExplicitLeft = 408
-    ExplicitTop = 256
-    ExplicitWidth = 185
-    ExplicitHeight = 41
+    ExplicitHeight = 500
    object vstLog: TVirtualStringTree
      Left = 0
      Top = 22
      Width = 634
-      Height = 478
+      Height = 474
      Align = alClient
      Header.AutoSizeIndex = 2
      Header.Font.Charset = DEFAULT_CHARSET
@ -129,6 +127,7 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
      Header.Font.Name = 'Tahoma'
      Header.Font.Style = []
      Header.Options = [hoAutoResize, hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoHeaderClickAutoSort]
+      HintMode = hmHint
      Images = ilsLog
      TabOrder = 0
      TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware]
@ -137,10 +136,9 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
      OnFreeNode = vstLogFreeNode
      OnGetText = vstLogGetText
      OnGetImageIndex = vstLogGetImageIndex
+      OnGetHint = vstLogGetHint
      OnInitNode = vstLogInitNode
-      ExplicitTop = 0
-      ExplicitWidth = 637
-      ExplicitHeight = 519
+      ExplicitHeight = 478
      Columns = <
        item
          Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coShowDropMark, coVisible, coAllowFocus]
@ -164,40 +162,173 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
      Width = 634
      Height = 22
      AutoSize = True
-      ButtonWidth = 52
+      ButtonWidth = 56
      Caption = 'tbLog'
      Images = ilsLog
      List = True
      ShowCaptions = True
      TabOrder = 1
-      ExplicitWidth = 637
      object tbClear: TToolButton
        Left = 0
        Top = 0
+        Action = actClear
        AutoSize = True
-        Caption = 'Clear'
-        Enabled = False
-        ImageIndex = 6
-        OnClick = tbClearClick
+      end
+      object tbPause: TToolButton
+        Left = 56
+        Top = 0
+        Action = actPause
+        Style = tbsCheck
      end
    end
  end
  object sbStatus: TStatusBar
+    AlignWithMargins = True
    Left = 0
    Top = 500
    Width = 990
    Height = 19
+    Margins.Left = 0
+    Margins.Top = 4
+    Margins.Right = 0
+    Margins.Bottom = 0
    Panels = <>
-    ExplicitLeft = 504
-    ExplicitTop = 272
-    ExplicitWidth = 0
+    SimplePanel = True
  end
  object ilsLog: TImageList
    Left = 584
    Top = 48
    Bitmap = {
-      494C010107004000540010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
-      0000000000003600000028000000400000002000000001002000000000000020
+      494C0101090040007C0010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000003000000001002000000000000030
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000B5845800D074
+      1100CD6E0900D1720900C98546000000000000000000C6824500CF720D00CD6E
+      0900D1720900B886590000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000CD711100FFAD
+      1400FF9F0100FFA30000E27A00000000000000000000E07E0C00FFAA0F00FF9F
+      0100FFA30000D172090000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C9660600FF9F
+      0100FD960000FF9F0100DD7700000000000000000000D6710100FD960000FD96
+      0000FF9F0100CF6D060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000C35F0600F48E
+      0000F48E0000FD960000DD7700000000000000000000D06A0000F6900000F48E
+      0000FF9F0100C966060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BE5C0600EE88
+      0000EC860000F48E0000D06A00000000000000000000C9660600EC860000EC86
+      0000F48E0000C966060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000BE5C0600E27A
+      0000E27A0000EE880000CF6D06000000000000000000C35F0600E27A0000EC86
+      0000EC860000C35F060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000B14F0600DE78
+      0000DE780000E27A0000C96606000000000000000000C35F0600DD770000DD77
+      0000E27A0000BE5C060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000B14F0600D06A
+      0000DD770000DD770000C35F06000000000000000000BA540100D06A0000DD77
+      0000DD770000BA54010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000AD4C0C00D172
+      0900C9660600D06A0000BA5401000000000000000000B6540A00D06F0C00C966
+      0600D06A0000BA54010000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000AD4C0C00D382
+      3700CD721D00D0741100BE5C06000000000000000000B3561500D07F3300CD72
+      1D00D0741100B14F060000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000A5491300D795
+      5E00D0854400D68B4300B75A16000000000000000000B1592000D7955E00D382
+      3700D68B4300AD4C0C0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000A4491900DDAD
+      8700D59A6B00D9A06D00B15920000000000000000000B15D2A00DDAD8700D59A
+      6B00D9A06D00A94D150000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000A7522700EED8
+      C600E6C4A800ECCCAF00B96939000000000000000000B7673A00EED6C100E6C4
+      A800ECCCAF00AB57280000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000A16C5600A449
+      19009F441200A4491900AA6544000000000000000000AA654400A44919009F44
+      1200A4491900A26E580000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@ -212,113 +343,113 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
      1100895E4600A7ABAB00B9B2AB00C8C7C300C9C9CC00AFAFAF0099A2A8008238
      0D00A7471100A34B2100A47763000000000000000000000000002427AE00161C
      AC005A5AA90000000000000000000000000000000000000000005353A9004F4F
-      A200000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      A20000000000000000000000000000000000000000009B7C6B009B7C6B009B7C
+      6B009B7C6B009B7C6B009B7C6B009B7C6B009B7C6B009B7C6B009B7C6B000000
      00000000000000000000000000000000000000000000000000009B776600FFFF
      FF00FAF4E900FAF4E900FAF4E900FAF4E900FAF4E900FAF4E900FAF4E900F9EF
      E000F9EFE00097796700000000000000000000000000BC764500BE631700CD79
      27009E877000B9875900CE700D00DCAF7A00FEFFFF00FEFFFF00D9E2EA00AD70
      2400DD943500ECBE7500A4450E0000000000000000004E4EAB001844F600194D
      F8001031D2002427AE000000000000000000000000004E4EAB000928D7000928
-      D7000313B3004E4EAB0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      D7000313B3004E4EAB000000000000000000000000009B776600FFFFFF00FBF5
+      EC00FBF5EC00FBF5EC00FBF5EC00FAF3E600FBF5EC00F8EDDA00977967000000
      0000000000000000000000000000000000000000000000000000A27F6F00FFFF
      FF00DDC1B400DDC1B400DDC1B400DDC1B400DDBEAD00DDBEAD00DCBAA500DCBA
      A500F9EFE00097796700000000000000000000000000C9680D00C0702800C36C
      1E00A7876B00AE7C5A00BA580900C69A6C00D9DFE500FEFFFF00F4F9FC00A363
      1D00D5872D00E5AF6900A4450E0000000000000000002022B1002451F9001F52
      FF00194DF8001744E8001017AF00000000004747AC000928D7001344F9001041
-      F6000E3EF600041ABC006F6FAA00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000A3807000FFFF
+      F6000E3EF600041ABC006F6FAA000000000000000000A3807000FFFFFF00DBC3
+      BB00DBC1B700DBBFB200DBBDAF00DBBDAF00DAB8A500FAF3E60097796700B081
+      8F00975668009653640097566800000000000000000000000000A3807000FFFF
      FF00DBC4BD00DBC4BD00DDC1B400DDC1B400DDBEAD00DDBEAD00DCBAA500DCBA
      A500FAF4E9009B7C6C00000000000000000000000000C9680D00BB682300BF66
      1900B4906E00B37C6000AF490000B5875E00BFC6CD00D5DEE400FEFFFF00A363
      1D00D5872D00E5AF6900A4450E000000000000000000000000001832DB00295A
      FF002451F9002451F9001A4AF200060EAF000F30DD00164AFE001344F9001041
-      F6000E3EF6000E3EF6002C2CA200000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000A9877800FFFF
+      F6000E3EF6000E3EF6002C2CA2000000000000000000A9877800FFFFFF00DBC7
+      C200DBC3BB00DBC1B700DBBFB200DBBDAF00DAB8A500FBF5EC009B7C6B00E3CF
+      D000E3CFD000E2C2C20096536400000000000000000000000000A9877800FFFF
      FF00DBC6C200DBC4BD00DBC4BD00DDC1B400DBBFB400DCBAA500DDBEAD00DDBE
      AD00FAF4E90097796700000000000000000000000000C9680D00BF661900BF66
      1900B07D5800C1BFBD00B0ACA80098918B009A8E8400A3978A00AEA79F009058
      1F00A7672300DA954200A4450E0000000000000000007777B3001832DB003A6F
      FF00295AFF00295AFF00295AFF002451F900194DF800194DF8001344F9001344
-      F9000E3EF600161CAC0000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000AB897A00FFFF
+      F9000E3EF600161CAC00000000000000000000000000AB897A00FFFFFF00DBC7
+      C200DBC3BB00DBC3BB00DBBFB200DBBDAF00DAB8A500FBF5EC009B7C6B00D4AE
+      B900CB90A100E3CFD00096536400000000000000000000000000AB897A00FFFF
      FF00DBC6C200DBC6C200DBC4BD00DBC4BD00DBBFB400DCBAA500DDBEAD00DCBA
      A500FAF4E9009B7C6C00000000000000000000000000C9670A00B55D1B00B55D
      1B00BA580900BA580900BA580900C2620E00C5671000C8691300C8691300CD79
      2700D07F2A00D3893200A4450E000000000000000000000000006B6BB6001A25
      C5003A6FFF003668FF00295AFF00295AFF002451F900194DF8001F52FF00123D
-      ED002427AE000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000AB897A00FFFF
+      ED002427AE0000000000000000000000000000000000AB897A00FFFFFF00DBC7
+      C200DBC3BB00DBC3BB00DBBFB200DBBDAF00DBBFB200FBF5EC009B7C6B00D4AE
+      B900CB90A100E4D0D00096536400000000000000000000000000AB897A00FFFF
      FF00DBC6C200DBC4BD00DBC4BD00DBC4BD00DDC1B400DBBFB400DCBAA500DDBE
      AD00FAF4E9009B7C6C00000000000000000000000000C9680D00B0551400B169
      3300AF714200AF714200AF714200B0764200B0764200B0764200B0764200B076
      4200BD804100D5872D00A4450E00000000000000000000000000000000000000
      00002F2FB3002E4EE7003668FF00295AFF00295AFF002451F900123DED002C2C
-      A200000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B1908000FFFF
+      A2000000000000000000000000000000000000000000AF8F8000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FDFAF600FDFAF600FDFAF600FBF5EC009B7C6B00D5B1
+      BC00CB90A100E4D0D00098576B00000000000000000000000000B1908000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF9F500FCF9F500FCF9F500FAF4
      E900FAF4E9009B7C6C00000000000000000000000000C2620E00AF490000B39D
      8900E6F2FB00E4EDF300E4EDF300E4EDF300E1E9EF00D9E2EA00DFE3E600D9E2
      EA00AD9A8A00D07F2600A4450E00000000000000000000000000000000000000
      000000000000253FDF003A6FFF003668FF00295AFF00295AFF001B46EA002427
-      AE00000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000AF8F8000FFFF
+      AE000000000000000000000000000000000000000000AF8F8000FFFFFF00DFCE
+      CC00DBC7C200DBC7C200DBC3BB00DBC1B700DBBDAF00F0E8E0009F807000D5B1
+      BC00CB90A100E4DBDB0096536400000000000000000000000000AF8F8000FFFF
      FF00DFCDCB00DFCDCB00DBC6C200DBC4BD00DBC4BD00DDC1B400DDBEAD00DDBE
      AD00FCF9F5009B7C6C00000000000000000000000000C9670A00A8430300B899
      8400FEFFFF00D4D3D200BEBDBC00C1BFBD00C1BFBD00C2C1C000C9C9CC00DFE3
      E600B19B8500CD792700A4450E00000000000000000000000000000000000000
      00002B2CC0004B7CFF004170FF003A6FFF003A6FFF00295AFF00295AFF001031
-      D2004A4AB2000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B1908000FFFF
+      D2004A4AB20000000000000000000000000000000000AF8F8000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00A3807000A3807000A3807000A3807000E4DB
+      DB00E4DBDB00E4D0D0009A5B6E00000000000000000000000000B1908000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF9F500FCF9F500FAF4
      E900F0E8E0009B7C6C00000000000000000000000000C2620E00A23C0000B899
      8400FEFFFF00E4EDF300EEEEEE00EEEEEE00EEEEEE00E5E4E300DFE3E600E5E4
      E300AD9A8A00CD792700A4450E00000000000000000000000000000000000000
      0000253FDF00527CFA004170FF003464FF000C13C1004170FF00295AFF002451
-      F9000B1DC2000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B1908000FFFF
+      F9000B1DC20000000000000000000000000000000000B8988800FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FDFAF600A3807000F5E2D900B18E7E00C39C9F00D4AE
+      B900CE98A700DFCECC0097566800000000000000000000000000B1908000FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF9F500A3807000A380
      7000A3807000A3807000000000000000000000000000C2620E00A23C0000BC9C
      8A00FEFFFF00DDDCDB00C1BFBD00C2C1C000C2C1C000C1BFBD00C9C9CC00E1E9
      EF00B19B8500CD771F00A4450E00000000000000000000000000000000004F4F
      BD00527CFA005081FF004B7CFF001A25C500000000001A25C5003A6FFF002451
-      F9001A4AF2001419B10000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B8988800FFFF
+      F9001A4AF2001419B100000000000000000000000000B8988800FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00A3807000B18E7E00CFC3BD00E6E2E200A25B
+      7100A25B7100A25B7100A25B7100000000000000000000000000B8988800FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FCF9F500FFFFFF00A3807000F5E2
      D900B08E7D00AB9E9800000000000000000000000000C2620E009A310000BC9C
      8A00FEFFFF00FEFFFF00EEEEEE00EEEEEE00EEEEEE00E5E4E300E5E4E300EEEE
      EE00B39D8900C2701D00A9480D0000000000000000000000000000000000252D
      D6006A9CFF005788FF002B46E7006B6BB60000000000000000001A25C500295A
-      FF002451F9001439DD004747AC00000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B8988800FFFF
+      FF002451F9001439DD004747AC000000000000000000B8988800B8988800AF8F
+      8000B18E7E00B18E7E00AC887700A3807000CFC3BD00E6E2E200E6E2E200A25B
+      7100E0C1CA00AA697E00A9919800000000000000000000000000B8988800FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00A3807000B08E
      7D00AB9E980000000000000000000000000000000000C562060093280000BC9C
      8A00FEFFFF00E5E4E300D1CFCC00D1CFCC00C9C9CC00D1CFCC00D4D3D200E4ED
      F300B9A38C008A4F1400B0551400000000000000000000000000000000004B4B
      C8003951E2005081FF002B2CC000000000000000000000000000000000001628
      D300265AFF000F2EE3002022B100000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000B8988800B898
+      000000000000C194A300E6E2E200E6E2E200E6E2E200E6E2E200E6E2E200A25B
+      7100AA697E00A991980000000000000000000000000000000000B8988800B898
      8800B1908000B1908000B08E7D00B08E7D00AC887700AC887700A3807000AB9E
      98000000000000000000000000000000000000000000BF8D5800C0540200C8A4
      8300D4D3D200D4D3D200D4D3D200D4D3D200C9C9CC00C8C7C300C1BFBD00BEBD
      BC00B1947B00C0540200B07D5800000000000000000000000000000000000000
      0000000000003E3EB90000000000000000000000000000000000000000006B6B
      B6002F2FB3000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000AF728500AF728500AC6D8000AC6D8000AC6D8000A6627600A25B
+      7100A99198000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
@ -455,16 +586,46 @@ object X2LogObserverMonitorForm: TX2LogObserverMonitorForm
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
-      2800000040000000200000000100010000000000000100000000000000000000
-      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000C003C001C7CF0000
-      C003800183830000C003800181010000C0038001C0010000C003800180030000
-      C0038001C0070000C0038001F00F0000C0038001F80F0000C0038001F0070000
-      C0038001F0070000C0038001E0830000C0038001E0C10000C0078001E1E10000
-      C00F8001FBE70000FFFFFFFFFFFF0000FFFFFFFFFFFFFFFFF81FF81FFFFF8001
+      2800000040000000300000000100010000000000800100000000000000000000
+      000000000000000000000000FFFFFF00FFFF000000000000C183000000000000
+      C183000000000000C183000000000000C183000000000000C183000000000000
+      C183000000000000C183000000000000C183000000000000C183000000000000
+      C183000000000000C183000000000000C183000000000000C183000000000000
+      C183000000000000FFFF000000000000FFFFFFFFFFFFFFFFC003C001C7CF801F
+      C00380018383801FC003800181018001C0038001C0018001C003800180038001
+      C0038001C0078001C0038001F00F8001C0038001F80F8001C0038001F0078001
+      C0038001F0078001C0038001E0838001C0038001E0C18001C0078001E1E1F803
+      C00F8001FBE7F807FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF81FF81FFFFF8001
      F00FF00F80038001E007E00780018001C003C003800180018001800180018001
      80018001C003800180018001E003800180018001E007800180018001F00F8001
      80018001F00F8001C003C003F81F8001E007C007F81F8001F00FE00FFC3F8001
      F81FF81FFE7F8001FFFFFFFFFFFFFFFF00000000000000000000000000000000
      000000000000}
  end
+  object alLog: TActionList
+    Images = ilsLog
+    Left = 512
+    Top = 48
+    object actClear: TAction
+      Caption = 'Clear'
+      ImageIndex = 6
+      OnExecute = actClearExecute
+    end
+    object actCopyDetails: TAction
+      Caption = 'Copy'
+      ImageIndex = 7
+      OnExecute = actCopyDetailsExecute
+    end
+    object actSaveDetails: TAction
+      Caption = 'Save'
+      ImageIndex = 5
+      Visible = False
+    end
+    object actPause: TAction
+      AutoCheck = True
+      Caption = 'Pause'
+      ImageIndex = 8
+      OnExecute = actPauseExecute
+    end
+  end
 end
--- a/X2Log.Observer.MonitorForm.pas
+++ b/X2Log.Observer.MonitorForm.pas
@ -1,18 +1,20 @@
 unit X2Log.Observer.MonitorForm;

-// #ToDo3 -oMvR: 20-5-2014: pause button
-
 interface
 uses
  System.Classes,
  System.Generics.Collections,
+  Vcl.ComCtrls,
  Vcl.Controls,
+  Vcl.ExtCtrls,
  Vcl.Forms,
  Vcl.ImgList,
+  Vcl.StdCtrls,
+  Vcl.ToolWin,
  VirtualTrees,
  Winapi.Messages,

-  X2Log.Intf, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.ToolWin;
+  X2Log.Intf, Vcl.ActnList;


 const
@ -34,21 +36,34 @@ type
    tbClear: TToolButton;
    tbSaveDetails: TToolButton;
    sbStatus: TStatusBar;
+    tbCopyDetails: TToolButton;
+    alLog: TActionList;
+    actClear: TAction;
+    actCopyDetails: TAction;
+    actSaveDetails: TAction;
+    actPause: TAction;
+    tbPause: TToolButton;

    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure vstLogInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
    procedure vstLogFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
    procedure vstLogGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
+    procedure vstLogGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
    procedure vstLogGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
    procedure vstLogFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
-    procedure tbClearClick(Sender: TObject);
+    procedure actClearExecute(Sender: TObject);
+    procedure actCopyDetailsExecute(Sender: TObject);
+    procedure actPauseExecute(Sender: TObject);
  private class var
    FInstances: TDictionary<IX2Log,TX2LogObserverMonitorForm>;
  private
    FFreeOnClose: Boolean;
    FLogToAttach: IX2Log;
    FLogAttached: Boolean;
+    FPausedLogCount: Integer;
+
+    function GetPaused: Boolean;
  protected
    class function GetInstance(ALog: IX2Log; out AForm: TX2LogObserverMonitorForm): Boolean;
    class procedure RemoveInstance(AForm: TX2LogObserverMonitorForm);
@ -59,8 +74,13 @@ type
    procedure WMEnable(var Msg: TWMEnable); message WM_ENABLE;
    procedure CMReenable(var Msg: TMessage); message CM_REENABLE;

+    procedure UpdateUI;
+    procedure UpdateStatus;
+
    property LogToAttach: IX2Log read FLogToAttach;
    property LogAttached: Boolean read FLogAttached;
+    property Paused: Boolean read GetPaused;
+    property PausedLogCount: Integer read FPausedLogCount write FPausedLogCount;
  public
    class function Instance(ALog: IX2Log): TX2LogObserverMonitorForm;

@ -81,6 +101,7 @@ implementation
 uses
  System.DateUtils,
  System.SysUtils,
+  Vcl.Clipbrd,
  Winapi.Windows,

  X2Log.Constants;
@ -212,7 +233,10 @@ begin
  vstLog.Header.Columns[ColumnMessage].Text := GetLogResourceString(@LogMonitorFormColumnMessage);

  tbClear.Caption := GetLogResourceString(@LogMonitorFormButtonClear);
+  tbCopyDetails.Caption := GetLogResourceString(@LogMonitorFormButtonCopyDetails);
  tbSaveDetails.Caption := GetLogResourceString(@LogMonitorFormButtonSaveDetails);
+
+  UpdateUI;
 end;


@ -266,15 +290,24 @@ var
  nodeData: PLogEntryNodeData;

 begin
-// #ToDo1 -oMvR: 20-5-2014: thread safety; Log is not guaranteed to be called in the main thread!
-  if GetCurrentThreadId <> MainThreadID then
-    exit;
+  { Ensure thread safety; TThread.Queue will run the procedure immediately
+    if Log is called from the main thread, or queue it asynchronously }
+  TThread.Queue(nil,
+    procedure
+    begin
+      if not Paused then
+      begin
+        node := vstLog.AddChild(nil);
+        nodeData := vstLog.GetNodeData(node);
+        nodeData^.Initialize(ALevel, AMessage, ADetails);

-  node := vstLog.AddChild(nil);
-  nodeData := vstLog.GetNodeData(node);
-  nodeData^.Initialize(ALevel, AMessage, ADetails);
-
-  tbClear.Enabled := True;
+        UpdateUI;
+      end else
+      begin
+        PausedLogCount := PausedLogCount + 1;
+        UpdateStatus;
+      end;
+    end);
 end;


@ -292,6 +325,34 @@ begin
 end;


+procedure TX2LogObserverMonitorForm.UpdateUI;
+var
+  hasDetails: Boolean;
+
+begin
+  actClear.Enabled := (vstLog.RootNodeCount > 0);
+
+  hasDetails := (Length(reDetails.Text) > 0);
+  actCopyDetails.Enabled := hasDetails;
+  actSaveDetails.Enabled := hasDetails;
+end;
+
+
+procedure TX2LogObserverMonitorForm.UpdateStatus;
+begin
+  if Paused then
+    sbStatus.SimpleText := ' ' + Format(GetLogResourceString(@LogMonitorFormStatusPaused), [PausedLogCount])
+  else
+    sbStatus.SimpleText := '';
+end;
+
+
+function TX2LogObserverMonitorForm.GetPaused: Boolean;
+begin
+  Result := actPause.Checked;
+end;
+
+
 procedure TX2LogObserverMonitorForm.vstLogInitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
                                                   var InitialStates: TVirtualNodeInitStates);
 var
@ -332,6 +393,20 @@ begin
 end;


+procedure TX2LogObserverMonitorForm.vstLogGetHint(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
+                                                  var LineBreakStyle: TVTTooltipLineBreakStyle; var HintText: string);
+var
+  nodeData: PLogEntryNodeData;
+
+begin
+  if Column = ColumnLevel then
+  begin
+    nodeData := Sender.GetNodeData(Node);
+    HintText := GetLogLevelText(nodeData^.Level);
+  end;
+end;
+
+
 procedure TX2LogObserverMonitorForm.vstLogGetImageIndex(Sender: TBaseVirtualTree; Node: PVirtualNode; Kind: TVTImageKind;
                                                        Column: TColumnIndex; var Ghosted: Boolean; var ImageIndex: Integer);
 var
@ -370,13 +445,29 @@ begin
    reDetails.Text := nodeData^.Details;
  end else
    reDetails.Text := '';
+
+  UpdateUI;
 end;


-procedure TX2LogObserverMonitorForm.tbClearClick(Sender: TObject);
+procedure TX2LogObserverMonitorForm.actClearExecute(Sender: TObject);
 begin
  vstLog.Clear;
-  tbClear.Enabled := False;
+  UpdateUI;
+end;
+
+
+procedure TX2LogObserverMonitorForm.actCopyDetailsExecute(Sender: TObject);
+begin
+  if Length(reDetails.Text) > 0 then
+    Clipboard.AsText := reDetails.Text;
+end;
+
+
+procedure TX2LogObserverMonitorForm.actPauseExecute(Sender: TObject);
+begin
+  PausedLogCount := 0;
+  UpdateStatus;
 end;

 end.