unitformmain.lfm

object FormMain: TFormMain
  Left = 503
  Height = 347
  Top = 262
  Width = 616
  Caption = 'ifloppy/Naria'
  ClientHeight = 347
  ClientWidth = 616
  LCLVersion = '3.99.0.0'
  OnClose = FormClose
  OnCreate = FormCreate
  object btnSettings: TButton
    Left = 8
    Height = 25
    Top = 294
    Width = 99
    Anchors = [akLeft, akBottom]
    Caption = 'Settings'
    TabOrder = 0
    OnClick = btnSettingsClick
  end
  object btnPauseAll: TButton
    Left = 535
    Height = 25
    Top = 8
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Pause all'
    TabOrder = 1
    OnClick = btnPauseAllClick
  end
  object btnUnpauseAll: TButton
    Left = 455
    Height = 25
    Top = 8
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Resume all'
    TabOrder = 2
    OnClick = btnUnpauseAllClick
  end
  object btnNewTask: TButton
    Left = 8
    Height = 25
    Top = 8
    Width = 99
    Caption = 'New Task'
    TabOrder = 3
    OnClick = btnNewTaskClick
  end
  object sb: TStatusBar
    Left = 0
    Height = 23
    Top = 324
    Width = 616
    Panels = <    
      item
        Text = 'Download speed'
        Width = 120
      end    
      item
        Text = 'Upload speed'
        Width = 120
      end    
      item
        Text = 'Waiting num'
        Width = 120
      end>
    SimplePanel = False
  end
  object ListView1: TListView
    Left = 112
    Height = 276
    Top = 40
    Width = 498
    Anchors = [akTop, akLeft, akRight, akBottom]
    Columns = <    
      item
        AutoSize = True
        Caption = 'gid'
        Width = 36
      end    
      item
        AutoSize = True
        Caption = 'Name'
        Width = 52
      end    
      item
        AutoSize = True
        Caption = 'Downloaded size'
        Width = 117
      end    
      item
        AutoSize = True
        Caption = 'Total size'
        Width = 72
      end    
      item
        AutoSize = True
        Caption = 'Progress'
        Width = 69
      end    
      item
        AutoSize = True
        Caption = 'Uploaded size'
        Width = 101
      end    
      item
        AutoSize = True
        Caption = 'Download speed'
        Width = 116
      end    
      item
        AutoSize = True
        Caption = 'Status'
        Width = 52
      end    
      item
        Caption = 'URL'
      end>
    ReadOnly = True
    ScrollBars = ssAutoBoth
    TabOrder = 5
    ViewStyle = vsReport
    OnContextPopup = ListView1ContextPopup
  end
  object ckbRefreshTaskList: TCheckBox
    Left = 112
    Height = 21
    Top = 12
    Width = 172
    Caption = 'Refresh download task list'
    Checked = True
    State = cbChecked
    TabOrder = 6
    OnChange = ckbRefreshTaskListChange
  end
  object cbxListType: TComboBox
    Left = 7
    Height = 23
    Top = 160
    Width = 100
    ItemHeight = 17
    ReadOnly = True
    Style = csOwnerDrawFixed
    TabOrder = 7
  end
  object lblNumDownloading: TLabel
    Left = 7
    Height = 17
    Top = 56
    Width = 47
    Caption = 'Loading'
  end
  object lblTextDownloading: TLabel
    Left = 7
    Height = 1
    Top = 40
    Width = 1
  end
  object lblNumWaiting: TLabel
    Left = 7
    Height = 17
    Top = 96
    Width = 47
    Caption = 'Loading'
  end
  object lblTextWaiting: TLabel
    Left = 7
    Height = 1
    Top = 80
    Width = 1
  end
  object lblNumStopped: TLabel
    Left = 7
    Height = 17
    Top = 136
    Width = 47
    Caption = 'Loading'
  end
  object lblTextStopped: TLabel
    Left = 7
    Height = 1
    Top = 120
    Width = 1
  end
  object client: TCeosClient
    Left = 112
    Top = 40
  end
  object TimerRealtimeStats: TTimer
    Interval = 2000
    OnTimer = TimerRealtimeStatsTimer
    Left = 112
    Top = 96
  end
  object TimerRefreshTaskList: TTimer
    Interval = 2500
    OnTimer = TimerRefreshTaskListTimer
    Left = 112
    Top = 152
  end
  object PopupMenuDownloadTask: TPopupMenu
    OnPopup = PopupMenuDownloadTaskPopup
    OnClose = PopupMenuDownloadTaskClose
    Left = 112
    Top = 216
    object mniTaskResume: TMenuItem
      Caption = 'Resume'
      Enabled = False
      OnClick = mniTaskResumeClick
    end
    object mniTaskPause: TMenuItem
      Caption = 'Pause'
      Enabled = False
      OnClick = mniTaskPauseClick
    end
    object mniTaskDelete: TMenuItem
      Caption = 'Delete'
      Enabled = False
      OnClick = mniTaskDeleteClick
    end
    object mniTaskCopyURL: TMenuItem
      Caption = 'Copy URL'
      Enabled = False
      OnClick = mniTaskCopyURLClick
    end
  end
end