demos/shellbrowser/Unit1_1.inc

   1 { KOL MCK } // Do not remove this line!\r
   2 const N1 = 0;\r
   3 const pmiIcons = 1;\r
   4 const pmiSmall = 2;\r
   5 const pmiList = 3;\r
   6 const pmiTable = 4;\r
   7 \r
   8 const TBLevelUp = 0;\r
   9 const TBIcons = 1;\r
  10 const TBSmall = 2;\r
  11 const TBList = 3;\r
  12 const TBTable = 4;\r
  13 \r
  14 \r
  15 procedure NewForm1( var Result: PForm1; AParent: PControl );\r
  16 begin\r
  17 \r
  18   New( Result, Create );\r
  19   Result.Form := NewForm( AParent, 'Form1' ).SetPosition( 246, 107 ).SetSize( 537, 363 );\r
  20   Applet :=  Result.Form;\r
  21   Result.Form.Add2AutoFree( Result );\r
  22     NewMenu( Result.Form, 0, [ '' ], nil );\r
  23 \r
  24     Result.PopupMenu1 := NewMenu( Result.Form, 0, [ 'View', '('\r
  25       , 'Icons', 'Small Icons', 'List', 'Table', ')'\r
  26       , '' ], nil );\r
  27     Result.PopupMenu1.AssignEvents( 1, [ Result.PopupMenu1pmiIconsMenu ] );\r
  28     Result.PopupMenu1.AssignEvents( 2, [ Result.PopupMenu1pmiSmallMenu ] );\r
  29     Result.PopupMenu1.AssignEvents( 3, [ Result.PopupMenu1pmiListMenu ] );\r
  30     Result.PopupMenu1.AssignEvents( 4, [ Result.PopupMenu1pmiTableMenu ] );\r
  31       Result.PopupMenu1.OnPopup := Result.PopupMenu1Popup;\r
  32 \r
  33     Result.ilSmall := NewImageList( Result.Form );\r
  34     Result.ilSmall.LoadSystemIcons( True );\r
  35   Result.Form.Add2AutoFree( Result.ilSmall );\r
  36 \r
  37     Result.ilShell := NewImageList( Result.Form );\r
  38     Result.ilShell.LoadSystemIcons( False );\r
  39   Result.Form.Add2AutoFree( Result.ilShell );\r
  40     // Result.DirTree.TabOrder = 0\r
  41     Result.DirTree := NewDirTreeView( Result.Form, [ tvoLinesRoot ], ioReal, '*' ).SetAlign ( caLeft ).SetSize( 203, 0 );\r
  42     Result.DirTree.Color := clWindow;\r
  43       Result.DirTree.OnSelChange := Result.DirTreeSelChange;\r
  44     // Result.Splitter1.TabOrder = 1\r
  45     Result.Splitter1 := NewSplitter( Result.Form, 0, 0 ).SetAlign ( caLeft );\r
  46     // Result.FileView.TabOrder = 2\r
  47     Result.FileView := NewListView( Result.Form, lvsIcon, [  ], Result.ilSmall, Result.ilShell, nil ).SetAlign ( caClient );\r
  48     Result.FileView.Color := clWindow;\r
  49       Result.FileView.OnMouseDblClk := Result.FileViewMouseDblClk;\r
  50       Result.FileView.OnChar := Result.FileViewChar;\r
  51     Result.FileView.SetAutoPopupMenu( Result.PopupMenu1 );\r
  52     // Result.Toolbar1.TabOrder = 3\r
  53     Result.Toolbar1 := NewToolbar( Result.Form, caNone, [], 0, [ 'LevelUp', 'Icons', 'Small Icons', 'List', 'Table' ], [ 3, 15, 16, 17, 18 ] ).SetAlign ( caTop );\r
  54       Result.Toolbar1.TBAddBitmap( THandle( -1 ) );\r
  55       Result.Toolbar1.TBAddBitmap( THandle( -5 ) );\r
  56       Result.Toolbar1.TBAssignEvents( 0, [ Result.Toolbar1TBLevelUpClick, Result.Toolbar1TBIconsClick, Result.Toolbar1TBSmallClick, Result.Toolbar1TBListClick, Result.Toolbar1TBTableClick ] );\r
  57     Result.KOLForm1FormCreate( Result );\r
  58 \r
  59 end;\r
  60 \r