directorybrowsingwindow.lfm

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

object DirectoryBrowser: TDirectoryBrowser
  Left = 0
  Height = 240
  Top = 0
  Width = 320
  BorderIcons = [biSystemMenu]
  Caption = 'Обзор папок'
  ClientHeight = 240
  ClientWidth = 320
  LCLVersion = '1.2.6.0'
  object directoriesView: TShellTreeView
    Left = 8
    Height = 192
    Top = 8
    Width = 304
    Anchors = [akTop, akLeft, akRight, akBottom]
    FileSortType = fstNone
    ReadOnly = True
    TabOrder = 0
    Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
    ObjectTypes = [otFolders]
  end
  object selectButton: TButton
    Left = 152
    Height = 24
    Top = 208
    Width = 76
    Anchors = [akRight, akBottom]
    Caption = 'Выбрать'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object cancelButton: TButton
    Left = 236
    Height = 24
    Top = 208
    Width = 76
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Отмена'
    ModalResult = 2
    TabOrder = 2
  end
end