main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 200
  Top = 122
  BorderStyle = bsDialog
  Caption = 'TclProgressBar Demos'
  ClientHeight = 481
  ClientWidth = 604
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object clProgressBar1: TclProgressBar
    Left = 30
    Top = 134
    Width = 25
    Height = 181
    Orientation = doVertical
    InternetControl = clDownLoader
  end
  object clProgressBar2: TclProgressBar
    Left = 94
    Top = 136
    Width = 493
    Height = 25
    InternetControl = clDownLoader
  end
  object clProgressBar3: TclProgressBar
    Left = 94
    Top = 238
    Width = 493
    Height = 25
    Colors.Scheme = csScheme2
    InternetControl = clDownLoader
  end
  object clProgressBar4: TclProgressBar
    Left = 94
    Top = 187
    Width = 493
    Height = 25
    Style = dsFlat
    ProgressSplit = 50
    InternetControl = clDownLoader
  end
  object clProgressBar5: TclProgressBar
    Left = 94
    Top = 289
    Width = 493
    Height = 25
    Colors.Scheme = csScheme3
    InternetControl = clDownLoader
  end
  object clListViewProgressBar1: TclProgressBar
    Left = 293
    Top = 332
    Width = 76
    Height = 16
    BorderStyle = bsNone
    InternetControl = clDownLoader
    Visible = False
    OnChanged = clListViewProgressBar1Changed
  end
  object clListViewProgressBar2: TclProgressBar
    Left = 377
    Top = 332
    Width = 76
    Height = 16
    Options = [dpDrawTotal]
    BorderStyle = bsNone
    Colors.Scheme = csScheme2
    InternetControl = clDownLoader
    Visible = False
    OnChanged = clListViewProgressBar1Changed
  end
  object clListViewProgressBar3: TclProgressBar
    Left = 461
    Top = 331
    Width = 76
    Height = 16
    Options = [dpDrawItems]
    BorderStyle = bsNone
    Colors.Scheme = csScheme3
    InternetControl = clDownLoader
    Visible = False
    OnChanged = clListViewProgressBar1Changed
  end
  object Label1: TLabel
    Left = 16
    Top = 6
    Width = 569
    Height = 31
    AutoSize = False
    Caption = 
      'This demos demonstrates different variants of painting a progres' +
      's of internent operations with using of the TclProgressBar compo' +
      'nent. Try the buttons below to simulate different progress bar p' +
      'ositions.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    WordWrap = True
  end
  object Label2: TLabel
    Left = 16
    Top = 90
    Width = 61
    Height = 13
    Caption = 'Vertical Style'
  end
  object Label3: TLabel
    Left = 96
    Top = 91
    Width = 73
    Height = 13
    Caption = 'Horizontal Style'
  end
  object Label4: TLabel
    Left = 94
    Top = 117
    Width = 158
    Height = 13
    Caption = '3D look style with color scheme 1'
  end
  object Label5: TLabel
    Left = 94
    Top = 169
    Width = 161
    Height = 13
    Caption = 'Flat look style with color scheme 1'
  end
  object Label6: TLabel
    Left = 94
    Top = 218
    Width = 158
    Height = 13
    Caption = '3D look style with color scheme 2'
  end
  object Label7: TLabel
    Left = 94
    Top = 271
    Width = 158
    Height = 13
    Caption = '3D look style with color scheme 3'
  end
  object Label8: TLabel
    Left = 16
    Top = 336
    Width = 267
    Height = 13
    Caption = 'The sample of painting a progress on an arbitrary surface'
  end
  object Bevel1: TBevel
    Left = 9
    Top = 324
    Width = 587
    Height = 3
  end
  object Bevel2: TBevel
    Left = 9
    Top = 76
    Width = 587
    Height = 3
  end
  object btnOne: TButton
    Left = 172
    Top = 42
    Width = 100
    Height = 25
    Caption = '25 % of progress'
    TabOrder = 1
    OnClick = btnOneClick
  end
  object btnTwo: TButton
    Left = 329
    Top = 42
    Width = 100
    Height = 25
    Caption = '50 % of progress'
    TabOrder = 2
    OnClick = btnTwoClick
  end
  object btnThree: TButton
    Left = 486
    Top = 41
    Width = 100
    Height = 25
    Caption = '100 % of progress'
    TabOrder = 3
    OnClick = btnThreeClick
  end
  object btnInit: TButton
    Left = 16
    Top = 42
    Width = 100
    Height = 25
    Caption = '0 % of progress'
    TabOrder = 0
    OnClick = btnInitClick
  end
  object ListView: TListView
    Left = 16
    Top = 354
    Width = 571
    Height = 113
    Columns = <
      item
        Caption = 'Item'
        Width = 200
      end
      item
        Caption = 'Progress'
        Width = 350
      end>
    GridLines = True
    Items.Data = {
      100100000500000000000000FFFFFFFFFFFFFFFF020000000000000023466C61
      74206C6F6F6B207374796C65207769746820636F6C6F7220736368656D652031
      0870726F6772657373046461746100000000FFFFFFFFFFFFFFFF000000000000
      00000A5061696E74204E6F6E6500000000FFFFFFFFFFFFFFFF02000000000000
      001853686F7720746F74616C2070726F6772657373206F6E6C790870726F6772
      657373046461746100000000FFFFFFFFFFFFFFFF00000000000000000A506169
      6E74204E6F6E6500000000FFFFFFFFFFFFFFFF02000000000000001A53686F77
      20746872656164732070726F6772657373206F6E6C790870726F677265737304
      64617461FFFFFFFFFFFFFFFFFFFFFFFF}
    ReadOnly = True
    RowSelect = True
    TabOrder = 4
    ViewStyle = vsReport
    OnCustomDrawSubItem = ListViewCustomDrawSubItem
  end
  object clDownLoader: TclDownLoader
    InternetAgent = 'Clever Internet Suite'
    Left = 278
    Top = 188
  end
end