74 lines
1.4 KiB
Plaintext
74 lines
1.4 KiB
Plaintext
object FormMain: TFormMain
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'ProgressTest'
|
|
ClientHeight = 187
|
|
ClientWidth = 635
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 226
|
|
Constraints.MinWidth = 350
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
DesignSize = (
|
|
635
|
|
187)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Button1: TButton
|
|
Left = 8
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Encrypt'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object Edit1: TEdit
|
|
Left = 104
|
|
Top = 18
|
|
Width = 523
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 1
|
|
Text = 'D:\Test.txt'
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 8
|
|
Top = 64
|
|
Width = 619
|
|
Height = 17
|
|
Anchors = [akLeft, akTop, akRight]
|
|
TabOrder = 2
|
|
end
|
|
object RadioButtonMethod: TRadioButton
|
|
Left = 8
|
|
Top = 96
|
|
Width = 193
|
|
Height = 17
|
|
Caption = 'Use method as progress event'
|
|
Checked = True
|
|
TabOrder = 3
|
|
TabStop = True
|
|
end
|
|
object RadioButtonProcedure: TRadioButton
|
|
Left = 8
|
|
Top = 128
|
|
Width = 193
|
|
Height = 17
|
|
Caption = 'Use procedure as progress event'
|
|
TabOrder = 4
|
|
end
|
|
object RadioButtonAnonMethod: TRadioButton
|
|
Left = 8
|
|
Top = 162
|
|
Width = 233
|
|
Height = 17
|
|
Caption = 'Use anonymous method as progress event'
|
|
TabOrder = 5
|
|
end
|
|
end
|