filebrowsingwindow.lfm

Переключить прокрутку окна
Загрузить этот исходный код

object FileBrowser: TFileBrowser
  Left = 0
  Height = 480
  Top = 2
  Width = 640
  BorderIcons = [biSystemMenu]
  Caption = 'Обзор файлов'
  ClientHeight = 480
  ClientWidth = 640
  LCLVersion = '1.0.1.3'
  object viewPanel: TPanel
    Left = 8
    Height = 400
    Top = 8
    Width = 624
    Anchors = [akTop, akLeft, akRight, akBottom]
    BevelOuter = bvNone
    ClientHeight = 400
    ClientWidth = 624
    TabOrder = 0
    object directoriesView: TShellTreeView
      Left = 0
      Height = 400
      Top = 0
      Width = 200
      Align = alLeft
      FileSortType = fstNone
      ReadOnly = True
      TabOrder = 0
      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
      ObjectTypes = [otFolders]
      ShellListView = filesView
    end
    object directoriesFilesSplitter: TSplitter
      Left = 200
      Height = 400
      Top = 0
      Width = 6
    end
    object filesView: TShellListView
      Left = 206
      Height = 400
      Top = 0
      Width = 418
      Align = alClient
      Color = clDefault
      ReadOnly = True
      TabOrder = 2
      ViewStyle = vsReport
      OnColumnClick = filesViewColumnClick
      OnSelectItem = filesViewSelectItem
      ObjectTypes = [otNonFolders, otHidden]
      ShellTreeView = directoriesView
    end
  end
  object fileTypeLabel: TLabel
    Left = 8
    Height = 14
    Top = 421
    Width = 69
    Anchors = [akLeft, akBottom]
    Caption = '&Тип файлов:'
    FocusControl = fileType
    ParentColor = False
  end
  object fileType: TComboBox
    Left = 88
    Height = 21
    Top = 418
    Width = 544
    Anchors = [akLeft, akRight, akBottom]
    AutoSize = False
    ItemHeight = 13
    OnChange = fileTypeChange
    Style = csDropDownList
    TabOrder = 1
  end
  object selectButton: TButton
    Left = 472
    Height = 24
    Top = 448
    Width = 76
    Anchors = [akRight, akBottom]
    Caption = 'Выбрать'
    Default = True
    Enabled = False
    ModalResult = 1
    TabOrder = 2
  end
  object cancelButton: TButton
    Left = 556
    Height = 24
    Top = 448
    Width = 76
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Отмена'
    ModalResult = 2
    TabOrder = 3
  end
end