home *** CD-ROM | disk | FTP | other *** search
- object SetupFrm: TSetupFrm
- Left = 228
- Top = 146
- HelpContext = 1
- ActiveControl = bOK
- BorderIcons = [biHelp]
- BorderStyle = bsDialog
- Caption = 'Instant Drive Access - Options'
- ClientHeight = 309
- ClientWidth = 480
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 369
- Height = 289
- HelpContext = 10
- ActivePage = Generel
- TabOrder = 0
- object Generel: TTabSheet
- HelpContext = 100
- Caption = 'General options'
- object GroupBox1: TGroupBox
- Left = 8
- Top = 16
- Width = 289
- Height = 233
- Caption = 'Drive options'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- object Label4: TLabel
- Left = 24
- Top = 147
- Width = 35
- Height = 13
- Caption = 'Update'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object rgWhichDrives: TRadioGroup
- Left = 22
- Top = 68
- Width = 155
- Height = 65
- HelpContext = 130
- Caption = 'Count which drives'
- Ctl3D = True
- Enabled = False
- ItemIndex = 0
- Items.Strings = (
- 'All drives'
- 'Only local drives')
- ParentCtl3D = False
- TabOrder = 2
- end
- object cbFreeSpace: TCheckBox
- Left = 24
- Top = 26
- Width = 103
- Height = 17
- HelpContext = 110
- Caption = 'Show free space'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- object cbUpdate: TComboBox
- Left = 24
- Top = 160
- Width = 151
- Height = 21
- HelpContext = 140
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Never'
- 'Every minute'
- 'Every 5 minutes'
- 'Every 10 minutes')
- ParentFont = False
- TabOrder = 3
- Text = 'Every 5 minutes'
- end
- object cbTotalFree: TCheckBox
- Left = 24
- Top = 48
- Width = 137
- Height = 17
- HelpContext = 120
- Caption = 'Show total free space'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = cbTotalFreeClick
- end
- end
- end
- object DriveTab: TTabSheet
- Caption = 'Drives'
- object lbDriveList: TCheckListBox
- Left = 16
- Top = 18
- Width = 275
- Height = 167
- HelpContext = 210
- AllowGrayed = False
- Columns = 3
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Drive A:'
- 'Drive B:'
- 'Drive C:'
- 'Drive D:'
- 'Drive E:'
- 'Drive F:'
- 'Drive G:'
- 'Drive H:'
- 'Drive I:'
- 'Drive J:'
- 'Drive K:'
- 'Drive L:'
- 'Drive M:'
- 'Drive N:'
- 'Drive O:'
- 'Drive P:'
- 'Drive Q:'
- 'Drive R:'
- 'Drive S:'
- 'Drive T:'
- 'Drive U:'
- 'Drive V:'
- 'Drive W:'
- 'Drive X:'
- 'Drive Y:'
- 'Drive Z:')
- ParentFont = False
- TabOrder = 0
- end
- end
- object Menu: TTabSheet
- HelpContext = 300
- Caption = 'Menu'
- object Label1: TLabel
- Left = 18
- Top = 18
- Width = 97
- Height = 13
- Caption = 'Applications in menu'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object MenuItems: TListBox
- Left = 16
- Top = 32
- Width = 222
- Height = 158
- HelpContext = 310
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnClick = MenuItemsClick
- OnDblClick = MenuItemsDblClick
- OnDrawItem = MenuItemsDrawItem
- end
- object bAddItem: TButton
- Left = 16
- Top = 205
- Width = 75
- Height = 25
- HelpContext = 320
- Caption = 'Add item'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = bAddItemClick
- end
- object bMoveUp: TBitBtn
- Left = 248
- Top = 74
- Width = 23
- Height = 25
- HelpContext = 350
- TabOrder = 4
- OnClick = bMoveUpClick
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077770000077770007777066607777000777706660777
- 7000777706660777700070000666000070007706666666077000777066666077
- 7000777706660777700077777060777770007777770777777000777777777777
- 7000}
- end
- object bRemItem: TButton
- Left = 189
- Top = 205
- Width = 75
- Height = 25
- HelpContext = 340
- Caption = 'Remove item'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = bRemItemClick
- end
- object bMoveDown: TBitBtn
- Left = 248
- Top = 102
- Width = 23
- Height = 25
- HelpContext = 350
- TabOrder = 5
- OnClick = bMoveDownClick
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077777707777770007777706077777000777706660777
- 7000777066666077700077066666660770007000066600007000777706660777
- 7000777706660777700077770666077770007777000007777000777777777777
- 7000}
- end
- object BtnEdit: TButton
- Left = 102
- Top = 205
- Width = 75
- Height = 25
- HelpContext = 330
- Caption = 'Edit item'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = BtnEditClick
- end
- end
- object TSAlias: TTabSheet
- Caption = 'Aliases'
- object Label3: TLabel
- Left = 16
- Top = 18
- Width = 77
- Height = 13
- Caption = 'Directory aliases'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lbalias: TListBox
- Left = 16
- Top = 32
- Width = 222
- Height = 145
- HelpContext = 410
- ItemHeight = 13
- TabOrder = 0
- OnClick = lbaliasClick
- end
- object bAddAlias: TButton
- Left = 32
- Top = 184
- Width = 75
- Height = 25
- HelpContext = 420
- Caption = 'Add alias'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = bAddAliasClick
- end
- object bRemAlias: TButton
- Left = 144
- Top = 184
- Width = 75
- Height = 25
- HelpContext = 430
- Caption = 'Remove alias'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = bRemAliasClick
- end
- object bMoveAliasUp: TBitBtn
- Left = 247
- Top = 72
- Width = 23
- Height = 25
- HelpContext = 450
- TabOrder = 4
- OnClick = bMoveAliasUpClick
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077770000077770007777066607777000777706660777
- 7000777706660777700070000666000070007706666666077000777066666077
- 7000777706660777700077777060777770007777770777777000777777777777
- 7000}
- end
- object bMoveAliasDown: TBitBtn
- Left = 247
- Top = 103
- Width = 23
- Height = 25
- HelpContext = 450
- TabOrder = 5
- OnClick = bMoveAliasDownClick
- Glyph.Data = {
- DE000000424DDE0000000000000076000000280000000D0000000D0000000100
- 0400000000006800000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
- 7000777777777777700077777707777770007777706077777000777706660777
- 7000777066666077700077066666660770007000066600007000777706660777
- 7000777706660777700077770666077770007777000007777000777777777777
- 7000}
- end
- object cbOpenAlias: TCheckBox
- Left = 64
- Top = 224
- Width = 129
- Height = 17
- HelpContext = 440
- Caption = 'Always open as folder'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Filemanager'
- object Panel1: TPanel
- Left = 8
- Top = 16
- Width = 289
- Height = 217
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 0
- object rgBrowser: TRadioGroup
- Left = 16
- Top = 14
- Width = 212
- Height = 91
- HelpContext = 510
- Caption = 'Filemanager'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemIndex = 0
- Items.Strings = (
- 'Open as folder'
- 'Open with Explorer'
- 'Use another browser')
- ParentFont = False
- TabOrder = 0
- OnClick = rgBrowserClick
- end
- object ExtBrowser: TEdit
- Left = 16
- Top = 120
- Width = 209
- Height = 21
- HelpContext = 520
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object bSelectBrowser: TButton
- Left = 17
- Top = 146
- Width = 87
- Height = 25
- HelpContext = 530
- Caption = 'Select browser'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = bSelectBrowserClick
- end
- end
- end
- end
- object bOK: TButton
- Left = 392
- Top = 32
- Width = 75
- Height = 25
- HelpContext = 610
- Caption = 'OK'
- Default = True
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = bOKClick
- end
- object bAbout: TButton
- Left = 393
- Top = 72
- Width = 75
- Height = 25
- HelpContext = 620
- Caption = 'About'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = bAboutClick
- end
- object Uninstall: TButton
- Left = 393
- Top = 112
- Width = 75
- Height = 25
- HelpContext = 630
- Caption = 'Uninstall'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = UninstallClick
- end
- object PopupDriveMenu: TPopupMenu
- Left = 430
- Top = 176
- end
- object OpenDialog: TOpenDialog
- FileEditStyle = fsEdit
- Filter =
- 'Programs|*.exe; *.com|Help files|*.hlp|HTML files|*.htm;*.html|A' +
- 'll files|*.*'
- Left = 398
- Top = 176
- end
- object UpdateTimer: TTimer
- Interval = 300000
- OnTimer = UpdateTimerTimer
- Left = 400
- Top = 215
- end
- object TrayIcon: TTrayIcon
- Active = False
- ShowDesigning = False
- Icon.Data = {<image001.ico>}
- ToolTip = 'Instant Drive Access 1.10b'
- OnDblClick = TrayIconDblClick
- PopupMenu = PopupDriveMenu
- Left = 432
- Top = 216
- end
- end
-