174 lines
3.6 KiB
Plaintext
174 lines
3.6 KiB
Plaintext
|
|
object MessageEnvelopes_ServerMainForm: TMessageEnvelopes_ServerMainForm
|
||
|
|
Left = 545
|
||
|
|
Top = 360
|
||
|
|
Width = 411
|
||
|
|
Height = 407
|
||
|
|
BorderIcons = [biSystemMenu]
|
||
|
|
Caption = 'Message Envelopes Server'
|
||
|
|
Color = clBtnFace
|
||
|
|
ParentFont = True
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnCreate = FormCreate
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object RoPoweredByRemObjectsButton1: TROPoweredByRemObjectsButton
|
||
|
|
Left = 8
|
||
|
|
Top = 8
|
||
|
|
Width = 212
|
||
|
|
Height = 48
|
||
|
|
Cursor = crHandPoint
|
||
|
|
end
|
||
|
|
object Panel2: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 153
|
||
|
|
Width = 395
|
||
|
|
Height = 218
|
||
|
|
Align = alClient
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
DesignSize = (
|
||
|
|
395
|
||
|
|
218)
|
||
|
|
object bClearLog: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 187
|
||
|
|
Width = 75
|
||
|
|
Height = 25
|
||
|
|
Anchors = [akRight, akBottom]
|
||
|
|
Caption = 'Clear Log'
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object Memo1: TMemo
|
||
|
|
Left = 9
|
||
|
|
Top = 2
|
||
|
|
Width = 297
|
||
|
|
Height = 211
|
||
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
||
|
|
ScrollBars = ssVertical
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Panel1: TPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 395
|
||
|
|
Height = 153
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 0
|
||
|
|
DesignSize = (
|
||
|
|
395
|
||
|
|
153)
|
||
|
|
object Label1: TLabel
|
||
|
|
Left = 9
|
||
|
|
Top = 11
|
||
|
|
Width = 53
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Envelopes:'
|
||
|
|
end
|
||
|
|
object bMoveDown: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 128
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Action = aMoveDown
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
TabOrder = 5
|
||
|
|
end
|
||
|
|
object bMoveUp: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 104
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Action = aMoveUp
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
TabOrder = 4
|
||
|
|
end
|
||
|
|
object bDelete: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 80
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Action = aDelete
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
TabOrder = 3
|
||
|
|
end
|
||
|
|
object bUpdate: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 56
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Action = aUpdate
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
TabOrder = 2
|
||
|
|
end
|
||
|
|
object bAdd: TButton
|
||
|
|
Left = 314
|
||
|
|
Top = 32
|
||
|
|
Width = 75
|
||
|
|
Height = 22
|
||
|
|
Action = aAdd
|
||
|
|
Anchors = [akTop, akRight]
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
object CheckListBox1: TCheckListBox
|
||
|
|
Left = 9
|
||
|
|
Top = 32
|
||
|
|
Width = 298
|
||
|
|
Height = 118
|
||
|
|
OnClickCheck = CheckListBox1ClickCheck
|
||
|
|
Anchors = [akLeft, akTop, akRight]
|
||
|
|
ItemHeight = 13
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object ROMessage: TROBinMessage
|
||
|
|
Envelopes = <>
|
||
|
|
Left = 52
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
object ROServer: TROIndyHTTPServer
|
||
|
|
Dispatchers = <
|
||
|
|
item
|
||
|
|
Name = 'ROMessage'
|
||
|
|
Message = ROMessage
|
||
|
|
Enabled = True
|
||
|
|
PathInfo = 'Bin'
|
||
|
|
end>
|
||
|
|
Port = 8099
|
||
|
|
Left = 24
|
||
|
|
Top = 96
|
||
|
|
end
|
||
|
|
object ActionList1: TActionList
|
||
|
|
Left = 152
|
||
|
|
Top = 40
|
||
|
|
object aAdd: TAction
|
||
|
|
Caption = 'Add'
|
||
|
|
OnExecute = aAddExecute
|
||
|
|
end
|
||
|
|
object aUpdate: TAction
|
||
|
|
Caption = 'Update'
|
||
|
|
OnExecute = aUpdateExecute
|
||
|
|
OnUpdate = aUpdateUpdate
|
||
|
|
end
|
||
|
|
object aDelete: TAction
|
||
|
|
Caption = 'Delete'
|
||
|
|
OnExecute = aDeleteExecute
|
||
|
|
end
|
||
|
|
object aMoveUp: TAction
|
||
|
|
Caption = 'Move Up'
|
||
|
|
OnExecute = aMoveUpExecute
|
||
|
|
OnUpdate = aMoveUpUpdate
|
||
|
|
end
|
||
|
|
object aMoveDown: TAction
|
||
|
|
Caption = 'Move Down'
|
||
|
|
OnExecute = aMoveDownExecute
|
||
|
|
OnUpdate = aMoveDownUpdate
|
||
|
|
end
|
||
|
|
object aTest: TAction
|
||
|
|
Caption = 'Test'
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|