home *** CD-ROM | disk | FTP | other *** search
- object FileForm: TFileForm
- Left = 333
- Top = 231
- Width = 413
- Height = 310
- Caption = 'VidFun Explorer'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- KeyPreview = True
- OnActivate = FormActivate
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnResize = FormResize
- PixelsPerInch = 120
- TextHeight = 16
- object PanelTop: TPanel
- Left = 0
- Top = 0
- Width = 405
- Height = 41
- Align = alTop
- Alignment = taLeftJustify
- BevelOuter = bvNone
- PopupMenu = MainMenu
- TabOrder = 0
- object BtnUp: TSpeedButton
- Left = 273
- Top = 5
- Width = 29
- Height = 28
- Hint = 'Up One Level'
- AllowAllUp = True
- Glyph.Data = {
- EE000000424DEE000000000000007600000028000000100000000F0000000100
- 0400000000007800000000000000000000001000000010000000000000008000
- 00000080000080800000000080008000800000808000C0C0C00080808000FF00
- 000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00666666666666
- 6666600000000000000688888888888888068FE7E7E7E7E7E8068F7E7E00007E
- 78068FE7E707E7E7E8068F7E7E0E7E7E78068FE7000007E7E8068F7E70007E7E
- 78068FE7E707E7E7E8068FFFFFFFFFFFF80687E7E7E788888866687E7E786666
- 666666888886666666666666666666666666}
- ParentShowHint = False
- ShowHint = True
- OnClick = BtnUpClick
- end
- object LabelList: TLabel
- Left = 5
- Top = 7
- Width = 64
- Height = 24
- AutoSize = False
- Caption = 'Look &in:'
- FocusControl = LookBox
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object BtnMenu: TSpeedButton
- Left = 306
- Top = 5
- Width = 29
- Height = 28
- Hint = 'Goodies'
- AllowAllUp = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
- 8888870000000000888887FFFFFFFFF0888887F4444444F0888887FFFFFFFFF0
- 8888874444444440888887FFFFFFFFF0888887F4444FFFF0888887FFFFFFFFF0
- 888887F44444FFF0888887FFFFFFFFF0888877777777777700087F44444FFFFF
- FF787F4FFF4F444F44777F44444FFFFFFFF77777777777777777}
- ParentShowHint = False
- ShowHint = True
- OnClick = BtnMenuClick
- end
- object BtnHelp: TSpeedButton
- Left = 342
- Top = 5
- Width = 28
- Height = 28
- Hint = 'Help'
- AllowAllUp = True
- Glyph.Data = {
- F6000000424DF60000000000000076000000280000000C000000100000000100
- 0400000000008000000000000000000000001000000010000000000000000000
- BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333366333333
- 00003336446333330000333E6643333300003333E66333330000333333333333
- 000033334463333300003336664333330000333E6664333300003333E6664333
- 000033333E6664330000344333E6664300006664333E66430000E66644466643
- 00003E6666666663000033EE6666663300003333EEEEE3330000}
- ParentShowHint = False
- ShowHint = True
- OnClick = BtnHelpClick
- end
- object BtnJPEG: TSpeedButton
- Left = 374
- Top = 5
- Width = 28
- Height = 28
- Hint = 'JPEG Compression'
- AllowAllUp = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000008000
- 00000080000080800000000080008000800000808000C0C0C00080808000FF00
- 000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00777777777777
- 77777111112222444477711BB122AA24CC77711BBB2AA2CCCC777711B112AA2C
- C477771111122224444777711112222444477777777777777777700000000000
- 00077088887777FF77077088887777FF77077088887777FF7707700088877FF7
- 0007777088877FF70777777088877FF70777777088877FF70777}
- ParentShowHint = False
- ShowHint = True
- Visible = False
- OnClick = BtnJPEGClick
- end
- object LookBox: TDriveComboBox
- Left = 74
- Top = 7
- Width = 192
- Height = 22
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnChange = LookBoxChange
- OnClick = LookBoxClick
- end
- end
- object PanelList: TPanel
- Left = 0
- Top = 41
- Width = 405
- Height = 163
- Align = alClient
- BevelOuter = bvLowered
- Caption = 'PanelList'
- TabOrder = 1
- object XFiles: XFileListBox
- Left = 1
- Top = 1
- Width = 403
- Height = 161
- Align = alClient
- Enabled = False
- FileType = []
- ItemHeight = 16
- MultiSelect = True
- PopupMenu = FileMenu
- ShowGlyphs = True
- TabOrder = 0
- OnClick = XFilesClick
- OnDblClick = XFilesDblClick
- OnKeyDown = XFilesKeyDown
- Columns = 2
- Sorted = True
- end
- object InputList: TListBox
- Left = 1
- Top = 1
- Width = 403
- Height = 161
- Hint = 'Right-click or press Esc to go back'
- Align = alClient
- Color = clBtnHighlight
- Columns = 4
- ExtendedSelect = False
- ItemHeight = 16
- ParentShowHint = False
- PopupMenu = FileMenu
- ShowHint = True
- TabOrder = 1
- Visible = False
- end
- end
- object PanelButtons: TPanel
- Left = 0
- Top = 204
- Width = 405
- Height = 79
- Align = alBottom
- BevelOuter = bvNone
- PopupMenu = MainMenu
- TabOrder = 2
- object LabelCurrDir: TLabel
- Left = 709
- Top = 6
- Width = 82
- Height = 20
- Caption = 'D:w95fun01'
- Visible = False
- end
- object LabelName: TLabel
- Left = 5
- Top = 10
- Width = 64
- Height = 23
- AutoSize = False
- Caption = 'File &name:'
- FocusControl = Edit1
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 5
- Top = 44
- Width = 64
- Height = 24
- AutoSize = False
- Caption = 'File &type:'
- FocusControl = FilterComboBox1
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Image1: TImage
- Left = 410
- Top = 9
- Width = 24
- Height = 24
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Image2: TImage
- Left = 410
- Top = 48
- Width = 24
- Height = 25
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object Edit1: TEdit
- Left = 74
- Top = 10
- Width = 192
- Height = 24
- TabStop = False
- Color = clBtnHighlight
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- PopupMenu = FileMenu
- ReadOnly = True
- TabOrder = 0
- OnChange = Edit1Change
- OnKeyPress = Edit1KeyPress
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 512
- Top = 41
- Width = 86
- Height = 21
- TabStop = False
- DirLabel = LabelCurrDir
- ItemHeight = 16
- TabOrder = 1
- Visible = False
- OnChange = DirectoryListBox1Change
- end
- object DriveBox: TDriveComboBox
- Left = 513
- Top = 9
- Width = 49
- Height = 22
- TabStop = False
- DirList = DirectoryListBox1
- TabOrder = 2
- Visible = False
- end
- object BtnOK: TBitBtn
- Left = 274
- Top = 9
- Width = 90
- Height = 32
- Caption = '&Open'
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 1
- ParentFont = False
- TabOrder = 3
- OnClick = BtnOKClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000008000
- 00000080000080800000000080008000800000808000C0C0C00080808000FF00
- 000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00666666666666
- 6666666666666666666666668866666666666662188666666666662221886666
- 66666622221886666666662222218866666666221A2218866666662218A22188
- 666666A2166A2218866666666666A2218866666666666A2218666666666666A2
- 286666666666666A286666666666666666666666666666666666}
- Style = bsNew
- end
- object BtnExit: TBitBtn
- Left = 274
- Top = 44
- Width = 90
- Height = 32
- Caption = '&Close'
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ModalResult = 2
- ParentFont = False
- TabOrder = 4
- OnClick = BtnExitClick
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000000000000000000000000000008000
- 00000080000080800000000080008000800000808000C0C0C00080808000FF00
- 000000FF0000FFFF00000000FF00FF00FF0000FFFF00FFFFFF00666666666666
- 66666666666666666666666886666866666666408866088666666644088C4088
- 666666C440C44406666666C4444440666666666C4444066666666666C4448866
- 66666666C44408866666666644C440886666666C406C4408866666644866C440
- 6666666CC6666C46666666666666666666666666666666666666}
- Style = bsNew
- end
- object FilterComboBox1: TComboBox
- Left = 74
- Top = 44
- Width = 192
- Height = 24
- Style = csDropDownList
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- '*.* any file (No validation)'
- 'All validated formats'
- 'All graphics formats'
- 'All multimedia formats'
- 'AVI (Video for Windows)'
- 'AVL (AV List Slideshow)'
- 'BMP,DIB (Windows,OS/2)'
- 'CAL (CALS Group 4 B/W)'
- 'CMP (LEAD '#39'JPEG'#39')'
- 'DCX (Intel MultiPage PCX)'
- 'FLI,FLC,FLX (Autodesk)'
- 'JPEG (JFIF compliant)'
- 'KQP (Konica Quality Photo)'
- 'MID (MIDI music)'
- 'MAC (Apple B&W)'
- 'MOV (Apple Quicktime)'
- 'MPG (MPEG)'
- 'PIC (Pegasus '#39'JPEG'#39')'
- 'PCD Kodak PhotoCD'
- 'PCT (Mac PiCT)'
- 'PCX (ZSoft Paintbrush)'
- 'PNG (Portable Network Graphics)'
- 'RAS (Sun RASter)'
- 'TIF (Aldus TIFF)'
- 'TGA (Truevision TarGA)'
- 'WAV (Wavform Audio)'
- 'WPG (WordPerfect Graphic)')
- ParentFont = False
- ParentShowHint = False
- PopupMenu = MainMenu
- ShowHint = False
- TabOrder = 5
- OnChange = FilterComboBox1Change
- end
- object BPPtype: TComboBox
- Left = 74
- Top = 10
- Width = 192
- Height = 24
- Style = csDropDownList
- Font.Color = clWindowText
- Font.Height = -15
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- Items.Strings = (
- '16M Colors (24 bits)'
- '64K Colors (16 bits)'
- '256 Colors (8 bits)'
- '16 Colors (4-bits)'
- 'Black & White (1 bit)')
- ParentFont = False
- TabOrder = 6
- Visible = False
- OnChange = BPPtypeChange
- end
- end
- object FileMenu: TPopupMenu
- Left = 309
- Top = 112
- object mnuFLevel: TMenuItem
- Caption = 'Up One &Level'
- ShortCut = 0
- OnClick = mnuFLevelClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object mnuFOpen: TMenuItem
- Caption = '&Open'
- ShortCut = 0
- OnClick = mnuFOpenClick
- end
- object mnuFInfo: TMenuItem
- Caption = '&Info'
- Enabled = False
- ShortCut = 0
- OnClick = mnuFInfoClick
- end
- object mnuFPreview: TMenuItem
- Caption = '&Preview'
- Enabled = False
- ShortCut = 0
- OnClick = mnuFPreviewClick
- end
- object mnuFRename: TMenuItem
- Caption = 'Renam&e'
- Enabled = False
- ShortCut = 0
- OnClick = mnuFRenameClick
- end
- object mnuFDelete: TMenuItem
- Caption = '&Delete'
- Enabled = False
- ShortCut = 0
- OnClick = mnuFDeleteClick
- end
- object mnuRefresh: TMenuItem
- Caption = 'Refres&h'
- ShortCut = 0
- OnClick = mnuRefreshClick
- end
- object MarkDirectory: TMenuItem
- Caption = '&Mark all files'
- ShortCut = 0
- OnClick = MarkDirectoryClick
- end
- object UnmarkDirectory: TMenuItem
- Caption = '&Unmark all files'
- ShortCut = 0
- OnClick = UnmarkDirectoryClick
- end
- object BatchConvert: TMenuItem
- Caption = '&Convert file(s)'
- ShortCut = 0
- OnClick = BatchConvertClick
- end
- object InstantSlideshow: TMenuItem
- Caption = 'Instant &slideshow'
- ShortCut = 0
- OnClick = InstantSlideshowClick
- end
- object mnuListInput: TMenuItem
- Caption = '&View input files'
- ShortCut = 0
- Visible = False
- OnClick = mnuListInputClick
- end
- end
- object MainMenu: TPopupMenu
- Left = 345
- Top = 76
- object mnuOptimizeWin: TMenuItem
- Caption = '&Optimize files list'
- ShortCut = 0
- OnClick = mnuOptimizeWinClick
- end
- object mnuMaxWin: TMenuItem
- Caption = 'Maximi&ze files list'
- ShortCut = 0
- OnClick = mnuOptimizeWinClick
- end
- object mnuFont: TMenuItem
- Caption = 'Change &font'
- ShortCut = 0
- OnClick = mnuFontClick
- end
- object mnuResetWin: TMenuItem
- Caption = '&Reset window'
- ShortCut = 0
- OnClick = mnuResetWinClick
- end
- object mnuLowercase: TMenuItem
- Caption = '&Lowercase'
- Checked = True
- ShortCut = 0
- OnClick = mnuLowercaseClick
- end
- object mnuDirLast: TMenuItem
- Caption = 'Folders &after files'
- ShortCut = 0
- OnClick = mnuDirLastClick
- end
- object mnuOneCol: TMenuItem
- Caption = 'Singl&e column'
- ShortCut = 0
- OnClick = mnuOneColClick
- end
- object PreviewMode: TMenuItem
- Caption = '&Preview mode'
- ShortCut = 0
- OnClick = PreviewModeClick
- end
- end
- object FontDialog1: TFontDialog
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 6
- MaxFontSize = 14
- Options = [fdAnsiOnly, fdLimitSize]
- Left = 232
- Top = 129
- end
- end
-