2014-05-18 18:09:07 +00:00
|
|
|
object MainForm: TMainForm
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Caption = 'X'#178'Log Test'
|
|
|
|
ClientHeight = 515
|
|
|
|
ClientWidth = 611
|
|
|
|
Color = clBtnFace
|
|
|
|
Font.Charset = DEFAULT_CHARSET
|
|
|
|
Font.Color = clWindowText
|
|
|
|
Font.Height = -11
|
|
|
|
Font.Name = 'Tahoma'
|
|
|
|
Font.Style = []
|
|
|
|
OldCreateOrder = False
|
|
|
|
Position = poScreenCenter
|
|
|
|
OnCreate = FormCreate
|
|
|
|
OnDestroy = FormDestroy
|
|
|
|
PixelsPerInch = 96
|
|
|
|
TextHeight = 13
|
|
|
|
object pcObservers: TPageControl
|
|
|
|
AlignWithMargins = True
|
|
|
|
Left = 8
|
2014-05-20 19:17:23 +00:00
|
|
|
Top = 169
|
2014-05-18 18:09:07 +00:00
|
|
|
Width = 595
|
2014-05-20 19:17:23 +00:00
|
|
|
Height = 305
|
2014-05-18 18:09:07 +00:00
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
2014-05-20 19:17:23 +00:00
|
|
|
ActivePage = tsEvent
|
2014-05-18 18:09:07 +00:00
|
|
|
Align = alClient
|
|
|
|
TabOrder = 0
|
|
|
|
OnChange = pcObserversChange
|
2014-05-20 19:17:23 +00:00
|
|
|
ExplicitTop = 113
|
|
|
|
ExplicitHeight = 361
|
2014-05-18 18:09:07 +00:00
|
|
|
object tsEvent: TTabSheet
|
|
|
|
Caption = 'Event Observer '
|
2014-05-20 19:17:23 +00:00
|
|
|
ExplicitHeight = 333
|
2014-05-18 18:09:07 +00:00
|
|
|
object mmoEvent: TMemo
|
|
|
|
AlignWithMargins = True
|
|
|
|
Left = 8
|
|
|
|
Top = 8
|
|
|
|
Width = 571
|
2014-05-20 19:17:23 +00:00
|
|
|
Height = 261
|
2014-05-18 18:09:07 +00:00
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
|
|
|
Align = alClient
|
|
|
|
ReadOnly = True
|
|
|
|
ScrollBars = ssVertical
|
|
|
|
TabOrder = 0
|
2014-05-20 19:17:23 +00:00
|
|
|
ExplicitHeight = 317
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object tsFile: TTabSheet
|
|
|
|
Caption = 'File Observer'
|
|
|
|
ImageIndex = 1
|
2014-05-20 19:17:23 +00:00
|
|
|
ExplicitHeight = 333
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
object tsNamedPipe: TTabSheet
|
|
|
|
Caption = 'Named Pipe Observer'
|
|
|
|
ImageIndex = 2
|
2014-05-20 19:17:23 +00:00
|
|
|
ExplicitHeight = 333
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object pnlButtons: TPanel
|
|
|
|
AlignWithMargins = True
|
|
|
|
Left = 8
|
|
|
|
Top = 482
|
|
|
|
Width = 595
|
|
|
|
Height = 25
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 0
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
|
|
|
Align = alBottom
|
|
|
|
BevelOuter = bvNone
|
|
|
|
TabOrder = 1
|
|
|
|
object btnClose: TButton
|
|
|
|
Left = 520
|
|
|
|
Top = 0
|
|
|
|
Width = 75
|
|
|
|
Height = 25
|
|
|
|
Align = alRight
|
|
|
|
Cancel = True
|
|
|
|
Caption = 'Close'
|
2014-05-20 08:49:57 +00:00
|
|
|
TabOrder = 1
|
2014-05-20 19:17:23 +00:00
|
|
|
OnClick = btnCloseClick
|
2014-05-20 08:49:57 +00:00
|
|
|
end
|
|
|
|
object btnMonitorForm: TButton
|
|
|
|
Left = 0
|
|
|
|
Top = 0
|
|
|
|
Width = 145
|
|
|
|
Height = 25
|
|
|
|
Align = alLeft
|
|
|
|
Cancel = True
|
|
|
|
Caption = 'Monitor Form Observer'
|
2014-05-18 18:09:07 +00:00
|
|
|
TabOrder = 0
|
2014-05-20 08:49:57 +00:00
|
|
|
OnClick = btnMonitorFormClick
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
end
|
|
|
|
object GroupBox1: TGroupBox
|
|
|
|
AlignWithMargins = True
|
|
|
|
Left = 8
|
|
|
|
Top = 8
|
|
|
|
Width = 595
|
2014-05-20 19:17:23 +00:00
|
|
|
Height = 153
|
2014-05-18 18:09:07 +00:00
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 0
|
|
|
|
Align = alTop
|
|
|
|
Caption = ' Dispatch '
|
|
|
|
TabOrder = 2
|
|
|
|
DesignSize = (
|
|
|
|
595
|
2014-05-20 19:17:23 +00:00
|
|
|
153)
|
2014-05-18 18:09:07 +00:00
|
|
|
object lblMessage: TLabel
|
|
|
|
Left = 16
|
|
|
|
Top = 32
|
|
|
|
Width = 46
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Message:'
|
|
|
|
end
|
|
|
|
object lblException: TLabel
|
|
|
|
Left = 16
|
2014-05-20 19:17:23 +00:00
|
|
|
Top = 99
|
2014-05-18 18:09:07 +00:00
|
|
|
Width = 51
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Exception:'
|
|
|
|
end
|
|
|
|
object edtMessage: TEdit
|
|
|
|
Left = 92
|
|
|
|
Top = 29
|
|
|
|
Width = 402
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
TabOrder = 0
|
|
|
|
Text = 'Hello world!'
|
|
|
|
OnKeyDown = edtMessageKeyDown
|
|
|
|
end
|
2014-05-20 19:17:23 +00:00
|
|
|
object btnVerbose: TButton
|
|
|
|
Left = 92
|
|
|
|
Top = 56
|
2014-05-18 18:09:07 +00:00
|
|
|
Width = 75
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
2014-05-20 19:17:23 +00:00
|
|
|
Caption = 'Verbose'
|
2014-05-18 18:09:07 +00:00
|
|
|
TabOrder = 1
|
2014-05-20 19:17:23 +00:00
|
|
|
OnClick = btnLogClick
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
object edtException: TEdit
|
|
|
|
Left = 92
|
2014-05-20 19:17:23 +00:00
|
|
|
Top = 96
|
2014-05-18 18:09:07 +00:00
|
|
|
Width = 402
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
TabOrder = 2
|
|
|
|
Text = 'Horrible things are happening.'
|
|
|
|
OnKeyDown = edtExceptionKeyDown
|
|
|
|
end
|
|
|
|
object btnException: TButton
|
2014-05-20 19:17:23 +00:00
|
|
|
Left = 92
|
|
|
|
Top = 123
|
2014-05-18 18:09:07 +00:00
|
|
|
Width = 75
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
Caption = '&Send'
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = btnExceptionClick
|
|
|
|
end
|
2014-05-20 19:17:23 +00:00
|
|
|
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
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
end
|