156 lines
3.4 KiB
Plaintext
156 lines
3.4 KiB
Plaintext
|
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 '
|
||
|
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
|
||
|
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'
|
||
|
TabOrder = 0
|
||
|
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
|