object DirForm: TDirForm Left = 308 Top = 251 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Pracovn� adres��' ClientHeight = 384 ClientWidth = 369 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = True OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 19 Top = 308 Width = 151 Height = 13 Caption = 'Po�et soubor� v tomto adres��i:' end object Label2s: TLabel Left = 19 Top = 284 Width = 334 Height = 13 AutoSize = False Caption = 'C:\Lojza\Projects\Renamer' end object DirectoryListBox1: TDirectoryListBox Left = 16 Top = 48 Width = 337 Height = 225 DirLabel = Label2s FileList = MainForm.FileListBox ItemHeight = 16 TabOrder = 0 OnChange = DirectoryListBox1Change end object DriveComboBox1: TDriveComboBox Left = 16 Top = 16 Width = 337 Height = 19 DirList = DirectoryListBox1 TabOrder = 1 end object FilesCountEdit: TEdit Left = 176 Top = 304 Width = 177 Height = 21 Enabled = False Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 2 end object CloseBtn: TButton Left = 19 Top = 349 Width = 75 Height = 25 Caption = 'Zav��t' TabOrder = 3 OnClick = CloseBtnClick end object StayOnTopCheckBox: TCheckBox Left = 112 Top = 353 Width = 241 Height = 17 Caption = 'Ponechat toto okno na pop�ed�' TabOrder = 4 OnClick = StayOnTopCheckBoxClick end end