object ViewerForm: TViewerForm Left = 72 Top = 92 Width = 630 Height = 470 Caption = 'ViewerForm' Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] KeyPreview = True Position = poScreenCenter Scaled = False OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseMove = FormMouseMove OnPaint = FormPaint OnResize = FormResize PixelsPerInch = 96 TextHeight = 15 object VSPanel: TPanel Left = 606 Top = 32 Width = 16 Height = 395 Align = alRight BevelOuter = bvNone TabOrder = 0 object VScroll: TScrollBar Left = 1 Top = 1 Width = 15 Height = 441 Kind = sbVertical LargeChange = 20 TabOrder = 0 OnChange = VScrollChange end end object SBPanel: TPanel Left = 0 Top = 0 Width = 622 Height = 32 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object FileOpenSB: TSpeedButton Left = 5 Top = 4 Width = 25 Height = 25 Hint = 'Open file' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333000000000003333300111111111033330B0111111111 03330FB01111111110330BFB0111111111030FBFB000000000000BFBFBFBFB03 33330FBFBFBFBF0333330BFB0000000333333000333333330003333333333333 3003333333330333030333333333300033333333333333333333} ParentShowHint = False ShowHint = True OnClick = FileOpenSBClick end object FindSB: TSpeedButton Left = 30 Top = 4 Width = 25 Height = 25 Hint = 'Find text' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333300000000000033000FFFFFFFFFF030000FFFFFFF000080030FFFFFF08778 08330FFFFF0877E880330FFFFF07777870330FFFFF07E77870330FFFFF08EE78 80330FFFFFF0877803330FFFFFFF000033330FFFFFFFFFF033330FFFFFFF0000 33330FFFFFFF070333330FFFFFFF003333330000000003333333} ParentShowHint = False ShowHint = True OnClick = FindSBClick end object CopySB: TSpeedButton Left = 55 Top = 4 Width = 25 Height = 25 Hint = 'Copy selected line to clipboard' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333344444444433333334FFFFFFF433333334F000 00F430000004FFFFFFF430FFFFF4F00000F430F00004FFFFFFF430FFFFF4F00F 444430F00004FFFF4F4330FFFFF4FFFF443330F00F044444433330FFFF0F0333 333330FFFF003333333330000003333333333333333333333333} ParentShowHint = False ShowHint = True OnClick = CopySBClick end object AddToclipSB: TSpeedbutton Left = 80 Top = 4 Width = 25 Height = 25 Hint = 'Append selected line to clipboard' Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333FFFFFFFFFF33333333300000000003333333333888888888 8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBCCFBF0333 33333338F3FF88FF8F3333333330FFFCCFFF033333333338F3FF88FF8F333333 3330BCCCCCCF0333333FFFF8F38888888F3333000000FCCCCCCF033333888888 F38888888F33330FFFF0BFBCCFBF0333338F3338F3FF88FF8F33330FFFF0FFFC CFFF0333338F3338F3FF88FF8F33330F7770BFBFBFBF0333338F3338F333333F 8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333 338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F 777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333 33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003 33333333338FFFFFF88333333333330000000033333333333388888888333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentshowHint = False ShowHint = True OnClick = AddToClipSBClick end object HexSB: TSpeedButton Left = 105 Top = 4 Width = 25 Height = 25 Hint = 'Hex/ASCII view' Caption = 'HEX' ParentShowHint = False ShowHint = True OnClick = HexSBClick end object HexLineSB: TSpeedButton Left = 130 Top = 4 Width = 25 Height = 25 Hint = 'Hex line length' Caption = '$<>' ParentShowHint = False ShowHint = True OnClick = HexLineSBClick end object FirstLineSB: TSpeedButton Left = 155 Top = 4 Width = 25 Height = 25 Hint = 'Length of first hex line' Caption = '1<>' ParentShowHint = False ShowHint = True OnClick = FirstLineSBClick end object FontSB: TSpeedButton Left = 180 Top = 4 Width = 25 Height = 25 Hint = 'Change font' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333333FFF33FFFFF33333300033000 00333337773377777333333330333300033333337FF33777F333333330733300 0333333377FFF777F33333333700000073333333777777773333333333033000 3333333337FF777F333333333307300033333333377F777F3333333333703007 33333333377F7773333333333330000333333333337777F33333333333300003 33333333337777F3333333333337007333333333337777333333333333330033 3333333333377333333333333333033333333333333733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = FontSBClick end end object HSPanel: TPanel Left = 0 Top = 427 Width = 622 Height = 16 Align = alBottom BevelOuter = bvNone TabOrder = 2 object HScroll: TScrollBar Left = 1 Top = 1 Width = 862 Height = 15 LargeChange = 250 Max = 2000 SmallChange = 10 TabOrder = 0 OnChange = VScrollChange end end object FontDialog1: TFontDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MinFontSize = 0 MaxFontSize = 0 Options = [fdForceFontExist] Left = 248 Top = 2 end object FindDialog1: TFindDialog Options = [frDown, frHideWholeWord, frHideUpDown] OnFind = FindDialog1Find Left = 276 Top = 2 end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*' Left = 305 Top = 3 end end