home *** CD-ROM | disk | FTP | other *** search
- object FolderSelector: TFolderSelector
- Left = 199
- Top = 126
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Select a folder'
- ClientHeight = 341
- ClientWidth = 409
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- DesignSize = (
- 409
- 341)
- PixelsPerInch = 96
- TextHeight = 13
- object bOK: TButton
- Left = 296
- Top = 8
- Width = 107
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- end
- object bCancel: TButton
- Left = 296
- Top = 48
- Width = 107
- Height = 25
- Anchors = [akTop, akRight]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 2
- end
- object bNew: TButton
- Left = 296
- Top = 303
- Width = 109
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'New...'
- Enabled = False
- TabOrder = 3
- OnClick = bNewClick
- end
- object mlFolders: TMLVGrid
- Left = 8
- Top = 8
- Width = 281
- Height = 320
- Anchors = [akLeft, akTop, akRight, akBottom]
- ColCount = 1
- DefaultRowHeight = 16
- DefaultDrawing = False
- FixedCols = 0
- RowCount = 1
- FixedRows = 0
- Options = [goThumbTracking]
- TabOrder = 0
- OnDblClick = mlFoldersDblClick
- OnKeyDown = mlFoldersKeyDown
- OnMouseDown = mlFoldersMouseDown
- AltDrag = True
- AutoColResize = True
- AutoSearch = True
- MultiSelect = False
- OnFocusItem = mlFoldersFocusItem
- ImmediateSelect = False
- OnDrawItemImage = mlFoldersDrawItemImage
- end
- object bSelectAll: TButton
- Left = 296
- Top = 96
- Width = 107
- Height = 25
- Anchors = [akTop, akRight]
- Caption = 'Select &All'
- TabOrder = 4
- Visible = False
- OnClick = bSelectAllClick
- end
- object bUnselectAll: TButton
- Left = 296
- Top = 136
- Width = 107
- Height = 25
- Anchors = [akTop, akRight]
- Caption = '&Unselect all'
- TabOrder = 5
- Visible = False
- OnClick = bSelectAllClick
- end
- end
-