www.pudn.com > Producer&cusuom.rar > Unit1.dfm
object Form1: TForm1
Left = 134
Top = 121
Width = 624
Height = 323
AutoSize = True
Caption = '生产者---消费者问题多线程序实现'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 616
Height = 57
Align = alTop
Caption = 'Panel1'
TabOrder = 0
object GroupBox1: TGroupBox
Left = 1
Top = 1
Width = 614
Height = 55
Align = alClient
Caption = '生产者'
TabOrder = 0
object Label1: TLabel
Left = 501
Top = 23
Width = 42
Height = 16
Caption = '产品数'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ProgressBar1: TProgressBar
Left = 9
Top = 21
Width = 385
Height = 18
BorderWidth = 1
Min = 0
Max = 400
Step = 1
TabOrder = 0
end
object Button1: TButton
Left = 415
Top = 16
Width = 73
Height = 25
Caption = '开始演示'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Edit1: TEdit
Left = 553
Top = 18
Width = 42
Height = 21
TabOrder = 2
Text = '0'
end
end
end
object Panel2: TPanel
Left = 0
Top = 57
Width = 616
Height = 220
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object GroupBox2: TGroupBox
Left = 1
Top = 1
Width = 614
Height = 218
Align = alClient
Caption = '消费群'
TabOrder = 0
object Panel3: TPanel
Left = 2
Top = 15
Width = 610
Height = 104
Align = alTop
TabOrder = 0
object Label2: TLabel
Left = 498
Top = 22
Width = 42
Height = 16
Caption = '消费数'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 499
Top = 67
Width = 42
Height = 16
Caption = '消费数'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ProgressBar2: TProgressBar
Left = 7
Top = 20
Width = 385
Height = 20
BorderWidth = 2
Min = 0
Max = 700
Step = 1
TabOrder = 0
end
object Button2: TButton
Left = 412
Top = 16
Width = 73
Height = 25
Caption = '挂起'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button2Click
end
object Edit2: TEdit
Left = 551
Top = 18
Width = 42
Height = 21
TabOrder = 2
Text = '0'
end
object ProgressBar3: TProgressBar
Left = 7
Top = 65
Width = 386
Height = 20
BorderWidth = 2
Min = 0
Max = 700
Step = 1
TabOrder = 3
end
object Button3: TButton
Left = 413
Top = 62
Width = 73
Height = 25
Caption = '挂起'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button3Click
end
object Edit3: TEdit
Left = 552
Top = 63
Width = 41
Height = 21
TabOrder = 5
Text = '0'
end
end
object Panel4: TPanel
Left = 2
Top = 119
Width = 610
Height = 97
Align = alClient
TabOrder = 1
object Label4: TLabel
Left = 499
Top = 65
Width = 42
Height = 16
Caption = '消费数'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 499
Top = 22
Width = 42
Height = 16
Caption = '消费数'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object ProgressBar4: TProgressBar
Left = 8
Top = 19
Width = 385
Height = 20
BorderWidth = 2
Min = 0
Max = 700
Step = 1
TabOrder = 0
end
object ProgressBar5: TProgressBar
Left = 7
Top = 62
Width = 387
Height = 20
BorderWidth = 2
Min = 0
Max = 700
Step = 1
TabOrder = 1
end
object Button4: TButton
Left = 412
Top = 16
Width = 73
Height = 25
Caption = '挂起'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button4Click
end
object Button5: TButton
Left = 412
Top = 59
Width = 73
Height = 25
Caption = '挂起'
Enabled = False
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button5Click
end
object Edit4: TEdit
Left = 551
Top = 17
Width = 43
Height = 21
TabOrder = 4
Text = '0'
end
object Edit5: TEdit
Left = 551
Top = 59
Width = 45
Height = 21
TabOrder = 5
Text = '0'
end
end
end
end
object Timer1: TTimer
Interval = 100
OnTimer = Timer1Timer
Left = 353
Top = 66
end
object Timer2: TTimer
Enabled = False
Interval = 10
OnTimer = Timer2Timer
Left = 249
Top = 66
end
object MainMenu1: TMainMenu
Left = 193
Top = 65
object N1: TMenuItem
Caption = '复位'
OnClick = N1Click
end
object Exit: TMenuItem
Caption = '退出演示'
OnClick = ExitClick
end
end
end