58 lines
1.1 KiB
Plaintext
58 lines
1.1 KiB
Plaintext
object Form1: TForm1
|
|
Left = 353
|
|
Height = 240
|
|
Top = 214
|
|
Width = 680
|
|
ClientHeight = 240
|
|
ClientWidth = 680
|
|
LCLVersion = '2.0.0.4'
|
|
object lblCopyFrom: TLabel
|
|
Left = 20
|
|
Height = 19
|
|
Top = 20
|
|
Width = 118
|
|
Caption = 'Copy from file:'
|
|
ParentColor = False
|
|
end
|
|
object edtCopyFrom: TFileNameEdit
|
|
Left = 20
|
|
Height = 31
|
|
Top = 48
|
|
Width = 515
|
|
FileName = 'edtCopyFrom'
|
|
OnAcceptFileName = edtCopyFromAcceptFileName
|
|
FilterIndex = 0
|
|
HideDirectories = False
|
|
ButtonWidth = 23
|
|
NumGlyphs = 1
|
|
MaxLength = 0
|
|
TabOrder = 0
|
|
Text = 'edtCopyFrom'
|
|
end
|
|
object lblCopyToFile: TLabel
|
|
Left = 20
|
|
Height = 19
|
|
Top = 96
|
|
Width = 164
|
|
Caption = 'File will be copied to:'
|
|
ParentColor = False
|
|
end
|
|
object cbDate: TCheckBox
|
|
Left = 20
|
|
Height = 21
|
|
Top = 128
|
|
Width = 270
|
|
Caption = 'Copy original file''s date stamp.'
|
|
TabOrder = 1
|
|
end
|
|
object btnCopy: TButton
|
|
Left = 20
|
|
Height = 25
|
|
Top = 176
|
|
Width = 75
|
|
Caption = 'Copy file'
|
|
OnClick = btnCopyClick
|
|
TabOrder = 2
|
|
end
|
|
end
|