units/ics/ics_ping_demo/Unit1_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   {$IFDEF KOLCLASSES}\r
   7   Result := PForm1.Create;\r
   8   {$ELSE OBJECTS}\r
   9   New( Result, Create );\r
  10   {$ENDIF KOL CLASSES/OBJECTS}\r
  11   Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 192, 114 ).SetSize( 544, 375 );\r
  12   Applet :=  Result.Form;\r
  13   Result.Form.Add2AutoFree( Result );\r
  14     // Result.Label1.TabOrder = -1\r
  15     Result.Label1 := NewLabel( Result.Form, 'Label1' ).SetPosition( 48, 64 );\r
  16     // Result.HostEdit.TabOrder = 0\r
  17     Result.HostEdit := NewEditBox( Result.Form, [  ] ).SetPosition( 136, 64 );\r
  18     Result.HostEdit.Color := clWindow;\r
  19     Result.HostEdit.Text := 'localhost';\r
  20     // Result.DisplayMemo.TabOrder = 1\r
  21     Result.DisplayMemo := NewEditBox( Result.Form, [ eoMultiline ] ).SetPosition( 32, 120 ).SetSize( 361, 129 );\r
  22     Result.DisplayMemo.Color := clWindow;\r
  23     Result.DisplayMemo.Text := 'Memo1'+#13+#10;\r
  24     // Result.PingButton.TabOrder = 2\r
  25     Result.PingButton := NewButton( Result.Form, 'Button1' ).SetPosition( 256, 64 );\r
  26     // Result.CancelButton.TabOrder = 3\r
  27     Result.CancelButton := NewButton( Result.Form, 'Button2' ).SetPosition( 328, 64 );\r
  28       Result.PingButton.OnClick := Result.PingButtonClick;\r
  29       Result.CancelButton.OnClick := Result.CancelButtonClick;\r
  30       Result.CancelButton.OnChar := Result.CancelButtonChar;\r
  31     Result.KOLForm1FormCreate( Result );\r
  32 \r
  33 end;\r
  34 \r