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
|
|
|
|
Top = 113
|
|
|
|
Width = 595
|
|
|
|
Height = 361
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
|
|
|
ActivePage = tsNamedPipe
|
|
|
|
Align = alClient
|
|
|
|
TabOrder = 0
|
|
|
|
OnChange = pcObserversChange
|
|
|
|
object tsEvent: TTabSheet
|
|
|
|
Caption = 'Event Observer '
|
2014-05-20 08:49:57 +00:00
|
|
|
ExplicitLeft = 0
|
|
|
|
ExplicitTop = 0
|
|
|
|
ExplicitWidth = 0
|
|
|
|
ExplicitHeight = 0
|
2014-05-18 18:09:07 +00:00
|
|
|
object mmoEvent: TMemo
|
|
|
|
AlignWithMargins = True
|
|
|
|
Left = 8
|
|
|
|
Top = 8
|
|
|
|
Width = 571
|
|
|
|
Height = 317
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 8
|
|
|
|
Align = alClient
|
|
|
|
ReadOnly = True
|
|
|
|
ScrollBars = ssVertical
|
|
|
|
TabOrder = 0
|
|
|
|
end
|
|
|
|
end
|
|
|
|
object tsFile: TTabSheet
|
|
|
|
Caption = 'File Observer'
|
|
|
|
ImageIndex = 1
|
2014-05-20 08:49:57 +00:00
|
|
|
ExplicitLeft = 0
|
|
|
|
ExplicitTop = 0
|
|
|
|
ExplicitWidth = 0
|
|
|
|
ExplicitHeight = 0
|
2014-05-18 18:09:07 +00:00
|
|
|
end
|
|
|
|
object tsNamedPipe: TTabSheet
|
|
|
|
Caption = 'Named Pipe Observer'
|
|
|
|
ImageIndex = 2
|
|
|
|
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
|
|
|
|
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
|
|
|
|
Height = 97
|
|
|
|
Margins.Left = 8
|
|
|
|
Margins.Top = 8
|
|
|
|
Margins.Right = 8
|
|
|
|
Margins.Bottom = 0
|
|
|
|
Align = alTop
|
|
|
|
Caption = ' Dispatch '
|
|
|
|
TabOrder = 2
|
|
|
|
DesignSize = (
|
|
|
|
595
|
|
|
|
97)
|
|
|
|
object lblMessage: TLabel
|
|
|
|
Left = 16
|
|
|
|
Top = 32
|
|
|
|
Width = 46
|
|
|
|
Height = 13
|
|
|
|
Caption = 'Message:'
|
|
|
|
end
|
|
|
|
object lblException: TLabel
|
|
|
|
Left = 16
|
|
|
|
Top = 59
|
|
|
|
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
|
|
|
|
object btnSend: TButton
|
|
|
|
Left = 500
|
|
|
|
Top = 29
|
|
|
|
Width = 75
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
Caption = '&Send'
|
|
|
|
TabOrder = 1
|
|
|
|
OnClick = btnSendClick
|
|
|
|
end
|
|
|
|
object edtException: TEdit
|
|
|
|
Left = 92
|
|
|
|
Top = 56
|
|
|
|
Width = 402
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
TabOrder = 2
|
|
|
|
Text = 'Horrible things are happening.'
|
|
|
|
OnKeyDown = edtExceptionKeyDown
|
|
|
|
end
|
|
|
|
object btnException: TButton
|
|
|
|
Left = 500
|
|
|
|
Top = 56
|
|
|
|
Width = 75
|
|
|
|
Height = 21
|
|
|
|
Anchors = [akLeft, akTop, akRight]
|
|
|
|
Caption = '&Send'
|
|
|
|
TabOrder = 3
|
|
|
|
OnClick = btnExceptionClick
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|