david
7ebea5ffa7
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.jvcl@12 7f62d464-2af8-f54e-996c-e91b33f51cbe
609 lines
15 KiB
Plaintext
609 lines
15 KiB
Plaintext
object Form1: TForm1
|
|
Left = 228
|
|
Top = 125
|
|
Width = 760
|
|
Height = 510
|
|
Caption = 'JvThread Demo'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCloseQuery = FormCloseQuery
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 397
|
|
Height = 483
|
|
Align = alLeft
|
|
TabOrder = 0
|
|
object GroupBox1: TGroupBox
|
|
Left = 1
|
|
Top = 1
|
|
Width = 395
|
|
Height = 160
|
|
Align = alTop
|
|
Caption = ' Job 1 '
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Tag = 1
|
|
Left = 108
|
|
Top = 80
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Max Count'
|
|
end
|
|
object Label4: TLabel
|
|
Tag = 1
|
|
Left = 140
|
|
Top = 104
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Priority'
|
|
end
|
|
object Label5: TLabel
|
|
Left = 336
|
|
Top = 134
|
|
Width = 53
|
|
Height = 13
|
|
Caption = 'Terminated'
|
|
end
|
|
object btnStartJob1: TButton
|
|
Tag = 1
|
|
Left = 50
|
|
Top = 15
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Start Job &1'
|
|
TabOrder = 0
|
|
OnClick = btnStartJob1Click
|
|
end
|
|
object btnStartJob1SimpleDlg: TButton
|
|
Tag = 1
|
|
Left = 138
|
|
Top = 15
|
|
Width = 179
|
|
Height = 25
|
|
Caption = 'Start Job 1 with Simple &Dialog'
|
|
TabOrder = 1
|
|
OnClick = btnStartJob1SimpleDlgClick
|
|
end
|
|
object cbExclusive1: TCheckBox
|
|
Tag = 1
|
|
Left = 50
|
|
Top = 43
|
|
Width = 121
|
|
Height = 17
|
|
Caption = 'Exclusive execution'
|
|
TabOrder = 2
|
|
OnClick = cbExclusive1Click
|
|
end
|
|
object seMaxCount1: TJvSpinEdit
|
|
Tag = 1
|
|
Left = 50
|
|
Top = 76
|
|
Width = 49
|
|
Height = 21
|
|
MaxValue = 100000
|
|
TabOrder = 3
|
|
OnChange = seMaxCount1Change
|
|
end
|
|
object cbPriority1: TComboBox
|
|
Tag = 1
|
|
Left = 50
|
|
Top = 101
|
|
Width = 85
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnChange = cbPriority1Change
|
|
Items.Strings = (
|
|
'Idle'
|
|
'Lowest'
|
|
'Lower'
|
|
'Normal'
|
|
'Higher'
|
|
'Highest'
|
|
'TimeCritical')
|
|
end
|
|
object btnTerminate1: TButton
|
|
Tag = 1
|
|
Left = 232
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Terminate'
|
|
TabOrder = 5
|
|
OnClick = btnTerminate1Click
|
|
end
|
|
object cbAutoStart1: TCheckBox
|
|
Left = 320
|
|
Top = 20
|
|
Width = 65
|
|
Height = 17
|
|
Caption = 'Autostart'
|
|
TabOrder = 6
|
|
end
|
|
object btnSuspendAll1: TButton
|
|
Left = 50
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Suspend All'
|
|
TabOrder = 7
|
|
OnClick = btnSuspendAll1Click
|
|
end
|
|
object btnResumeAll1: TButton
|
|
Left = 140
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Resume All'
|
|
TabOrder = 8
|
|
OnClick = btnResumeAll1Click
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 184
|
|
Top = 80
|
|
Width = 133
|
|
Height = 41
|
|
TabOrder = 9
|
|
object lbCount1: TLabel
|
|
Tag = 1
|
|
Left = 23
|
|
Top = 6
|
|
Width = 86
|
|
Height = 13
|
|
Alignment = taCenter
|
|
Caption = 'Thread Count 1: 0'
|
|
end
|
|
object lbStats1: TLabel
|
|
Tag = 1
|
|
Left = 6
|
|
Top = 21
|
|
Width = 123
|
|
Height = 13
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'ID: 00000000 V:0'
|
|
end
|
|
end
|
|
object cbDeferredExecution1: TCheckBox
|
|
Left = 184
|
|
Top = 43
|
|
Width = 117
|
|
Height = 17
|
|
Caption = 'Deferred Execution'
|
|
TabOrder = 10
|
|
OnClick = cbDeferredExecution1Click
|
|
end
|
|
object cbJobTerminated1: TCheckBox
|
|
Left = 320
|
|
Top = 132
|
|
Width = 14
|
|
Height = 17
|
|
Checked = True
|
|
Enabled = False
|
|
State = cbChecked
|
|
TabOrder = 11
|
|
end
|
|
object cbDeferredDeletion1: TCheckBox
|
|
Left = 184
|
|
Top = 59
|
|
Width = 117
|
|
Height = 17
|
|
Caption = 'Deferred Deletion'
|
|
TabOrder = 12
|
|
OnClick = cbDeferredDeletion1Click
|
|
end
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 1
|
|
Top = 161
|
|
Width = 395
|
|
Height = 160
|
|
Align = alTop
|
|
Caption = ' Job 2 '
|
|
TabOrder = 1
|
|
object Label1: TLabel
|
|
Tag = 2
|
|
Left = 108
|
|
Top = 80
|
|
Width = 51
|
|
Height = 13
|
|
Caption = 'Max Count'
|
|
end
|
|
object Label3: TLabel
|
|
Tag = 2
|
|
Left = 140
|
|
Top = 104
|
|
Width = 31
|
|
Height = 13
|
|
Caption = 'Priority'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 336
|
|
Top = 134
|
|
Width = 53
|
|
Height = 13
|
|
Caption = 'Terminated'
|
|
end
|
|
object btnStartJob2: TButton
|
|
Tag = 2
|
|
Left = 49
|
|
Top = 15
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Start Job &2'
|
|
TabOrder = 0
|
|
OnClick = btnStartJob2Click
|
|
end
|
|
object btnStartJob2AnimatedDlg: TButton
|
|
Tag = 2
|
|
Left = 138
|
|
Top = 15
|
|
Width = 178
|
|
Height = 25
|
|
Caption = 'Start Job 2 with Animated D&ialog'
|
|
TabOrder = 1
|
|
OnClick = btnStartJob2AnimatedDlgClick
|
|
end
|
|
object cbExclusive2: TCheckBox
|
|
Tag = 2
|
|
Left = 52
|
|
Top = 43
|
|
Width = 121
|
|
Height = 17
|
|
Caption = 'Exclusive execution'
|
|
TabOrder = 2
|
|
OnClick = cbExclusive2Click
|
|
end
|
|
object seMaxCount2: TJvSpinEdit
|
|
Tag = 2
|
|
Left = 52
|
|
Top = 76
|
|
Width = 49
|
|
Height = 21
|
|
MaxValue = 100000
|
|
TabOrder = 3
|
|
OnChange = seMaxCount2Change
|
|
end
|
|
object cbPriority2: TComboBox
|
|
Tag = 2
|
|
Left = 52
|
|
Top = 101
|
|
Width = 81
|
|
Height = 21
|
|
Style = csDropDownList
|
|
ItemHeight = 13
|
|
TabOrder = 4
|
|
OnChange = cbPriority2Change
|
|
Items.Strings = (
|
|
'Idle'
|
|
'Lowest'
|
|
'Lower'
|
|
'Normal'
|
|
'Higher'
|
|
'Highest'
|
|
'TimeCritical')
|
|
end
|
|
object btnTerminate2: TButton
|
|
Tag = 2
|
|
Left = 232
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Terminate'
|
|
TabOrder = 5
|
|
OnClick = btnTerminate2Click
|
|
end
|
|
object cbAutoStart2: TCheckBox
|
|
Left = 320
|
|
Top = 20
|
|
Width = 65
|
|
Height = 17
|
|
Caption = 'Autostart'
|
|
TabOrder = 6
|
|
end
|
|
object btnSuspendAll2: TButton
|
|
Left = 50
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Suspend All'
|
|
TabOrder = 7
|
|
OnClick = btnSuspendAll2Click
|
|
end
|
|
object btnResumeAll2: TButton
|
|
Left = 140
|
|
Top = 128
|
|
Width = 85
|
|
Height = 25
|
|
Caption = 'Resume All'
|
|
TabOrder = 8
|
|
OnClick = btnResumeAll2Click
|
|
end
|
|
object cbShowMsgBeforeExit2: TCheckBox
|
|
Left = 52
|
|
Top = 59
|
|
Width = 129
|
|
Height = 17
|
|
Caption = 'Show Msg Before Exit'
|
|
TabOrder = 9
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 184
|
|
Top = 80
|
|
Width = 133
|
|
Height = 41
|
|
TabOrder = 10
|
|
object lbStats2: TLabel
|
|
Tag = 2
|
|
Left = 6
|
|
Top = 21
|
|
Width = 123
|
|
Height = 13
|
|
Alignment = taCenter
|
|
AutoSize = False
|
|
Caption = 'ID: 00000000 V:0'
|
|
end
|
|
object lbCount2: TLabel
|
|
Tag = 2
|
|
Left = 23
|
|
Top = 6
|
|
Width = 86
|
|
Height = 13
|
|
Alignment = taCenter
|
|
Caption = 'Thread Count 2: 0'
|
|
end
|
|
end
|
|
object cbDeferredExecution2: TCheckBox
|
|
Left = 184
|
|
Top = 43
|
|
Width = 117
|
|
Height = 17
|
|
Caption = 'Deferred Execution'
|
|
TabOrder = 11
|
|
OnClick = cbDeferredExecution2Click
|
|
end
|
|
object cbJobTerminated2: TCheckBox
|
|
Left = 320
|
|
Top = 132
|
|
Width = 14
|
|
Height = 17
|
|
AllowGrayed = True
|
|
Checked = True
|
|
Enabled = False
|
|
State = cbChecked
|
|
TabOrder = 12
|
|
end
|
|
object cbDeferredDeletion2: TCheckBox
|
|
Left = 184
|
|
Top = 59
|
|
Width = 117
|
|
Height = 17
|
|
Caption = 'Deferred Deletion'
|
|
TabOrder = 13
|
|
OnClick = cbDeferredDeletion2Click
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 1
|
|
Top = 321
|
|
Width = 395
|
|
Height = 161
|
|
Align = alClient
|
|
Caption = ' Additional tests '
|
|
TabOrder = 2
|
|
object rbExOnBegin: TRadioButton
|
|
Left = 12
|
|
Top = 33
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'Exception in '#39'OnBegin'#39
|
|
TabOrder = 0
|
|
end
|
|
object rbExOnBeforeResume: TRadioButton
|
|
Left = 12
|
|
Top = 50
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'Exception in '#39'OnBeforeResume'#39
|
|
TabOrder = 1
|
|
end
|
|
object rbExOnFinish: TRadioButton
|
|
Left = 12
|
|
Top = 67
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'Exception in '#39'OnFinish'#39
|
|
TabOrder = 2
|
|
end
|
|
object rbExOnFinishAll: TRadioButton
|
|
Left = 12
|
|
Top = 84
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'Exception in '#39'OnFinishAll'#39
|
|
TabOrder = 3
|
|
end
|
|
object rbNoEx: TRadioButton
|
|
Left = 12
|
|
Top = 16
|
|
Width = 170
|
|
Height = 17
|
|
Caption = 'No Exceptions'
|
|
Checked = True
|
|
TabOrder = 4
|
|
TabStop = True
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 243
|
|
Top = 8
|
|
Width = 148
|
|
Height = 92
|
|
Anchors = [akTop, akRight]
|
|
Caption = ' Action in thread procedure '
|
|
TabOrder = 5
|
|
object Label6: TLabel
|
|
Left = 36
|
|
Top = 16
|
|
Width = 77
|
|
Height = 13
|
|
Caption = '(random thread):'
|
|
end
|
|
object btnSuspendItself: TButton
|
|
Left = 29
|
|
Top = 32
|
|
Width = 90
|
|
Height = 25
|
|
Caption = 'Suspend itself'
|
|
TabOrder = 0
|
|
OnClick = btnSuspendItselfClick
|
|
end
|
|
object btnRaiseException: TButton
|
|
Left = 29
|
|
Top = 60
|
|
Width = 90
|
|
Height = 25
|
|
Caption = 'Raise exception'
|
|
TabOrder = 1
|
|
OnClick = btnRaiseExceptionClick
|
|
end
|
|
end
|
|
object btnShowState: TButton
|
|
Left = 320
|
|
Top = 106
|
|
Width = 70
|
|
Height = 25
|
|
Caption = 'Show State'
|
|
TabOrder = 6
|
|
OnClick = btnShowStateClick
|
|
end
|
|
object btnRemoveZombie: TButton
|
|
Left = 224
|
|
Top = 106
|
|
Width = 90
|
|
Height = 25
|
|
Caption = 'Remove Zombie'
|
|
TabOrder = 7
|
|
OnClick = btnRemoveZombieClick
|
|
end
|
|
object btnExecuteAndWait: TButton
|
|
Left = 120
|
|
Top = 106
|
|
Width = 98
|
|
Height = 25
|
|
Caption = 'Execute and wait'
|
|
TabOrder = 8
|
|
OnClick = btnExecuteAndWaitClick
|
|
end
|
|
object btnDynamicCreation: TButton
|
|
Left = 12
|
|
Top = 106
|
|
Width = 102
|
|
Height = 25
|
|
Caption = 'Dynamic Creation'
|
|
TabOrder = 9
|
|
OnClick = btnDynamicCreationClick
|
|
end
|
|
end
|
|
end
|
|
object Memo: TMemo
|
|
Left = 397
|
|
Top = 0
|
|
Width = 355
|
|
Height = 483
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
Lines.Strings = (
|
|
'(Double click to clear log)')
|
|
ParentFont = False
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
OnDblClick = MemoDblClick
|
|
end
|
|
object JvThread1: TJvThread
|
|
Exclusive = False
|
|
MaxCount = 5
|
|
RunOnCreate = True
|
|
FreeOnTerminate = True
|
|
ThreadDialog = JvThreadSimpleDialog1
|
|
BeforeResume = JvThreadBeforeResume
|
|
OnBegin = JvThreadBegin
|
|
OnExecute = JvThread1Execute
|
|
OnFinish = JvThread1Finish
|
|
OnFinishAll = JvThread1FinishAll
|
|
Left = 10
|
|
Top = 18
|
|
end
|
|
object JvThread2: TJvThread
|
|
Exclusive = False
|
|
MaxCount = 10
|
|
RunOnCreate = True
|
|
FreeOnTerminate = True
|
|
ThreadDialog = JvThreadAnimateDialog1
|
|
BeforeResume = JvThreadBeforeResume
|
|
OnBegin = JvThreadBegin
|
|
OnExecute = JvThread2Execute
|
|
OnFinish = JvThread2Finish
|
|
OnFinishAll = JvThread2FinishAll
|
|
Left = 10
|
|
Top = 180
|
|
end
|
|
object JvThreadSimpleDialog1: TJvThreadSimpleDialog
|
|
DialogOptions.FormStyle = fsNormal
|
|
DialogOptions.ShowDialog = True
|
|
DialogOptions.ShowModal = False
|
|
DialogOptions.CancelButtonCaption = 'Cancel'
|
|
DialogOptions.Caption = 'Job 1 Simple Dialog '
|
|
DialogOptions.InfoText = 'Infotext'
|
|
DialogOptions.ShowProgressBar = True
|
|
Left = 340
|
|
Top = 40
|
|
end
|
|
object JvThreadAnimateDialog1: TJvThreadAnimateDialog
|
|
DialogOptions.FormStyle = fsNormal
|
|
DialogOptions.ShowDialog = True
|
|
DialogOptions.ShowModal = False
|
|
DialogOptions.CancelButtonCaption = 'Cancel'
|
|
DialogOptions.Caption = 'Job 2 Animated Dialog '
|
|
DialogOptions.InfoText = 'Info'
|
|
DialogOptions.CommonAVI = aviFindComputer
|
|
Left = 339
|
|
Top = 202
|
|
end
|
|
object tmrStatus: TTimer
|
|
Interval = 200
|
|
OnTimer = tmrStatusTimer
|
|
Left = 440
|
|
Top = 408
|
|
end
|
|
object tmrAuto: TTimer
|
|
OnTimer = tmrAutoTimer
|
|
Left = 408
|
|
Top = 408
|
|
end
|
|
object JvThreadSimpleDialog3: TJvThreadSimpleDialog
|
|
DialogOptions.FormStyle = fsNormal
|
|
DialogOptions.ShowDialog = True
|
|
DialogOptions.ShowModal = False
|
|
DialogOptions.CancelButtonCaption = 'Cancel'
|
|
DialogOptions.Caption = 'Job 3 Simple Dialog '
|
|
DialogOptions.InfoText = 'Infotext'
|
|
DialogOptions.ShowProgressBar = True
|
|
Left = 84
|
|
Top = 448
|
|
end
|
|
end
|