object fm_Net: Tfm_Net Left = 404 Top = 190 Width = 642 Height = 383 Caption = 'Netzwerk Spiel ...noch im aufbau! ' + ' ' Color = 11180441 Constraints.MinWidth = 460 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose OnKeyPress = FormKeyPress OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 0 Width = 634 Height = 3 Cursor = crVSplit Align = alTop ResizeStyle = rsUpdate end object Panel1: TPanel Left = 0 Top = 283 Width = 634 Height = 54 Align = alBottom BevelOuter = bvLowered ParentColor = True TabOrder = 0 object Panel2: TPanel Left = 162 Top = 1 Width = 471 Height = 52 Align = alRight BevelOuter = bvNone ParentColor = True TabOrder = 0 object btNetReload: TSpeedButton Left = 8 Top = 8 Width = 217 Height = 33 Caption = 'Netzwerks übersehen' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000002000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777700000000000000000077777777777778 88888888888888888807777700000778F722777777777777788007003FB30008 F7AA777777000000788077773FB30778F7777777778888887880878833330888 FFFFFFFFFFFFFFFFF88077777870777788888888888888888780777778707777 7844444444444440887077777870777778477777777777780887777778707777 784CCF00000FBBB87077700000000000084CCF0FFF0FFFF87077888888888888 884FFF0FFFFFCCC870778F7227777777784AAF0FFFFFCCC870778F7AA7777770 084AAF0000FFCCC870778F7777777778884AAF0FFFFFCCC870778FFFFFFFFFFF F84FFF0FFF0FFFF8707778888888888888499F00000FAAA87077778444444444 48499FBBBBBFAAA87077778477777777788888888888888870777784CCF00000 F87777777777777770777784CCF0FFF0FF8888888888888887777784FFF0FFFF FCCC87077777777777777784AAF0FFFFFCCC87077777777777777784AAF0000F FCCC87077777777777777784AAF0FFFFFCCC87077777777777777784FFF0FFF0 FFFF8707777777777777778499F00000FAAA8707777777777777778499FBBBBB FAAA870777777777777777848888888888888707777777777777777877777777 7777770777777777777777778888888888888877777777777777} ParentFont = False Spacing = 10 end object btRunGame: TSpeedButton Left = 240 Top = 8 Width = 217 Height = 33 Caption = 'Start das Spiel' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Glyph.Data = { 76020000424D7602000000000000760000002800000020000000200000000100 0400000000000002000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA82AAAAAAAAAAAAAAAAAAAAAAAAAAA AAA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA82AAAAAAAAAAAAAAAAAAAAAAAAAAAA AA8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA82AAAAAAAAAAAAAAAAAAAAAAAAAAAAA A8AAAAAAAAAAAAAAAAA8AAAAAAAAAAAA82AAAAAAAAAAAAAAA888AAAAAAAAAAAA 8AAAAAAA777A2228888AAAAAAAAAAAA82AAAAAA8FFF00008888AAAAAAAAAAAF7 AAAAAAA7FF800008878AAAAAAAAAA8F802AAAA287F00008877AAAAAAAAAAAF70 00878A000087FFFF77AAAAAAAAAA8F80007FF80000FFFFFF77AAAAAAAAAAF700 08FFF00008FFF77888AAAAAAAAA8F7F807FF88F8888800887AAAAAAAAAAF77FF 808807FF700008888AAAAAAAAA8F7FF70000FFFF800008878AAAAAAAAAF708F0 000787FF00000877AAAAAAAAA8F80008800700088877FF77AAAAAAAAAF70008F FF000000FFFFFF77AAAAAAAA8F8000FFF8000008FFFFFF78AAAAAAAAF77808FF F000000FFFF7787AAAAAAAA8F7FF8088800FF7888888888AAAAAAAAF7FFF0000 8F7FFF80008887AAAAAAAA8F88F80000FFFFF700008888AAAAAAAAF700080008 F787F80008888AAAAAAAA7F8000FF7800002A82222AAAAAAAAAAA770007FFF80 0882AAAAAAAAAAAAAAAAA82008FFF7000F7AAAAAAAAAAAAAAAAA88AA2A777822 87AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA} ParentFont = False Spacing = 10 OnClick = btRunGameClick end end end object Panel3: TPanel Left = 0 Top = 3 Width = 634 Height = 280 Align = alClient BevelOuter = bvNone ParentColor = True TabOrder = 1 object meChat: TMemo Left = 0 Top = 149 Width = 634 Height = 93 TabStop = False Align = alBottom Constraints.MinHeight = 20 ParentColor = True ReadOnly = True ScrollBars = ssVertical TabOrder = 0 end object Panel4: TPanel Left = 0 Top = 242 Width = 634 Height = 38 Align = alBottom BevelOuter = bvNone ParentColor = True TabOrder = 1 object Label1: TLabel Left = 8 Top = 12 Width = 132 Height = 16 Caption = 'Senden Meldung zum:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object cbNetRes: TComboBox Left = 144 Top = 8 Width = 129 Height = 24 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 16 ParentFont = False TabOrder = 0 end object edMessage: TEdit Left = 280 Top = 8 Width = 339 Height = 24 Hint = 'Type your message and press [ENTER]' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnKeyPress = edMessageKeyPress end end object Notebook1: TNotebook Left = 0 Top = 0 Width = 634 Height = 149 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] PageIndex = 1 ParentFont = False TabOrder = 2 object TPage Left = 0 Top = 0 Caption = 'One' object SpeedButton1: TSpeedButton Left = 488 Top = 104 Width = 113 Height = 33 Caption = 'Next >>' end object Label4: TLabel Left = 208 Top = 24 Width = 110 Height = 16 Caption = 'Server IP or name:' end object Label5: TLabel Left = 208 Top = 56 Width = 79 Height = 16 Caption = 'Player name:' end object cbNetPlayerName: TComboBox Left = 320 Top = 56 Width = 145 Height = 24 ItemHeight = 16 TabOrder = 0 Text = 'cbNetPlayerName' end object GroupBox1: TGroupBox Left = 0 Top = 0 Width = 193 Height = 137 Caption = 'Connect as' TabOrder = 1 object Image1: TImage Left = 16 Top = 24 Width = 33 Height = 33 Picture.Data = { 07544269746D617076020000424D760200000000000076000000280000002000 0000200000000100040000000000000200000000000000000000100000000000 0000000000000000800000800000008080008000000080008000808000008080 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF FF00887000000000000000888000000000888878888888888888880877777777 7708888787777777777788087F8888888770800000000000000000007F888888 8770777777777777777777777FAA777777707F8888888888888888877F888888 87707F8FFFFFFFFFFFFFFF877FAA777777707F844444444444440F877F888888 87707F848888888888887F877FAA777777707F84CCF00000FBBB7F877F888888 87707F84CCF0FFF0FFFF7F877FAA777777707F84FFF0FFFFFCCC7F877F888888 87707F84AAF0FFFFFCCC7F877FAA777777707F84AAF0000FFCCC7F877F888888 87707F84AAF0FFFFFCCC7F877FAA777777707F84FFF0FFF0FFFF7F877F888888 87707F8499F00000FAAA7F877FAA777777707F8499FBBBBBFAAA7F877F888888 87707F877777777777777F877FAA777777707F8888888888888888877F888888 877087FFFFFFFFFFFFFFFFF77FAA77777770887888888888888888887F888888 8770888777777777777777777FAA77777770888888888888888888887F888888 8770888888888888888888887F8777777770888888888888888888887F888888 8770888888888888888888887F8777777770888888888888888888887F888888 8770888888888888888888887FFFFFFFF7708888888888888888888887FFFFFF FF70888888888888888888888878888888808888888888888888888888877777 7778} Transparent = True end object Image2: TImage Left = 16 Top = 80 Width = 33 Height = 33 Picture.Data = { 07544269746D617076020000424D760200000000000076000000280000002000 0000200000000100040000000000000200000000000000000000100000000000 0000000000000000800000800000008080008000000080008000808000008080 8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF FF00888888888888888888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888880000088888888888 88880000000000003FB300000000000000008888888888883FB3088888888888 8888777777777777333307777777777777778888888888888780888888888888 8888888888888888878088888888888888888888888888888780888888888888 8888888888888888878088888888888888888888880000000000000000008888 888888888777777777777777777708888888888887F822888888888888877088 8888888887F8AA8888880000008770888888888887F888888888777777877088 8888888887FFFFFFFFFFFFFFFFF7708888888888887777777777777777787088 8888888888874444444444444077808888888888888748888888888887077888 8888888888874CCF00000FBBB78088888888888888874CCF0FFF0FFFF7808888 8888888888874FFF0FFFFFCCC78088888888888888874AAF0FFFFFCCC7808888 8888888888874AAF0000FFCCC78088888888888888874AAF0FFFFFCCC7808888 8888888888874FFF0FFF0FFFF7808888888888888887499F00000FAAA7808888 888888888887499FBBBBBFAAA780888888888888888777777777777777808888 8888888888878888888888888880888888888888888877777777777777788888 8888} Transparent = True end object RadioButton1: TRadioButton Tag = 1 Left = 72 Top = 32 Width = 113 Height = 17 Caption = 'Server' Checked = True TabOrder = 0 TabStop = True end object RadioButton2: TRadioButton Tag = 1 Left = 72 Top = 88 Width = 113 Height = 17 Caption = 'Client' TabOrder = 1 end end object ComboBox1: TComboBox Left = 320 Top = 24 Width = 145 Height = 24 ItemHeight = 16 TabOrder = 2 Text = 'ComboBox1' end end object TPage Left = 0 Top = 0 Caption = 'Server' object Label2: TLabel Left = 8 Top = 8 Width = 52 Height = 16 Caption = 'Player 1:' end object SpeedButton2: TSpeedButton Left = 496 Top = 112 Width = 121 Height = 30 Caption = 'Start the Game' end object Label6: TLabel Left = 248 Top = 8 Width = 79 Height = 16 Caption = 'Player name:' end object ComboBox2: TComboBox Left = 72 Top = 8 Width = 167 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 0 Items.Strings = ( 'Human' 'Computer dunce' 'Computer pupil' 'Computer student' 'Computer professor' 'Computer polyglot') end object ComboBox3: TComboBox Left = 72 Top = 32 Width = 167 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 1 Items.Strings = ( 'Human' 'Computer dunce' 'Computer pupil' 'Computer student' 'Computer professor' 'Computer polyglot') end object ComboBox4: TComboBox Left = 72 Top = 56 Width = 167 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 2 Items.Strings = ( 'Human' 'Computer dunce' 'Computer pupil' 'Computer student' 'Computer professor' 'Computer polyglot') end object ComboBox5: TComboBox Left = 72 Top = 80 Width = 167 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 3 Items.Strings = ( 'Human' 'Computer dunce' 'Computer pupil' 'Computer student' 'Computer professor' 'Computer polyglot') end object ComboBox6: TComboBox Left = 72 Top = 104 Width = 167 Height = 24 Style = csDropDownList ItemHeight = 16 TabOrder = 4 Items.Strings = ( 'Human' 'Computer dunce' 'Computer pupil' 'Computer student' 'Computer professor' 'Computer polyglot') end object Edit1: TEdit Left = 336 Top = 8 Width = 121 Height = 24 TabOrder = 5 Text = 'Player name' end object Edit2: TEdit Left = 336 Top = 32 Width = 121 Height = 24 TabOrder = 6 Text = 'Player name' end object Edit3: TEdit Left = 336 Top = 56 Width = 121 Height = 24 TabOrder = 7 Text = 'Player name' end object Edit4: TEdit Left = 336 Top = 80 Width = 121 Height = 24 TabOrder = 8 Text = 'Player name' end object Edit5: TEdit Left = 336 Top = 104 Width = 121 Height = 24 TabOrder = 9 Text = 'Player name' end end object TPage Left = 0 Top = 0 Caption = 'Client' object Label3: TLabel Left = 8 Top = 8 Width = 33 Height = 16 Caption = 'Client' end object SpeedButton3: TSpeedButton Left = 464 Top = 112 Width = 153 Height = 30 Caption = 'Connect' end end end end object StatusBar1: TStatusBar Left = 0 Top = 337 Width = 634 Height = 19 Panels = < item Text = 'Insgesamt Benutzer:' Width = 150 end item Style = psOwnerDraw Text = 'Ready To Play:' Width = 200 end item Width = 300 end> ParentColor = True SimplePanel = False OnDrawPanel = StatusBar1DrawPanel end object tmNet: TTimer Enabled = False Interval = 2000 OnTimer = tmNetTimer Left = 504 Top = 197 end object nmClient: TNMMsg Port = 6400 ReportLevel = 0 OnDisconnect = nmClientDisconnect OnConnect = nmClientConnect OnInvalidHost = nmClientInvalidHost OnHostResolved = nmClientHostResolved OnStatus = nmClientStatus OnConnectionFailed = nmClientConnectionFailed FromName = 'Netmasters' OnMessageSent = nmClientMessageSent Left = 32 Top = 176 end object nmServer: TNMMSGServ Port = 6400 ReportLevel = 0 OnStatus = nmServerStatus OnClientContact = nmServerClientContact OnMSG = nmServerMSG Left = 72 Top = 176 end object tmDebug: TTimer Enabled = False Interval = 200 OnTimer = tmDebugTimer Left = 456 Top = 200 end end