object Form1: TForm1 Left = 141 Top = 186 Width = 492 Height = 365 Caption = 'FreeView Graphics Viewer' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 ShowHint = True OnActivate = FormActivate OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 48 Width = 145 Height = 271 Align = alLeft TabOrder = 0 object Label2: TLabel Left = 10 Top = 159 Width = 111 Height = 13 Alignment = taCenter AutoSize = False Caption = 'Label2' end object SpeedButton3: TSpeedButton Left = 127 Top = 155 Width = 15 Height = 20 Hint = 'Resize file list box.' AllowAllUp = True Caption = '>' Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton3Click end object ListBox1: TListBox Left = 8 Top = 176 Width = 129 Height = 199 Hint = 'Click to select.' IntegralHeight = True ItemHeight = 13 MultiSelect = True TabOrder = 2 OnClick = ListBox1Click end object DriveComboBox1: TDriveComboBox Left = 8 Top = 8 Width = 130 Height = 21 TabOrder = 0 OnChange = DriveComboBox1Change end object DirectoryListBox1: TDirectoryListBox Left = 8 Top = 32 Width = 130 Height = 121 Hint = 'Double click to select.' ItemHeight = 16 TabOrder = 1 OnClick = DirectoryListBox1Click OnDblClick = DirectoryListBox1DblClick end end object Panel2: TPanel Left = 0 Top = 28 Width = 484 Height = 20 Align = alTop TabOrder = 1 object Label1: TLabel Left = 8 Top = 4 Width = 3 Height = 14 Font.Color = clMaroon Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object ProgressBar1: TProgressBar Left = 410 Top = 6 Width = 40 Height = 9 Min = 0 Max = 100 TabOrder = 0 Visible = False end end object Panel3: TPanel Left = 145 Top = 48 Width = 339 Height = 271 Align = alClient BevelOuter = bvLowered BevelWidth = 2 TabOrder = 2 object Label5: TLabel Left = 8 Top = 8 Width = 119 Height = 16 Caption = 'File Loading Error!' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Visible = False end object Image1: TImage Left = 2 Top = 2 Width = 335 Height = 267 Align = alClient Center = True Visible = False end object wiaTile1: TwiaTile Left = 2 Top = 2 Width = 335 Height = 267 TranColor = clBlack TileMode = tmNormal Visible = False end object GIFImage1: TGIFImage Left = 2 Top = 2 Width = 335 Height = 267 Align = alClient Animate = True AutoSize = False Center = True CurrentFrame = 0 Loop = True Stretch = False Tile = False Visible = True OnChanging = GIFImage1Changing end end object Panel4: TPanel Left = 0 Top = 0 Width = 484 Height = 28 Align = alTop TabOrder = 3 object ScanBtn: TSpeedButton Left = 3 Top = 2 Width = 25 Height = 25 Hint = 'Scan directory' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FFFFF FFF000003333333FFFFFFFF000003333333BFBFBFBF0FFF03333333999999BF0 FFF03333333FFFFFFF000000333339999999999000003333333BFBFBF0FBFBFB 3339999BFBFBF9999BFB3333333F00000FF000003399933F00000FF990003333 333B0FFF0000FFF03399993B0FFF000099F03333333F00000FF000003399999F 00000FF099003333330BFBFBF0FBFBFB399399999BFBF0FBF99B33333010FFFF FF0000003993399999FFFF000990333330180BFBFBF0FFF039933019999BFBF0 F9903333301180FFFFF00000399330119999FFF0099033330811190BFBFBFBFB 3993081119999BFBF99B333307719990FFFFFFFF339907719999999F99FF3330 77FF999903333333339977FF99999999993333077FFFF0003333333333099FFF F000399993333077FFF0033333333333307999F0033333999333077FFF033333 33333333077F999933339999933307FFF09333333333333307FFF09999999933 333330FF093333333333333330FF093399993333333333003333333333333333 33003333333333333333} NumGlyphs = 2 OnClick = DirectoryListBox1DblClick end object SpeedButton2: TSpeedButton Left = 29 Top = 2 Width = 25 Height = 25 Hint = 'Save File' Glyph.Data = { 5A010000424D5A01000000000000760000002800000012000000130000000100 040000000000E400000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 888888000000888888888888888888000000800000000000000888000000800B FBFBFBFBFB08880000008070BFBFBFBFBFB08800000080B0FBFBFBFBFBF08800 00008070BFBFBFBFBFB08800000080B77BFBFBFBFBFB78000000807B7FBFBFBF BFBF7800000080B777777777777778000000807B7B7EEEE77B78880000008000 B7B0EEE77778880000008888000EEEE7888888000000888880EEE0E788888800 000088880EEE08778888880000008880EEE0888788888800000088880E088888 888888000000888880888888888888000000888888888888888888000000} OnClick = SaveAs1Click end object ZoomBtn: TSpeedButton Left = 80 Top = 2 Width = 25 Height = 25 Hint = 'Zoom to fill' AllowAllUp = True GroupIndex = 13 Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAAAAAAAA00A00007777777777770000A00A00777777777777777700A00A070 77777777777777070A00A07707777777777770770A00A7777077777777770777 7A00A77777B30B0B303B77777A00A777770B33B303B077777A00A77777E0B0B0 3B0E77777A00A77777EE030E00EE77777A00A77777EEE0EEEEEE77777A00A777 77EEEEEEEEEE77777A00A77777EEEEEEE00E77777A00A77777EEEEEE0BB07777 7A00A77777EEEEEE0BB077777A00A77777EEEEEEE00E77777A00A77770777777 777707777A00A07707777777777770770A00A07077777777777777070A00A007 77777777777777700A00A00007777777777770000A00AAAAAAAAAAAAAAAAAAAA AA00} OnClick = ZoomBtnClick end object SlideShowBtn: TSpeedButton Left = 157 Top = 2 Width = 25 Height = 25 Hint = 'Slides Show' AllowAllUp = True GroupIndex = 6 Glyph.Data = { 80010000424D8001000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007FFFFFFFFFFFFFFFFFF700008777777777777777777F00008777 777777777777777F00008777777077777777777F00008777777007777777777F 00008777777000777777777F00008777777000077777777F0000877777700000 7777777F00008777777000000777777F00008777777000007777777F00008777 777000077777777F00008777777000777777777F00008777777007777777777F 00008777777077777777777F00008777777777777777777F0000877777777777 7777777F00007888888888888888888700007777777777777777777700007777 7777777777777777000000000000000000000000000000000000000000000000 00000000} OnClick = SlideShowBtnClick end object HelpButton: TSpeedButton Left = 416 Top = 2 Width = 26 Height = 25 Hint = 'Help' Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888800008888888888888888888800008888888887778888888800008888 8888600788888888000088888888E60788888888000088888888EE6888888888 000088888888877788888888000088888888600788888888000088888888E607 78888888000088888888E660778888880000888888888E660778888800008888 888878E660778888000088888880778E660788880000888888660778E6078888 0000888888E66077E608888800008888888E660066688888000088888888E666 6E8888880000888888888EEEE888888800008888888888888888888800008888 88888888888888880000} OnClick = HelpButtonClick end object StopBtn: TSpeedButton Left = 3 Top = 2 Width = 25 Height = 25 Hint = 'Stop Scanning' Glyph.Data = { 80010000424D8001000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777700007777711111111177777700007777199999999917777700007771 9999999999917777000077199999999999991777000071999999999999999177 000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9 F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917 0000719999999999999991770000771999999999999917770000777199999999 9991777700007777199999999917777700007777711111111177777700007777 7777777777777777000000000000000000000000000000000000000000000000 00000000} Visible = False OnClick = StopBtnClick end object CopytoClipbrd: TSpeedButton Left = 54 Top = 2 Width = 25 Height = 25 Hint = 'Copy to Clipboard' AllowAllUp = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077 007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000 7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039 99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 OnClick = CopytoClipbrdClick end object TileBtn: TSpeedButton Left = 131 Top = 2 Width = 25 Height = 25 Hint = 'Tile Image' AllowAllUp = True GroupIndex = 5 Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000 00000000000004744499444999444490000004474FFFF99FFFF99FF000000444 74994444994444900000044474994444994444900000044447FFF99FFFF99FF0 000004444479444499444490000004444447444499444490000004444444799F FFF99FF000000444444447449944449000000444444FFF449944449000000444 4444FF7FFFF99FF0000004444F4F4F4799444490000004444FF4444479444490 000004444FFF444447F99FF00000044444444444447444900000044994444444 44744490000004499444444444479FF0000009FFFF9444444444749000000000 00000000000000000000} OnClick = TileBtnClick end object AnimationBtn: TSpeedButton Left = 228 Top = 2 Width = 25 Height = 25 Hint = 'GIF Animate On/Off' AllowAllUp = True GroupIndex = 7 Down = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777000077777777777777777777000077F6788686886868868700006637 37786866868668670000777F7FF786886868868700006637B778780086866867 00006637B7787800868668670000887F7FF98000686886870000668789987000 8686686700008868688700006868868700006686800078000686686700006686 800078000686686700008868000007FF0068868700006686866868FFF0066867 0000886868868688FF00068700006686866868668FF000670000668686686866 8FF000670000886868868688686FF00700006686866868668686680700008868 68868688686886870000} OnClick = AnimationBtnClick end object StepBtn: TSpeedButton Left = 253 Top = 2 Width = 25 Height = 25 Hint = 'Ani-GIF Next Frame' AllowAllUp = True Enabled = False Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000001000000010000000000000000000 BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDD0000DD000000000000000DDD0000DD0F0DDDDD00000F0DDD0000DD00 0DDD807FEF00008D0000DD000DDD0EFEFE000F0D0000DD0F0D007FEFEF0F0E70 0000DD000000000000000FE00000DD000000000000000FE00000DD0F08007676 760F0EF00000DD000800676767000FE00000DD000000000000000EF00000DD0F 08006767670F0F700000DD000000000000000E0D0000DD00088808676700008D 0000DD0F08880867670F008D0000DD000000000000000DDD0000DD0008888888 88000DDD0000DD0F08888888880F0DDD0000DD000000000000000DDD0000DDDD DDDDDDDDDDDDDDDD0000} OnClick = StepBtnClick end object BkgClrBtn: TSpeedButton Left = 278 Top = 2 Width = 25 Height = 25 Hint = 'Background Color' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777700000000000000000077FFFFFFFFFFFFFFF FFF7700777777777777700077FFFFFFFFFFFFFFFFFF770075557AAA7DDD70007 7FFFFFFFFFFFFFFFFFF770075557AAA7DDD700077FFFFFFFFFFFFFFFFFF77007 5557AAA7DDD700077FFFFFFFFFFFFFFFFFF7700777777777777700077FFFFFFF FFFFFFFFFFF77007EEE71117CCC700077FFFFFFFFFFFFFFFFFF77007EEE71117 CCC700077FFFFFFFFFFFFFFFFFF77007EEE71117CCC700077FFFFFFFFFFFFFFF FFF7700777777777777700077FFFFFFFFFFFFFFFFFF7700799973337BBB70007 7FFFFFFFFFFFFFFFFFF7700799973337BBB700077FFFFFFFFFFFFFFFFFF77007 99973337BBB700077FFFFFFFFFFFFFFFFFF7700777777777777700077FFFFFFF FFFFFFFFFFF7700000000000000000077FFFFFFFFFFFFFFFFFF7700000000000 000000077FFFFFFFFFFFFFFFFFF77CCCCCCCCCCCCCCCCCC77CCCCCCCCCCCCCCC CCC77CCCCCCCCCCCCCCCCCC77CCCCCCCCCCCCCCCCCC777777777777777777777 77777777777777777777} NumGlyphs = 2 OnClick = BkgClrBtnClick end object SpeedButton1: TSpeedButton Left = 388 Top = 2 Width = 25 Height = 25 Hint = 'Thumb nail view' AllowAllUp = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000 0000000000000FFFFFFFFFFFFFFFFFF000000F000F000F000F000FF000000F66 6F222F666F222FF000000F6B6F2B2F6B6F2B2FF000000F666F222F666F222FF0 00000FFFFFFFFFFFFFFFFFF000000F000F000F000F000FF000000F222F666F22 2F666FF000000F2B2F6B6F2B2F6B6FF000000F222F666F222F666FF000000FFF FFFFFFFFFFFFFFF000000F000F000F000F000FF000000F666F222F666F222FF0 00000F6B6F2B2F6B6F2B2FF000000F666F222F666F222FF000000FFFFFFFFFFF FFFFFFF000000CCCCCCCCCCCCCCCCCC000000CCCCCCCCCCCCCCCCCC000000000 00000000000000000000} OnClick = SpeedButton1Click end object Label3: TLabel Left = 310 Top = 2 Width = 36 Height = 12 Caption = 'Selected' Font.Color = clBlack Font.Height = -9 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object ReduceBtn: TSpeedButton Left = 106 Top = 2 Width = 25 Height = 25 Hint = 'Reduce to fit' AllowAllUp = True GroupIndex = 11 Down = True Glyph.Data = { 7E010000424D7E01000000000000760000002800000016000000160000000100 0400000000000801000000000000000000000000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AAAAAAAAAAAA AAAAAAAAAA00A0EEEEEEEEEEEEEEEEEE0A00AE0EE0EEEEEEEEEE0EE0EA00AEE0 707777777777070EEA00AEE7007777777777007EEA00AE000077777777770000 EA00AEE777B30B0B303B777EEA00AEE7770B33B303B0777EEA00AEE777E0B0B0 3B0E777EEA00AEE777EE030E00EE777EEA00AEE777EEE0EEEEEE777EEA00AEE7 77EEEEEEEEEE777EEA00AEE777EEEEEEE00E777EEA00AEE777EEEEEE0BB0777E EA00AEE777EEEEEE0BB0777EEA00AEE777EEEEEEE00E777EEA00AE0000777777 77770000EA00AEE7007777777777007EEA00AEE0707777777777070EEA00AE0E E0EEEEEEEEEE0EE0EA00A0EEEEEEEEEEEEEEEEEE0A00AAAAAAAAAAAAAAAAAAAA AA00} OnClick = ReduceBtnClick end object Label4: TLabel Left = 310 Top = 13 Width = 3 Height = 13 Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object SpinEdit1: TSpinEdit Left = 183 Top = 4 Width = 43 Height = 22 Hint = 'Slide delay' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxValue = 999 MinValue = 1 ParentFont = False TabOrder = 0 Value = 4 end end object TreeScanner1: TTreeScanner OnDirectoryFound = TreeScanner1DirectoryFound OnDirectoryDone = TreeScanner1DirectoryDone OnFileFound = TreeScanner1FileFound FileMask = '*.*' Left = 24 Top = 280 end object MainMenu1: TMainMenu Left = 64 Top = 280 object File1: TMenuItem Caption = '&File' ShortCut = 0 object CopyToClipbrd1: TMenuItem Caption = '&Copy To Clipbrd' ShortCut = 16451 OnClick = CopyToClipbrd1Click end object Delete1: TMenuItem Caption = '&Delete' ShortCut = 16452 OnClick = Delete1Click end object Copy1: TMenuItem Caption = '&Multi Copy' ShortCut = 16461 OnClick = Copy1Click end object SaveAs1: TMenuItem Caption = '&Save As...' ShortCut = 16467 OnClick = SaveAs1Click end object ShowHints1: TMenuItem Caption = 'Show Hints' Checked = True ShortCut = 0 OnClick = ShowHints1Click end object Untag1: TMenuItem Caption = '&Untag' ShortCut = 16469 OnClick = Untag1Click end object Exit1: TMenuItem Caption = '&Quit' ShortCut = 16465 OnClick = Exit1Click end end object Options1: TMenuItem Caption = '&Options' ShortCut = 0 object ViewOptions1: TMenuItem Caption = '&View Options...' ShortCut = 0 OnClick = ViewOptions1Click end object Wallpaper1: TMenuItem Caption = ' &Wallpaper' ShortCut = 0 object Center1: TMenuItem Caption = 'Center' ShortCut = 0 OnClick = Center1Click end object Stretchtofit1: TMenuItem Caption = 'Stretch to fit' ShortCut = 0 OnClick = Stretchtofit1Click end object Tile1: TMenuItem Caption = 'Tile' ShortCut = 0 OnClick = Tile1Click end end end object View1: TMenuItem Caption = '&View' ShortCut = 0 object Zoom1: TMenuItem Caption = '&Zoom' ShortCut = 0 OnClick = Zoom1Click end object Reduce1: TMenuItem Caption = '&Reduce' ShortCut = 0 OnClick = Reduce1Click end object Tiled1: TMenuItem Caption = '&Tiled' ShortCut = 0 OnClick = TileBtnClick end object SlideShow1: TMenuItem Caption = '&Slide Show' ShortCut = 0 OnClick = SlideShow1Click end object Animategif1: TMenuItem Caption = '&Animate (gif)' ShortCut = 0 OnClick = Animategif1Click end object Transparentgif1: TMenuItem Caption = '&Next Frame (gif)' ShortCut = 0 OnClick = StepBtnClick end object BkgroundColor1: TMenuItem Caption = '&Bkground Color' ShortCut = 0 OnClick = BkgClrBtnClick end object Thumbnails1: TMenuItem Caption = 'T&humbnails' ShortCut = 0 OnClick = SpeedButton1Click end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 OnClick = HelpButtonClick end object About1: TMenuItem Caption = '&About' ShortCut = 0 OnClick = About1Click end end object SaveDialog1: TSaveDialog FileEditStyle = fsEdit Left = 104 Top = 280 end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 64 Top = 232 end object ColorDialog1: TColorDialog Ctl3D = True Left = 24 Top = 232 end object CopyFile1: TCopyFile Progress = False ShowFileNames = False Movefile = False Left = 80 Top = 152 end end