Demo2Forms/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( 246, 107 ).SetClientSize( 205, 138 );\r
  12   Result.Form.Add2AutoFree( Result );\r
  13    {$IFDEF USE_NAMES}\r
  14     Result.Form.Name := 'Form1';\r
  15    {$ENDIF}\r
  16     // Result.Button1.TabOrder = 0\r
  17     Result.Button1 := NewButton( Result.Form, 'Form2.Show' ).SetPosition( 32, 64 ).SetSize( 137, 0 );\r
  18    {$IFDEF USE_NAMES}\r
  19     Result.Button1.Name := 'Button1';\r
  20    {$ENDIF}\r
  21       Result.Button1.OnClick := Result.Button1Click;\r
  22 \r
  23 end;\r
  24 \r