home *** CD-ROM | disk | FTP | other *** search
- object frmStuct: TfrmStuct
- Left = 275
- Top = 155
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Kopiowanie - wyb�r katalogu'
- ClientHeight = 306
- ClientWidth = 361
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poDesktopCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 0
- Top = 0
- Width = 281
- Height = 301
- TabOrder = 3
- object lblFree: TLabel
- Left = 15
- Top = 248
- Width = 152
- Height = 13
- Caption = 'Ilo�� wolnego miejsca na dysku:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCopy: TLabel
- Left = 15
- Top = 263
- Width = 79
- Height = 13
- Caption = 'Do skopiowania:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblFreeAfter: TLabel
- Left = 15
- Top = 278
- Width = 149
- Height = 13
- Caption = 'Wolne miejsce po skopiowaniu:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblFreeAfterV: TLabel
- Left = 168
- Top = 278
- Width = 99
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '???'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblCopyV: TLabel
- Left = 128
- Top = 263
- Width = 139
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '???'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblFreeV: TLabel
- Left = 173
- Top = 248
- Width = 94
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '???'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lblKatalog: TLabel
- Left = 15
- Top = 18
- Width = 39
- Height = 13
- Caption = 'Ka&talog:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 15
- Top = 74
- Width = 91
- Height = 13
- Caption = '&Drzewo katalog�w:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object StructDirectory: TDirectoryListBox
- Left = 15
- Top = 88
- Width = 250
- Height = 116
- IntegralHeight = True
- ItemHeight = 16
- TabOrder = 0
- OnChange = StructDirectoryChange
- OnKeyUp = StructDirectoryKeyUp
- end
- object cmbDrive: TDriveComboBox
- Left = 15
- Top = 211
- Width = 250
- Height = 19
- TabOrder = 1
- OnChange = cmbDriveChange
- OnKeyUp = cmbDriveKeyUp
- end
- object txtKatalog: TEdit
- Left = 15
- Top = 37
- Width = 250
- Height = 21
- TabOrder = 2
- Text = 'txtKatalog'
- OnKeyUp = txtKatalogKeyUp
- end
- end
- object btnKopiuj: TButton
- Left = 288
- Top = 8
- Width = 65
- Height = 22
- Caption = '&Kopiuj'
- Enabled = False
- TabOrder = 0
- OnClick = btnKopiujClick
- OnKeyUp = btnKopiujKeyUp
- end
- object btnAnuluj: TButton
- Left = 288
- Top = 32
- Width = 65
- Height = 22
- Caption = '&Anuluj'
- TabOrder = 1
- OnClick = btnAnulujClick
- OnKeyUp = btnAnulujKeyUp
- end
- object btnPomoc: TButton
- Left = 288
- Top = 56
- Width = 65
- Height = 22
- Caption = '&Pomoc'
- TabOrder = 2
- OnClick = btnPomocClick
- OnKeyUp = btnPomocKeyUp
- end
- object FirstS: TTimer
- Interval = 100
- OnTimer = FirstSTimer
- Left = 304
- Top = 96
- end
- end
-