units/col/Main_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 \r
   3 procedure NewMainForm( var Result: PMainForm; AParent: PControl );\r
   4 begin\r
   5 \r
   6   New( Result, Create );\r
   7   Result.Form := NewForm( AParent, 'MainForm' ).SetPosition( 245, 162 ).SetSize( 450, 414 );\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.IconLoad( hInstance, 'MAINICON' );\r
  10     Result.Form.Font.FontHeight := -10;\r
  11 \r
  12     Result.Timer1 := NewTimer( 1000 );\r
  13   Result.Form.Add2AutoFree( Result.Timer1 );\r
  14       Result.Timer1.OnTimer := Result.Timer1Timer;\r
  15 \r
  16     Result.MHXP1 := NewMHXP( 'Organization.Division.Name' );\r
  17       {$R XP.RES}\r
  18   Result.Form.Add2AutoFree( Result.MHXP1 );\r
  19     // Result.Button1.TabOrder = 0\r
  20     Result.Button1 := NewButton( Result.Form, 'Form2.Show' ).SetPosition( 168, 8 ).SetSize( 137, 0 );\r
  21       Result.Button1.OnClick := Result.Button1Click;\r
  22     // Result.Panel3.TabOrder = 1\r
  23     Result.Panel3 := NewPanel( Result.Form, esLowered ).SetPosition( 8, 64 ).SetSize( 425, 313 );\r
  24       Result.Panel3.OnPaint := Result.Panel3Paint;\r
  25     // Result.Panel2.TabOrder = 3\r
  26     Result.Panel2 := NewPanel( Result.Form, esLowered ).SetPosition( 8, 8 ).SetSize( 145, 49 );\r
  27       Result.Panel2.OnClick := Result.Panel2Click;\r
  28     Result.Timer1.Enabled := True;\r
  29     Result.KOLForm1FormCreate( Result );\r
  30 \r
  31 end;\r
  32 \r
  33 \r