units/socket/socket_telnet_demo/Params_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm2( var Result: PForm2; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Configure connection' ).SetPosition( 244, 207 ).SetSize( 296, 177 ).PreventResizeFlicks;\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.Visible := False;\r
  10     Result.Form.DoubleBuffered := True;\r
  11     Result.Form.HasCaption := False;\r
  12     Result.Form.Color := clSilver ;\r
  13       Result.Form.Font.FontStyle := [ fsBold ]; \r
  14       Result.Form.Font.FontHeight := 20;\r
  15       Result.Form.Font.FontName := 'Arial';\r
  16     // Result.Label2.TabOrder = -1\r
  17     Result.Label2 := NewLabelEffect( Result.Form, 'Address', 1 ).SetPosition( 8, 48 ).SetSize( 273, 0 );\r
  18     Result.Label2.Transparent := True;\r
  19     Result.Label2.Ctl3D := TRUE;\r
  20     // Result.Label1.TabOrder = -1\r
  21     Result.Label1 := NewLabelEffect( Result.Form, 'Port number', 1 ).SetPosition( 8, 24 ).SetSize( 137, 25 );\r
  22     Result.Label1.TextAlign := taCenter;\r
  23     Result.Label1.Ctl3D := TRUE;\r
  24     // Result.EditBox1.TabOrder = 0\r
  25     Result.EditBox1 := NewEditBox( Result.Form, [  ] ).SetPosition( 152, 24 ).SetSize( 129, 24 );\r
  26     Result.EditBox1.Text := '23';\r
  27     // Result.EditBox2.TabOrder = 1\r
  28     Result.EditBox2 := NewEditBox( Result.Form, [  ] ).SetPosition( 8, 88 ).SetSize( 273, 24 );\r
  29     Result.EditBox2.Text := '127.0.0.1';\r
  30     // Result.Button1.TabOrder = 2\r
  31     Result.Button1 := NewButton( Result.Form, 'Connect' ).SetPosition( 8, 128 ).SetSize( 129, 0 );\r
  32       Result.Button1.OnClick := Result.Button1Click;\r
  33     // Result.Button3.TabOrder = 4\r
  34     Result.Button3 := NewButton( Result.Form, 'Close' ).SetPosition( 152, 128 ).SetSize( 129, 0 );\r
  35       Result.Button3.OnClick := Result.Button3Click;\r
  36     Result.Form.CanResize := False;\r
  37 \r
  38 end;\r
  39 \r