KOLIndy/EchoClient/Unit1_1.$$$

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm1( var Result: PForm1; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Echo Test' ).SetPosition( 202, 184 ).SetSize( 302, 183 );\r
   8   Applet :=  Result.Form;\r
   9   Result.Form.Add2AutoFree( Result );\r
  10     // Result.lablReceived.TabOrder = -1\r
  11     Result.lablReceived := NewLabel( Result.Form, 'Echo Time:' ).SetPosition( 24, 80 ).AutoSize( TRUE );\r
  12     Result.lablReceived.Font.FontHeight := 12;\r
  13     // Result.Label1.TabOrder = -1\r
  14     Result.Label1 := NewLabel( Result.Form, 'Echo Server:' ).SetPosition( 24, 28 ).AutoSize( TRUE );\r
  15     Result.Label1.Font.FontHeight := 12;\r
  16     // Result.Label2.TabOrder = -1\r
  17     Result.Label2 := NewLabel( Result.Form, 'Send Text:' ).SetPosition( 24, 56 ).AutoSize( TRUE );\r
  18     Result.Label2.Font.FontHeight := 12;\r
  19     // Result.lablTime.TabOrder = -1\r
  20     Result.lablTime := NewLabel( Result.Form, 'Received Text: ' ).SetPosition( 24, 104 ).AutoSize( TRUE );\r
  21     Result.lablTime.Font.FontHeight := 12;\r
  22     // Result.btnConnect.TabOrder = 0\r
  23     Result.btnConnect := NewButton( Result.Form, 'Connect' ).SetPosition( 224, 24 );\r
  24     Result.btnConnect.Font.FontHeight := 12;\r
  25     // Result.Button2.TabOrder = 1\r
  26     Result.Button2 := NewButton( Result.Form, 'Send' ).SetPosition( 224, 56 );\r
  27     Result.Button2.Font.FontHeight := 12;\r
  28     // Result.btnDisconnect.TabOrder = 2\r
  29     Result.btnDisconnect := NewButton( Result.Form, 'Disconnect' ).SetPosition( 224, 120 );\r
  30     Result.btnDisconnect.Font.FontHeight := 12;\r
  31     // Result.edtEchoServer.TabOrder = 3\r
  32     Result.edtEchoServer := NewEditBox( Result.Form, [  ] ).SetPosition( 104, 24 );\r
  33     Result.edtEchoServer.Color := clWindow;\r
  34     Result.edtEchoServer.Font.FontHeight := 12;\r
  35     Result.edtEchoServer.Text := '127.0.0.1';\r
  36     // Result.edtSendText.TabOrder = 4\r
  37     Result.edtSendText := NewEditBox( Result.Form, [  ] ).SetPosition( 104, 52 );\r
  38     Result.edtSendText.Color := clWindow;\r
  39     Result.edtSendText.Font.FontHeight := 12;\r
  40     Result.edtSendText.Text := 'KOLIndy';\r
  41       Result.btnConnect.OnClick := Result.btnConnectClick;\r
  42       Result.Button2.OnClick := Result.Button2Click;\r
  43       Result.btnDisconnect.OnClick := Result.btnDisconnectClick;\r
  44       Result.edtEchoServer.OnChange := Result.edtEchoServerChange;\r
  45     Result.KOLForm1FormCreate( Result );\r
  46 \r
  47 end;\r
  48 \r