demounit.dfm

Tread Component for Delphi

object Form1: TForm1
  Left = 274
  Top = 139
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 308
  ClientWidth = 289
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poDefaultPosOnly
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 168
    Top = 40
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 168
    Top = 64
    Width = 32
    Height = 13
    Caption = 'Label2'
  end
  object Bevel1: TBevel
    Left = 0
    Top = 120
    Width = 289
    Height = 9
    Shape = bsFrame
  end
  object Label3: TLabel
    Left = 168
    Top = 160
    Width = 32
    Height = 13
    Caption = 'Label3'
  end
  object Label4: TLabel
    Left = 168
    Top = 200
    Width = 32
    Height = 13
    Caption = 'Label4'
  end
  object Label5: TLabel
    Left = 8
    Top = 272
    Width = 49
    Height = 13
    Caption = 'Thread 1 :'
    Visible = False
  end
  object Label6: TLabel
    Left = 168
    Top = 96
    Width = 32
    Height = 13
    Caption = 'Label6'
  end
  object btStart: TButton
    Left = 8
    Top = 0
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 0
    OnClick = btStartClick
  end
  object btStop: TButton
    Left = 8
    Top = 40
    Width = 75
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 1
    OnClick = btStopClick
  end
  object Button3: TButton
    Left = 56
    Top = 152
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 56
    Top = 192
    Width = 75
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 3
    OnClick = Button4Click
  end
  object ProgressBar1: TProgressBar
    Left = 64
    Top = 272
    Width = 217
    Height = 17
    Min = 0
    Max = 100
    TabOrder = 4
    Visible = False
  end
  object ButtonStopAll: TButton
    Left = 128
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Stop all'
    Enabled = False
    TabOrder = 5
    OnClick = ButtonStopAllClick
  end
  object btSuspend: TButton
    Left = 8
    Top = 72
    Width = 73
    Height = 17
    Caption = 'Suspend'
    TabOrder = 6
    OnClick = btSuspendClick
  end
  object btResume: TButton
    Left = 8
    Top = 96
    Width = 81
    Height = 17
    Caption = 'Resume'
    TabOrder = 7
    OnClick = btResumeClick
  end
  object ComboBox1: TComboBox
    Left = 104
    Top = 8
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 8
    Text = #1053#1086#1088#1084#1072#1083#1100#1085#1099#1081' '#1088#1077#1078#1080#1084
    OnChange = ComboBox1Change
    Items.Strings = (
      #1053#1086#1088#1084#1072#1083#1100#1085#1099#1081' '#1088#1077#1078#1080#1084
      #1062#1080#1082#1083#1080#1095#1077#1089#1082#1080#1081
      #1047#1072#1076#1072#1085#1085#1086#1077' '#1095#1080#1089#1083#1086)
  end
  object btStartAll: TButton
    Left = 24
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Start All'
    TabOrder = 9
    OnClick = btStartAllClick
  end
  object BThread1: TBThread
    RefreshInterval = 2000
    ThreadGroup = BThreadGroup1
    UpdateEnabled = True
    OnExecute = BThread1Execute
    OnStart = BThread1Start
    OnTerminate = BThread1Terminate
    OnSuspend = BThread1Suspend
    OnResume = BThread1Resume
    OnFinish = BThread1Finish
    Count = 3
    Left = 232
    Top = 32
  end
  object BThread2: TBThread
    ThreadGroup = BThreadGroup1
    UpdateEnabled = True
    OnExecute = BThread2Execute
    OnStart = BThread2Start
    OnTerminate = BThread2Terminate
    Count = 0
    Left = 232
    Top = 160
  end
  object BThreadGroup1: TBThreadGroup
    OnUpdate = BThreadGroup1Update
    OnStart = BThreadGroup1Start
    OnTerminate = BThreadGroup1Terminate
    Left = 224
    Top = 240
  end
end