home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn Internet 2001 September
/
MICD2001_09_NR1.iso
/
MICD.EXE
/
0
/
RCDATA
/
TMYCOPYFORM
/
TMYCOPYFORM.txt
Wrap
Text File
|
2001-08-13
|
3KB
|
138 lines
object MyCopyForm: TMyCopyForm
Left = 200
Top = 108
BorderIcons = []
BorderStyle = bsSingle
Caption = 'Kopiowanie'
ClientHeight = 260
ClientWidth = 405
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
Scaled = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 405
Height = 165
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object DriveComboBox1: TDriveComboBox
Left = 2
Top = 5
Width = 400
Height = 22
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnChange = DriveComboBox1Change
end
object DirectoryListBox1: TDirectoryListBox
Left = 2
Top = 28
Width = 400
Height = 132
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
OnChange = DirectoryListBox1Change
end
end
object Panel2: TPanel
Left = 0
Top = 167
Width = 405
Height = 51
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Z_label: TLabel
Left = 10
Top = 6
Width = 14
Height = 16
Caption = 'Z:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Z_txt: TLabel
Left = 40
Top = 6
Width = 3
Height = 16
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Do_label: TLabel
Left = 10
Top = 28
Width = 25
Height = 16
Caption = 'Do:'
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Do_txt: TLabel
Left = 40
Top = 28
Width = 3
Height = 16
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object Panel3: TPanel
Left = 0
Top = 220
Width = 405
Height = 40
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Kopiuj_but: TButton
Left = 115
Top = 8
Width = 75
Height = 25
Caption = 'Kopiuj'
TabOrder = 0
OnClick = Kopiuj_butClick
end
object Anuluj_but: TButton
Left = 215
Top = 8
Width = 75
Height = 25
Caption = 'Anuluj'
ModalResult = 2
TabOrder = 1
end
end
end