mirror of
https://github.com/loginov-dmitry/multithread.git
synced 2025-02-17 16:10:54 +02:00
117 lines
2.2 KiB
Plaintext
117 lines
2.2 KiB
Plaintext
object Form1: TForm1
|
|
Left = 0
|
|
Height = 181
|
|
Top = 0
|
|
Width = 452
|
|
Caption = 'Form1'
|
|
ClientHeight = 181
|
|
ClientWidth = 452
|
|
Color = clBtnFace
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
OnDestroy = FormDestroy
|
|
Position = poScreenCenter
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 72
|
|
Width = 64
|
|
Caption = 'Результат:'
|
|
end
|
|
object labResult: TLabel
|
|
Left = 78
|
|
Height = 16
|
|
Top = 72
|
|
Width = 7
|
|
Caption = '0'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 96
|
|
Width = 119
|
|
Caption = 'Статус вычислений:'
|
|
end
|
|
object labThreadStateInfo: TLabel
|
|
Left = 132
|
|
Height = 16
|
|
Top = 97
|
|
Width = 18
|
|
Caption = '???'
|
|
end
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 136
|
|
Width = 243
|
|
Caption = 'Число вызовов обработчика сообщения:'
|
|
end
|
|
object labPostMsgProcessCount: TLabel
|
|
Left = 257
|
|
Height = 16
|
|
Top = 136
|
|
Width = 7
|
|
Caption = '0'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 118
|
|
Width = 198
|
|
Caption = 'Число отправленных сообщений:'
|
|
end
|
|
object labPostMsgCount: TLabel
|
|
Left = 212
|
|
Height = 16
|
|
Top = 118
|
|
Width = 7
|
|
Caption = '0'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 8
|
|
Height = 16
|
|
Top = 157
|
|
Width = 114
|
|
Caption = 'Поток завершился:'
|
|
end
|
|
object labEndWork: TLabel
|
|
Left = 128
|
|
Height = 16
|
|
Top = 157
|
|
Width = 18
|
|
Caption = '???'
|
|
end
|
|
object btnRunInParallelThread: TButton
|
|
Left = 8
|
|
Height = 33
|
|
Top = 8
|
|
Width = 217
|
|
Caption = 'Вычислить сумму ряда чисел до:'
|
|
TabOrder = 0
|
|
OnClick = btnRunInParallelThreadClick
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 8
|
|
Height = 17
|
|
Top = 49
|
|
Width = 436
|
|
Anchors = [akTop, akLeft, akRight]
|
|
TabOrder = 1
|
|
end
|
|
object edMaxValue: TEdit
|
|
Left = 232
|
|
Height = 24
|
|
Top = 16
|
|
Width = 89
|
|
TabOrder = 2
|
|
Text = '10000000'
|
|
end
|
|
object Timer1: TTimer
|
|
Interval = 100
|
|
OnTimer = Timer1Timer
|
|
Left = 304
|
|
Top = 120
|
|
end
|
|
end
|