units/report/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   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 223, 106 ).SetSize( 527, 271 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     // Result.Panel1.TabOrder = 0\r
  10     Result.Panel1 := NewPanel( Result.Form, esRaised ).SetPosition( 8, 8 ).SetSize( 505, 233 );\r
  11     Result.Panel1.Color := clBtnFace;\r
  12     // Result.Button3.TabOrder = 0\r
  13       Result.Button3 := NewButton( Result.Panel1, 'Test3, Most Complex' ).SetPosition( 13, 53 ).SetSize( 193, 0 );\r
  14       Result.Button3.OnClick := Result.Button3Click;\r
  15       Result.Button3.OnMouseDown := Result.Button3MouseDown;\r
  16     // Result.Button2.TabOrder = 0\r
  17       Result.Button2 := NewButton( Result.Panel1, 'Test2' ).SetPosition( 109, 13 ).SetSize( 89, 0 );\r
  18       Result.Button2.OnClick := Result.Button2Click;\r
  19     // Result.Button1.TabOrder = 0\r
  20       Result.Button1 := NewButton( Result.Panel1, 'Test1' ).SetPosition( 13, 13 ).SetSize( 89, 0 );\r
  21       Result.Button1.OnClick := Result.Button1Click;\r
  22     // Result.BandBig.TabOrder = 1\r
  23       Result.BandBig := NewBand( Result.Panel1, [frLeft,frTop,frRight,frBottom] ).SetPosition( 101, 81 ).SetSize( 397, 141 );\r
  24     Result.BandBig.Color := clWhite;\r
  25     Result.BandBig.Font.Color := clBlack;\r
  26     Result.BandBig.Font.FontStyle := [ fsBold ];\r
  27     Result.BandBig.Font.FontHeight := 60;\r
  28     Result.BandBig.Font.FontName := 'Arial';\r
  29     Result.BandBig.TextAlign := taCenter;\r
  30     Result.BandBig.VerticalAlign := vaCenter;\r
  31       Result.BandBig.Border := 1;\r
  32       Result.BandBig.Caption := 'Big Band';\r
  33 \r
  34 end;\r
  35 \r
  36 \r