KOLIndy/Whois/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( 201, 122 ).SetClientSize( 402, 200 );\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( 8, 16 );\r
  16     Result.Label1.Font.FontHeight := -12;\r
  17     // Result.btLookup.TabOrder = 0\r
  18     Result.btLookup := NewButton( Result.Form, 'Button1' ).SetPosition( 176, 8 );\r
  19     Result.btLookup.Font.FontHeight := -12;\r
  20     // Result.edDomain.TabOrder = 1\r
  21     Result.edDomain := NewEditBox( Result.Form, [  ] ).SetPosition( 72, 8 );\r
  22     Result.edDomain.Color := clWindow;\r
  23     Result.edDomain.Font.FontHeight := -12;\r
  24     Result.edDomain.Text := 'INTERNIC.NET';\r
  25     // Result.meResults.TabOrder = 2\r
  26     Result.meResults := NewEditBox( Result.Form, [ eoMultiline ] ).SetPosition( 8, 40 ).SetSize( 385, 145 );\r
  27     Result.meResults.Color := clWindow;\r
  28     Result.meResults.Font.FontHeight := -12;\r
  29       Result.btLookup.OnClick := Result.btLookupClickClick;\r
  30       Result.edDomain.OnKeyDown := Result.edDomainKeyDown;\r
  31     Result.KOLForm1FormCreate( Result );\r
  32 \r
  33 end;\r
  34 \r