home *** CD-ROM | disk | FTP | other *** search
- object ProgressFrame: TProgressFrame
- Tag = 5
- Left = 0
- Top = 0
- Width = 745
- Height = 190
- HelpContext = 1005
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnResize = FormResize
- object Dock971: TDock97
- Left = 0
- Top = 0
- Width = 9
- Height = 190
- Position = dpLeft
- OnRequestDock = Dock971RequestDock
- end
- object Dock972: TDock97
- Left = 495
- Top = 0
- Width = 250
- Height = 190
- Position = dpRight
- OnRequestDock = Dock972RequestDock
- object twStatistic: TToolWindow97
- Left = 0
- Top = 0
- BorderStyle = bsNone
- Caption = 'Statistic'
- ClientAreaHeight = 186
- ClientAreaWidth = 246
- DockableTo = [dpLeft, dpRight]
- DockPos = 0
- DragHandleStyle = dhNone
- FullSize = True
- TabOrder = 0
- inline StatFrame1: TStatFrame
- Width = 246
- Height = 186
- Align = alClient
- PopupMenu = StatFrame1.pmOptions
- inherited Panel6: TPanel
- Width = 246
- Height = 186
- inherited plStat: TPanel
- Width = 242
- inherited plPing: TPanel
- Width = 34
- inherited lbPing: TLabel
- Width = 34
- end
- end
- end
- inherited plChart: TPanel
- Width = 242
- Height = 125
- inherited Chart1: TChart
- Width = 242
- Height = 125
- end
- end
- inherited Panel5: TPanel
- Top = 167
- Width = 242
- end
- end
- end
- end
- end
- object Panel1: TPanel
- Left = 9
- Top = 0
- Width = 486
- Height = 190
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 2
- object plTaskNotes: TPanel
- Left = 0
- Top = 25
- Width = 486
- Height = 148
- Align = alClient
- BevelOuter = bvNone
- Caption = 'plTaskNotes'
- TabOrder = 1
- object mmNotes: TMemo
- Left = 0
- Top = 0
- Width = 486
- Height = 148
- Align = alClient
- Enabled = False
- ScrollBars = ssVertical
- TabOrder = 0
- OnChange = mmNotesChange
- OnExit = mmNotesExit
- end
- object plNoItems: TPanel
- Left = 0
- Top = 0
- Width = 486
- Height = 148
- Align = alClient
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption = 'There is no task selected'
- Color = clWindow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- end
- object TabSet1: TTabSet
- Left = 0
- Top = 173
- Width = 486
- Height = 17
- Align = alBottom
- DitherBackground = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- SelectedColor = clWindow
- Tabs.Strings = (
- 'Progress'
- 'Task Notes')
- TabIndex = 0
- UnselectedColor = clBtnFace
- OnChange = TabSet1Change
- end
- object plProgress: TPanel
- Left = 0
- Top = 25
- Width = 486
- Height = 148
- Align = alClient
- BevelOuter = bvNone
- Color = clWindow
- TabOrder = 0
- object plProgressNotes: TPanel
- Left = 0
- Top = 0
- Width = 486
- Height = 148
- Align = alClient
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Caption =
- 'You are currently working in offline mode. Press Go Online to be' +
- 'gin downloading.'
- Color = clWindow
- TabOrder = 1
- end
- object PrgListView: TxxxListView
- Left = 0
- Top = 0
- Width = 486
- Height = 148
- Align = alClient
- Columns = <
- item
- Caption = 'URL'
- Width = 350
- end
- item
- Caption = 'N'
- Width = 24
- end
- item
- Caption = 'Bytes Received'
- Width = 85
- end
- item
- Caption = 'Size'
- Width = 85
- end
- item
- Caption = 'Type'
- Width = 80
- end
- item
- Caption = 'Time Elapsed'
- Width = 70
- end
- item
- Caption = '%'
- Width = 30
- end>
- DragMode = dmAutomatic
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = PopupMenu1
- TabOrder = 0
- TabStop = False
- ViewStyle = vsReport
- OnDeletion = PrgListViewDeletion
- OnKeyDown = PrgListViewKeyDown
- OnStartDrag = PrgListViewStartDrag
- OnCreateWnd = PrgListViewCreateWnd
- OnDestroyWnd = PrgListViewDestroyWnd
- end
- end
- object Dock973: TDock97
- Left = 0
- Top = 0
- Width = 486
- Height = 25
- object Toolbar971: TToolbar97
- Left = 0
- Top = 0
- BorderStyle = bsNone
- DockMode = dmCannotFloatOrChangeDocks
- DockPos = 0
- DragHandleStyle = dhNone
- FullSize = True
- TabOrder = 0
- object Label2: TLabel
- Left = 0
- Top = 1
- Width = 88
- Height = 18
- Hint = 'Connections: Maximum number of concurrent Internet connections'
- Align = alLeft
- Caption = 'Max Connections :'
- Constraints.MinHeight = 18
- ParentShowHint = False
- ShowHint = True
- Layout = tlCenter
- end
- object Label1: TLabel
- Left = 128
- Top = 1
- Width = 59
- Height = 18
- Hint =
- 'Per Server: Maximum number of concurrent Internet connections pe' +
- 'r server.'
- Align = alLeft
- Caption = ' Per Server :'
- Constraints.MinHeight = 18
- ParentShowHint = False
- ShowHint = True
- Layout = tlCenter
- end
- object URLLabel1: TURLLabel
- Left = 237
- Top = 4
- Width = 72
- Height = 13
- Cursor = crHandPoint
- Align = alLeft
- Caption = 'More Options...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = URLLabel1Click
- end
- object Label3: TLabel
- Left = 227
- Top = 4
- Width = 10
- Height = 13
- Align = alLeft
- AutoSize = False
- end
- object Label4: TLabel
- Left = 309
- Top = 4
- Width = 12
- Height = 13
- Align = alLeft
- AutoSize = False
- end
- object URLLabel2: TURLLabel
- Left = 321
- Top = 4
- Width = 76
- Height = 13
- Cursor = crHandPoint
- Align = alLeft
- Caption = 'Proxy Settings...'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- OnClick = URLLabel2Click
- end
- object edConn: TxxxSpinEdit
- Left = 88
- Top = 0
- Width = 40
- Height = 21
- Hint = 'Connections: Maximum number of concurrent Internet connections'
- Align = alLeft
- Value = 0
- MaxValue = 99
- MinValue = 0
- OnChanging = edConnChanging
- end
- object edPerServ: TxxxSpinEdit
- Left = 187
- Top = 0
- Width = 40
- Height = 21
- Hint =
- 'Per Server: Maximum number of concurrent Internet connections pe' +
- 'r server.'
- Align = alLeft
- Value = 1
- MaxValue = 99
- MinValue = 1
- OnChanging = edConnChanging
- end
- end
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 20
- Top = 128
- object acAbort1: TMenuItem
- Action = acAbort
- end
- object acCreateTask1: TMenuItem
- Action = acCreateTask
- end
- end
- object ActionList1: TActionList
- Left = 76
- Top = 128
- object acAbort: TAction
- Caption = 'Abort'
- ImageIndex = 25
- OnExecute = acAbortExecute
- OnUpdate = acAbortUpdate
- end
- object acProperties: TAction
- Caption = 'Properties'
- OnUpdate = acPropertiesUpdate
- end
- object acCreateTask: TAction
- Caption = 'Create Task'
- ImageIndex = 50
- OnExecute = acCreateTaskExecute
- OnUpdate = acAbortUpdate
- end
- end
- object DropURLSource1: TDropURLSource
- Dragtypes = [dtLink]
- ImageIndex = 0
- ShowImage = False
- ImageHotSpotX = 16
- ImageHotSpotY = 16
- Left = 104
- Top = 128
- end
- object Timer1: TTimer
- OnTimer = Timer1Timer
- Left = 48
- Top = 128
- end
- object Timer2: TTimer
- Enabled = False
- Interval = 500
- OnTimer = Timer2Timer
- Left = 132
- Top = 128
- end
- end
-