home *** CD-ROM | disk | FTP | other *** search
- object FGlowny: TFGlowny
- Left = 245
- Top = 204
- BorderStyle = bsDialog
- Caption = 'Kopiowanie - wyb�r katalogu'
- ClientHeight = 327
- ClientWidth = 443
- 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 = 351
- Top = 105
- Width = 76
- Height = 45
- Shape = bsTopLine
- Visible = False
- end
- object BitBtn5: TBitBtn
- Left = 352
- Top = 112
- Width = 77
- Height = 27
- Caption = 'Utw�rz'
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- 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 OkBtn: TButton
- Left = 352
- Top = 8
- Width = 81
- Height = 25
- Caption = '&Kopiuj'
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = OKBtnClick
- end
- object cancelBtn: TButton
- Left = 352
- Top = 40
- Width = 81
- Height = 25
- Caption = '&Anuluj'
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = CancelBtnClick
- end
- object HelpBtn: TButton
- Left = 352
- Top = 72
- Width = 81
- Height = 25
- Caption = '&Pomoc'
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 0
- Width = 329
- Height = 321
- Color = clBtnFace
- ParentColor = False
- TabOrder = 4
- object PathLabel: TLabel
- Left = 15
- Top = 18
- Width = 39
- Height = 13
- Caption = 'Ka&talog:'
- Color = clBlack
- FocusControl = Edit1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 15
- Top = 66
- Width = 91
- Height = 13
- Caption = '&Drzewo katalog�w:'
- Color = clBlack
- FocusControl = DirectoryListBox1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label4: TLabel
- Left = 15
- Top = 222
- Width = 29
- Height = 13
- Caption = 'Dy&ski:'
- Color = clBlack
- FocusControl = DriveComboBox1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label1: TLabel
- Left = 15
- Top = 268
- Width = 152
- Height = 13
- Caption = 'Ilo�� wolnego miejsca na dysku:'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 15
- Top = 283
- Width = 79
- Height = 13
- Caption = 'Do skopiowania:'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 15
- Top = 298
- Width = 149
- Height = 13
- Caption = 'Wolne miejsce po skopiowaniu:'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 200
- Top = 298
- Width = 99
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Label8'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 160
- Top = 283
- Width = 139
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Label7'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 205
- Top = 268
- Width = 94
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Label6'
- Color = clBlack
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Edit1: TEdit
- Left = 15
- Top = 37
- Width = 286
- Height = 21
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = 'Edit1'
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 15
- Top = 83
- Width = 286
- Height = 100
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- IntegralHeight = True
- ItemHeight = 16
- ParentFont = False
- TabOrder = 1
- OnChange = DirectoryListBox1Change
- end
- object DriveComboBox1: TDriveComboBox
- Left = 15
- Top = 239
- Width = 286
- Height = 19
- DirList = DirectoryListBox1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnChange = DriveComboBox1Change
- OnClick = DriveComboBox1Click
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 100
- OnTimer = Timer1Timer
- Left = 380
- Top = 175
- end
- end
-