units/socket/socket_telnetdaemon_demo/KOLForm_1.inc

   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, 'Telnet Daemon' ).SetPosition( 319, 104 ).SetSize( 511, 476 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9       Result.Form.Font.FontHeight := 16;\r
  10       Result.Form.Font.FontName := 'Arial';\r
  11       Result.Form.OnShow := Result.KOLFormShow;\r
  12       Result.Form.OnDestroy := Result.KOLFormDestroy;\r
  13 \r
  14     Result.Idle := NewTimer( 1000 );\r
  15   Result.Form.Add2AutoFree( Result.Idle );\r
  16       Result.Idle.OnTimer := Result.IdleTimer;\r
  17 \r
  18     Result.m_ServerSocket := NewAsyncSocket;\r
  19     Result.m_ServerSocket.PortNumber := 23;\r
  20     Result.m_ServerSocket.IPAddress  := '0.0.0.0';\r
  21   Result.Form.Add2AutoFree( Result.m_ServerSocket );\r
  22       Result.m_ServerSocket.OnAccept := Result.OnAccept;\r
  23       Result.m_ServerSocket.OnListen := Result.OnListen;\r
  24       Result.m_ServerSocket.OnClose := Result.OnClose;\r
  25       Result.m_ServerSocket.OnError := Result.OnError;\r
  26     // Result.RE2.TabOrder = 0\r
  27     Result.RE2 := NewRichEdit( Result.Form, [ eoMultiline ] ).SetAlign ( caClient );\r
  28     // Result.LV.TabOrder = 0\r
  29     Result.LV := NewListView( Result.Form, lvsDetail, [  ], nil, nil, nil ).SetAlign ( caBottom ).SetSize( 0, 198 );\r
  30     // Result.RE1.TabOrder = 0\r
  31     Result.RE1 := NewRichEdit( Result.Form, [ eoMultiline ] ).SetAlign ( caLeft ).SetSize( 257, 0 );\r
  32     Result.LV.LVCount := 2;\r
  33     Result.Idle.Enabled := True;\r
  34     Result.KOLFormFormCreate( Result );\r
  35 \r
  36 end;\r
  37 \r