main.dfm

ThreadPro 是本人开发的一套用于多线程编程的 Delphi 基础类库

object frmDemo: TfrmDemo
  Left = 210
  Top = 125
  Width = 710
  Height = 513
  Caption = 'ThreadPro v2.0 Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pgcMain: TPageControl
    Left = 0
    Top = 0
    Width = 702
    Height = 467
    ActivePage = ts
    Align = alClient
    TabHeight = 22
    TabOrder = 0
    object ts1: TTabSheet
      Caption = 'demo1 : '#32447#31243#27744#21644#32447#31243#29366#24577#36319#36394
      ImageIndex = 1
      object pnl3: TPanel
        Left = 0
        Top = 0
        Width = 694
        Height = 121
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object lblTrace: TLabel
          Left = 648
          Top = 20
          Width = 12
          Height = 13
          Caption = '20'
        end
        object lbl6: TLabel
          Left = 144
          Top = 69
          Width = 36
          Height = 13
          Caption = #20219#21153#25968
        end
        object tkbTrace: TTrackBar
          Left = 304
          Top = 16
          Width = 329
          Height = 25
          Max = 256
          Position = 20
          TabOrder = 0
          TickStyle = tsManual
          OnChange = tkbTraceChange
        end
        object btnTaskStart: TButton
          Left = 32
          Top = 16
          Width = 75
          Height = 25
          Caption = #24320#22987
          TabOrder = 1
          OnClick = btnTaskStartClick
        end
        object btnTaskStop: TButton
          Left = 120
          Top = 16
          Width = 75
          Height = 25
          Caption = #20572#27490
          TabOrder = 2
          OnClick = btnTaskStopClick
        end
        object btnRndParam: TButton
          Left = 32
          Top = 64
          Width = 97
          Height = 25
          Caption = #21019#24314#20219#21153#21015#34920
          TabOrder = 3
          OnClick = btnRndParamClick
        end
        object udTaskCount: TUpDown
          Left = 249
          Top = 65
          Width = 15
          Height = 21
          Associate = edtTaskCount
          Max = 10000
          Position = 100
          TabOrder = 4
        end
        object edtTaskCount: TEdit
          Left = 200
          Top = 65
          Width = 49
          Height = 21
          TabOrder = 5
          Text = '100'
        end
        object rgRunOrder: TRadioGroup
          Left = 312
          Top = 48
          Width = 137
          Height = 57
          Caption = #20219#21153#25191#34892#27425#24207
          ItemIndex = 0
          Items.Strings = (
            #39034#24207
            #38543#26426)
          TabOrder = 6
        end
        object rgRunMode: TRadioGroup
          Left = 488
          Top = 48
          Width = 137
          Height = 57
          Caption = #20219#21153#25191#34892#27169#24335
          ItemIndex = 0
          Items.Strings = (
            #26222#36890
            #30636#27515)
          TabOrder = 7
        end
      end
      object pnl4: TPanel
        Left = 0
        Top = 121
        Width = 694
        Height = 314
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object spl1: TSplitter
          Left = 241
          Top = 0
          Height = 302
        end
        object spl2: TSplitter
          Left = 473
          Top = 0
          Height = 302
        end
        object grp1: TGroupBox
          Left = 476
          Top = 0
          Width = 218
          Height = 302
          Align = alClient
          Caption = #20219#21153#21015#34920
          TabOrder = 0
          object lvTask: TListView
            Left = 2
            Top = 15
            Width = 214
            Height = 285
            Align = alClient
            Columns = <
              item
                Caption = '#'
              end
              item
                Caption = #20219#21153#21442#25968
                Width = 100
              end
              item
                Caption = #36816#34892#29366#24577
                Width = 220
              end
              item
                Caption = #25104#21151'/'#22833#36133
                Width = 80
              end>
            HideSelection = False
            MultiSelect = True
            ReadOnly = True
            RowSelect = True
            SmallImages = il
            TabOrder = 0
            ViewStyle = vsReport
          end
        end
        object grp2: TGroupBox
          Left = 0
          Top = 0
          Width = 241
          Height = 302
          Align = alLeft
          Caption = 'ListBox'#24335#36319#36394
          TabOrder = 1
          object lstLog: TListBox
            Left = 2
            Top = 44
            Width = 237
            Height = 256
            Align = alClient
            ItemHeight = 13
            TabOrder = 0
          end
          object tlb1: TToolBar
            Left = 2
            Top = 15
            Width = 237
            Height = 29
            ButtonHeight = 21
            ButtonWidth = 31
            Caption = 'tlb1'
            ShowCaptions = True
            TabOrder = 1
            object btnTraceLog: TToolButton
              Left = 0
              Top = 2
              Caption = #36319#36394
              Down = True
              ImageIndex = 0
              Style = tbsCheck
            end
            object btn10: TToolButton
              Left = 31
              Top = 2
              Caption = #28165#31354
              ImageIndex = 1
              OnClick = btn10Click
            end
          end
        end
        object grp3: TGroupBox
          Left = 244
          Top = 0
          Width = 229
          Height = 302
          Align = alLeft
          Caption = 'ListView'#24335#36319#36394
          TabOrder = 2
          object lvTrace: TListView
            Left = 2
            Top = 44
            Width = 225
            Height = 256
            Align = alClient
            Columns = <
              item
                Caption = '# '#32447#31243#21495
                Width = 60
              end
              item
                Caption = #20219#21153#21495
                Width = 60
              end
              item
                Caption = #29366#24577
                Width = 200
              end>
            ReadOnly = True
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
          end
          object tlb2: TToolBar
            Left = 2
            Top = 15
            Width = 225
            Height = 29
            ButtonHeight = 21
            ButtonWidth = 31
            Caption = 'tlb2'
            ShowCaptions = True
            TabOrder = 1
            object btnTraceLogLv: TToolButton
              Left = 0
              Top = 2
              Caption = #36319#36394
              Down = True
              ImageIndex = 0
              Style = tbsCheck
            end
            object btn9: TToolButton
              Left = 31
              Top = 2
              Caption = #28165#31354
              ImageIndex = 1
              OnClick = btn9Click
            end
          end
        end
        object pnl5: TPanel
          Left = 0
          Top = 302
          Width = 694
          Height = 12
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 3
          object lbl7: TLabel
            Left = 0
            Top = 0
            Width = 78
            Height = 12
            Align = alLeft
            Caption = ' '#32447#31243#32456#27490#29366#24577' '
          end
          object lbl8: TLabel
            Left = 337
            Top = 0
            Width = 78
            Height = 12
            Align = alLeft
            Caption = ' '#24635#20307#20219#21153#36827#24230' '
          end
          object pbTotal: TProgressBar
            Left = 415
            Top = 0