Componentes.Terceros.RemObj.../official/5.0.23.613/RemObjects SDK for Delphi/Samples/First Sample/FirstSampleServerMain.dfm

118 lines
2.9 KiB
Plaintext

object FirstSampleServerMainForm: TFirstSampleServerMainForm
Left = 290
Top = 103
AutoScroll = False
BorderIcons = [biSystemMenu]
Caption = 'FirstSample Server'
ClientHeight = 470
ClientWidth = 245
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object ROPoweredByRemObjectsButton: TROPoweredByRemObjectsButton
Left = 16
Top = 0
Width = 212
Height = 48
Cursor = crHandPoint
end
object ValueListEditor: TValueListEditor
Left = 0
Top = 47
Width = 241
Height = 316
Align = alCustom
DisplayOptions = [doColumnTitles, doAutoColResize]
KeyOptions = [keyEdit, keyAdd, keyDelete, keyUnique]
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected, goColSizing, goEditing, goAlwaysShowEditor, goThumbTracking]
Strings.Strings = (
'Fred=Fred Smith'
'Tom=Tom Jones'
'Carla=Carla Simon'
'singer=Carla Simon'
'Maria=Maria Anders'
'Antonio=Antonio Moreno'
'Hanna=Hanna Moos'
'Victoria=Victoria Ashworth'
'Yang=Yang Wang'
'Pedro=Pedro Afonso'
'Sven=Sven Ottlieb'
'TJ=Tom Jones'
'cs=Carla Simon')
TabOrder = 0
TitleCaptions.Strings = (
'Nickname'
'Full Name')
OnStringsChange = ValueListEditorStringsChange
OnValidate = ValueListEditorValidate
ColWidths = (
145
146)
end
object Memo1: TMemo
Left = 0
Top = 395
Width = 245
Height = 75
Align = alBottom
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'Arial'
Font.Style = [fsItalic]
Lines.Strings = (
'Note: for the sake of simplicity, any '
'changes made to the list above are '
'not saved but, of course, adding '
'persistence is very easy.')
ParentColor = True
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object AddButton: TButton
Left = 32
Top = 369
Width = 75
Height = 22
Anchors = [akLeft, akBottom]
Caption = 'Add'
TabOrder = 2
OnClick = AddButtonClick
end
object DeleteButton: TButton
Left = 128
Top = 369
Width = 75
Height = 22
Anchors = [akLeft, akBottom]
Caption = 'Delete'
TabOrder = 3
OnClick = DeleteButtonClick
end
object ROServer: TROIndyHTTPServer
Active = True
Dispatchers = <
item
Name = 'BinMessage'
Message = BinMessage
Enabled = True
PathInfo = '/BIN'
end>
Port = 8099
Top = 304
end
object BinMessage: TROBinMessage
Left = 40
Top = 304
end
end