units/jpegobj/jpegobj_demo/MainJpg_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   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 228, 107 ).SetSize( 371, 336 );\r
   8   Applet :=  Result.Form;\r
   9   Result.Form.Add2AutoFree( Result );\r
  10     Result.Form.Icon := THandle(-1);\r
  11       Result.Form.OnDestroy := Result.KOLForm1Destroy;\r
  12     // Result.PaintBox1.TabOrder = 0\r
  13     Result.PaintBox1 := NewPaintBox( Result.Form ).SetAlign ( caClient );\r
  14       Result.PaintBox1.OnPaint := Result.PaintBox1Paint;\r
  15     // Result.ListBox1.TabOrder = 1\r
  16     Result.ListBox1 := NewListBox( Result.Form, [ loNoIntegralHeight ] ).SetAlign ( caLeft );\r
  17       Result.ListBox1.OnSelChange := Result.ListBox1SelChange;\r
  18     Result.ListBox1.CurIndex := 0;\r
  19     // Result.Panel1.TabOrder = 2\r
  20     Result.Panel1 := NewPanel( Result.Form, esRaised ).SetAlign ( caTop ).SetSize( 0, 41 );\r
  21     // Result.Label1.TabOrder = -1\r
  22       Result.Label1 := NewLabel( Result.Panel1, '' ).SetPosition( 187, 5 ).SetSize( 123, 0 );\r
  23     Result.KOLForm1FormCreate( Result );\r
  24 \r
  25 end;\r
  26 \r