lazarus/examples/multithreading/criticalsectionunit1.lfm
2012-11-22 19:41:50 +00:00

44 lines
927 B
Plaintext

object Form1: TForm1
Left = 286
Height = 169
Top = 202
Width = 312
HorzScrollBar.Page = 311
VertScrollBar.Page = 168
ActiveControl = CountWithCritSecButton
Caption = 'Form1'
ClientHeight = 169
ClientWidth = 312
LCLVersion = '1.1'
object Label1: TLabel
Left = 43
Height = 13
Top = 125
Width = 31
Caption = 'Label1'
ParentColor = False
end
object CountWithCritSecButton: TButton
Left = 40
Height = 31
Top = 24
Width = 156
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Count with critical section'
OnClick = CountWithCritSecButtonClick
TabOrder = 0
end
object CountWithoutCritSecButton: TButton
Left = 40
Height = 31
Top = 64
Width = 172
AutoSize = True
BorderSpacing.InnerBorder = 4
Caption = 'Count without critical section'
OnClick = CountWithoutCritSecButtonClick
TabOrder = 1
end
end