object DLGSelDir: TDLGSelDir
  Left = 1037
  Top = 162
  BorderStyle = bsToolWindow
  Caption = 'DLGSelDir'
  ClientHeight = 262
  ClientWidth = 235
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefault
  PixelsPerInch = 96
  TextHeight = 13
  object lb_DirName: TLabel
    Left = 10
    Top = 198
    Width = 180
    Height = 13
    Alignment = taCenter
    Caption = 'E:\...\trunk\Tools\SiteManager'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object dbox_Dir: TDirectoryListBox
    Left = 10
    Top = 13
    Width = 215
    Height = 157
    DirLabel = lb_DirName
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ItemHeight = 16
    ParentFont = False
    PopupMenu = pop_DirOpt
    TabOrder = 0
    OnMouseDown = dbox_DirMouseDown
  end
  object bt_Ok: TBitBtn
    Left = 10
    Top = 218
    Width = 108
    Height = 36
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Kind = bkOK
  end
  object dbox_Unit: TDriveComboBox
    Left = 10
    Top = 176
    Width = 215
    Height = 19
    DirList = dbox_Dir
    TabOrder = 2
  end
  object bt_Cancel: TBitBtn
    Left = 120
    Top = 218
    Width = 105
    Height = 36
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    Kind = bkCancel
  end
  object pop_DirOpt: TPopupMenu
    Left = 208
    object Createdirectoryhere1: TMenuItem
      Caption = 'Create directory here'
      OnClick = Createdirectoryhere1Click
    end
    object Renamedirectory1: TMenuItem
      Caption = 'Rename directory'
      OnClick = Renamedirectory1Click
    end
    object Removedirectory1: TMenuItem
      Caption = 'Remove directory'
      OnClick = Removedirectory1Click
    end
  end
end
