1
0
mirror of synced 2024-11-12 15:49:16 +00:00
x2log/Test/source/MainFrm.dfm

156 lines
3.4 KiB
Plaintext
Raw Normal View History

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 '
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