demos/modalvcl2koldll/KOLUnit1_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewKOLForm1( var Result: PKOLForm1; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'KOLForm1' ).SetPosition( 254, 243 ).SetSize( 255, 251 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     // Result.Button1.TabOrder = 0\r
  10     Result.Button1 := NewButton( Result.Form, 'Close' ).SetPosition( 64, 80 ).SetSize( 121, 0 );\r
  11       Result.Button1.OnClick := Result.Button1Click;\r
  12 \r
  13 end;\r
  14 \r
  15 \r