object FGlowny: TFGlowny Left = 118 Top = 70 BorderStyle = bsDialog Caption = 'Kopiowanie - wyb�r katalogu' ClientHeight = 333 ClientWidth = 422 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Position = poScreenCenter Scaled = False OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 335 Top = 105 Width = 76 Height = 45 Shape = bsTopLine Visible = False end object OKBtn: TBitBtn Left = 335 Top = 10 Width = 77 Height = 27 Caption = '&Kopiuj' Default = True Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 0 OnClick = OKBtnClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object CancelBtn: TBitBtn Left = 335 Top = 40 Width = 77 Height = 27 Caption = '&Anuluj' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = CancelBtnClick Kind = bkCancel Margin = 2 Spacing = -1 IsControl = True end object HelpBtn: TBitBtn Left = 335 Top = 70 Width = 77 Height = 27 Caption = '&Pomoc' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 Visible = False OnClick = HelpBtnClick Kind = bkHelp Margin = 2 Spacing = -1 IsControl = True end object BitBtn5: TBitBtn Left = 335 Top = 115 Width = 77 Height = 27 Caption = 'Utw�rz' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 3 Visible = False OnClick = BitBtn5Click Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333 333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300 300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333 333337F373F773333333303330033333333337F3377333333333303333333333 333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333 333337777F337F33333330330BB00333333337F373F773333333303330033333 333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000 333377777F77377733330BBB0333333333337F337F33333333330BB003333333 333373F7733333333333300333333333333337733333333333330000} Margin = 2 NumGlyphs = 2 Spacing = -1 IsControl = True end object Panel1: TPanel Left = 10 Top = 10 Width = 316 Height = 311 BevelInner = bvRaised BevelOuter = bvLowered Caption = 'Panel1' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 4 object PathLabel: TLabel Left = 15 Top = 10 Width = 48 Height = 13 Caption = 'Ka&talog:' FocusControl = Edit1 end object Label3: TLabel Left = 15 Top = 58 Width = 109 Height = 13 Caption = '&Drzewo katalog�w:' FocusControl = DirectoryListBox1 end object Label4: TLabel Left = 15 Top = 214 Width = 36 Height = 13 Caption = 'Dy&ski:' FocusControl = DriveComboBox1 end object Label1: TLabel Left = 15 Top = 260 Width = 184 Height = 13 Caption = 'Ilo�� wolnego miejsca na dysku:' end object Label2: TLabel Left = 15 Top = 275 Width = 95 Height = 13 Caption = 'Do skopiowania:' end object Label5: TLabel Left = 15 Top = 290 Width = 179 Height = 13 Caption = 'Wolne miejsce po skopiowaniu:' end object Label6: TLabel Left = 205 Top = 260 Width = 94 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label6' end object Label7: TLabel Left = 160 Top = 275 Width = 139 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label7' end object Label8: TLabel Left = 200 Top = 290 Width = 99 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Label8' end object DirectoryListBox1: TDirectoryListBox Left = 15 Top = 75 Width = 286 Height = 116 IntegralHeight = True ItemHeight = 16 TabOrder = 0 OnChange = DirectoryListBox1Change end object DriveComboBox1: TDriveComboBox Left = 15 Top = 231 Width = 286 Height = 19 DirList = DirectoryListBox1 TabOrder = 1 OnChange = DriveComboBox1Change OnClick = DriveComboBox1Click end object Edit1: TEdit Left = 15 Top = 29 Width = 286 Height = 21 TabOrder = 2 Text = 'Edit1' end end object Timer1: TTimer Enabled = False Interval = 100 OnTimer = Timer1Timer Left = 380 Top = 175 end end