david
78ab77cd4c
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@19 7f62d464-2af8-f54e-996c-e91b33f51cbe
113 lines
2.3 KiB
Plaintext
113 lines
2.3 KiB
Plaintext
object FormMain: TFormMain
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsSingle
|
|
Caption = 'JvMailSlots Demo'
|
|
ClientHeight = 115
|
|
ClientWidth = 486
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object grpClient: TGroupBox
|
|
Left = 8
|
|
Top = 8
|
|
Width = 233
|
|
Height = 65
|
|
Caption = ' MailSlot Client '
|
|
TabOrder = 0
|
|
object edtClientText: TEdit
|
|
Left = 16
|
|
Top = 28
|
|
Width = 121
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'Hallo World!'
|
|
end
|
|
object btnClientSendText: TButton
|
|
Left = 143
|
|
Top = 26
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Send &Text'
|
|
TabOrder = 1
|
|
OnClick = btnClientSendTextClick
|
|
end
|
|
end
|
|
object pnlBottom: TPanel
|
|
Left = 0
|
|
Top = 78
|
|
Width = 486
|
|
Height = 37
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
486
|
|
37)
|
|
object bvlSplitter: TBevel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 486
|
|
Height = 3
|
|
Align = alTop
|
|
Shape = bsTopLine
|
|
end
|
|
object lblInfo: TLabel
|
|
Left = 8
|
|
Top = 12
|
|
Width = 189
|
|
Height = 13
|
|
Caption = 'Sending data can take some time'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object btnQuit: TButton
|
|
Left = 404
|
|
Top = 7
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = '&Quit'
|
|
TabOrder = 0
|
|
OnClick = btnQuitClick
|
|
end
|
|
end
|
|
object grpServer: TGroupBox
|
|
Left = 247
|
|
Top = 8
|
|
Width = 234
|
|
Height = 65
|
|
Caption = ' MailSlot Server '
|
|
TabOrder = 2
|
|
object edtServerText: TEdit
|
|
Left = 16
|
|
Top = 28
|
|
Width = 207
|
|
Height = 21
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object msServer: TJvMailSlotServer
|
|
MailSlotName = 'MailSlotDemo'
|
|
OnNewMessage = msServerNewMessage
|
|
Left = 448
|
|
Top = 8
|
|
end
|
|
object msClient: TJvMailSlotClient
|
|
MailSlotName = 'MailSlotDemo'
|
|
Left = 200
|
|
end
|
|
end
|