90 lines
2.0 KiB
Plaintext
90 lines
2.0 KiB
Plaintext
object frmDSAExamplesProgressDlg: TfrmDSAExamplesProgressDlg
|
|
Left = 240
|
|
Top = 246
|
|
ActiveControl = edItems
|
|
AutoScroll = False
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Queue test form.'
|
|
ClientHeight = 187
|
|
ClientWidth = 253
|
|
Color = clButton
|
|
Constraints.MaxHeight = 187
|
|
Constraints.MinHeight = 187
|
|
Constraints.MinWidth = 253
|
|
Font.Color = clText
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = []
|
|
Font.Weight = 40
|
|
ParentFont = False
|
|
Position = poOwnerFormCenter
|
|
OnCloseQuery = FormCloseQuery
|
|
OnResize = FormResize
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
TextWidth = 6
|
|
object pbProgress: TJvProgressBar
|
|
Left = 20
|
|
Top = 144
|
|
Width = 210
|
|
Height = 16
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Smooth = True
|
|
end
|
|
object lblItemCount: TLabel
|
|
Left = 10
|
|
Top = 10
|
|
Width = 123
|
|
Height = 13
|
|
Caption = 'Enter the number of items:'
|
|
end
|
|
object lblNote: TLabel
|
|
Left = 20
|
|
Top = 30
|
|
Width = 204
|
|
Height = 65
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Caption =
|
|
'Note: You can only end this test by selecting the Cancel or No o' +
|
|
'ption from the message dialog. When the dialog is suppressed, yo' +
|
|
'u can not end the progress.'
|
|
Font.Color = clRed
|
|
Font.Height = 11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Pitch = fpVariable
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
WordWrap = True
|
|
end
|
|
object edItems: TEdit
|
|
Left = 140
|
|
Top = 5
|
|
Width = 100
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 0
|
|
Text = '1000'
|
|
end
|
|
object btnStart: TButton
|
|
Left = 45
|
|
Top = 105
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Start'
|
|
Default = True
|
|
TabOrder = 1
|
|
OnClick = btnStartClick
|
|
end
|
|
object btnCancel: TButton
|
|
Left = 125
|
|
Top = 105
|
|
Width = 75
|
|
Height = 25
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
ModalResult = 2
|
|
TabOrder = 2
|
|
end
|
|
end
|