controls/enhcombos/enhcombos_demo/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, 'Demo' ).SetPosition( 192, 129 ).SetSize( 440, 338 ).Tabulate;\r
   8   Result.Form.Add2AutoFree( Result );\r
   9     Result.Form.Icon := THandle(-1);\r
  10     // Result.Panel1.TabOrder = 0\r
  11     Result.Panel1 := NewPanel( Result.Form, esRaised ).SetAlign ( caTop ).SetSize( 0, 57 );\r
  12     // Result.FontComboBox1.TabOrder = 0\r
  13       Result.FontComboBox1 := NewFontComboBox( Result.Panel1 ).SetPosition( 21, 13 ).SetSize( 153, 17 );\r
  14       Result.FontComboBox1.OnChange := Result.FontComboBox1Change;\r
  15     // Result.ColorComboBox1.TabOrder = 1\r
  16       Result.ColorComboBox1 := NewColorComboBox( Result.Panel1 ).SetPosition( 205, 13 ).SetSize( 130, 18 );\r
  17       Result.ColorComboBox1.OnChange := Result.ColorComboBox1Change;\r
  18     // Result.RichEdit1.TabOrder = 1\r
  19     Result.RichEdit1 := NewRichEdit( Result.Form, [ eoMultiline ] ).SetAlign ( caClient );\r
  20     Result.RichEdit1.Color := clWindow;\r
  21       Result.RichEdit1.OnSelChange := Result.RichEdit1SelChange;\r
  22     Result.KOLForm1FormCreate( Result );\r
  23 \r
  24 end;\r
  25 \r
  26 \r