units/service/service_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( 199, 489 ).SetClientSize( 178, 125 );\r
  12   Result.Form.Add2AutoFree( Result );\r
  13     Result.Form.Font.FontCharset := 0;\r
  14     // Result.Label1.TabOrder = -1\r
  15     Result.Label1 := NewLabel( Result.Form, 'Label1' ).SetPosition( 16, 56 ).SetSize( 137, 0 );\r
  16     // Result.Label2.TabOrder = -1\r
  17     Result.Label2 := NewLabel( Result.Form, '' ).SetPosition( 16, 96 ).SetSize( 137, 0 );\r
  18     Result.KOLFormFormCreate( Result );\r
  19 \r
  20 end;\r
  21 \r