units/wab/wab_demo/KOLForm_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, 'KOLForm' ).SetPosition( 199, 175 ).SetSize( 604, 447 );\r
   8   Applet :=  Result.Form;\r
   9   Result.Form.Add2AutoFree( Result );\r
  10     // Result.LB.TabOrder = 0\r
  11     Result.LB := NewListBox( Result.Form, [ loNoIntegralHeight ] ).SetAlign ( caLeft ).SetSize( 303, 0 );\r
  12     Result.LB.Color := clWindow;\r
  13     Result.LB.Font.FontHeight := 20;\r
  14     Result.LB.Font.FontName := 'Arial';\r
  15       Result.LB.OnClick := Result.LVChange;\r
  16       Result.LB.OnSelChange := Result.LVChange;\r
  17     Result.LB.CurIndex := 0;\r
  18     // Result.ME.TabOrder = 1\r
  19     Result.ME := NewListBox( Result.Form, [ loNoIntegralHeight ] ).SetAlign ( caClient );\r
  20     Result.ME.Color := clWindow;\r
  21     Result.ME.Font.FontHeight := 20;\r
  22     Result.ME.Font.FontName := 'Arial';\r
  23     Result.ME.CurIndex := 0;\r
  24     Result.KFFormCreate( Result );\r
  25 \r
  26 end;\r
  27 \r
  28 \r