units/report/Unit2_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewForm2( var Result: PForm2; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Form2' ).SetPosition( 228, 377 ).SetSize( 441, 291 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.Visible := False;\r
  10     // Result.Panel1.TabOrder = 0\r
  11     Result.Panel1 := NewPanel( Result.Form, esRaised ).SetPosition( 8, 8 );\r
  12 \r
  13 end;\r
  14 \r