object PPrevForm: TPPrevForm Left = 217 Top = 101 Width = 227 Height = 264 BorderIcons = [biSystemMenu, biMaximize] Caption = 'Prohl�e� obr�zk�' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter OnCreate = FormCreate OnHide = FormHide OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 219 Height = 28 Align = alTop BevelOuter = bvNone TabOrder = 1 object OpenSB: TSpeedButton Left = 0 Top = 0 Width = 22 Height = 22 Hint = 'Otev��t' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555555555555555555555555555555555555555555555555555555555555555 555555555555555555555555555555555555555FFFFFFFFFF555550000000000 55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8 B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000 000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0 555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555 55555575FFF75555555555700007555555555557777555555555555555555555 5555555555555555555555555555555555555555555555555555} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = OpenSBClick end object saveSB: TSpeedButton Left = 22 Top = 0 Width = 22 Height = 22 Hint = 'Ulo�it jako' Flat = True Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F7330099999999900333777777777777733} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Save1Click end object copySB: TSpeedButton Left = 44 Top = 0 Width = 22 Height = 22 Hint = 'Kop�rovat' Flat = True Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333FFFFFFFFFF33333333300000000003333333333888888888 8F3333333330FFFFFFFF033333333338F33333338F3333333330BFBFBFBF0333 33333338F3FFFFFF8F3333333330F888888F033333333338F88888838F333333 3330BFBFBFBF0333333FFFF8F3FFFFFF8F3333000000F888888F033333888888 F88888838F33330FFFF0BFBFBFBF0333338F3338F3FFFFFF8F33330FFFF0F888 888F0333338F3338F88888838F33330F7770BFBFBFBF0333338F3338F333333F 8F33330FFFF0FFFFFF000333338F3338F33333888333330F7770BFBFBF003333 338F3338FFFFFF883333330FFFF0000000033333338F3338888888833333330F 777777F033333333338F33333338F3333333330FFFFFFFF033333333338F3333 33F8F3333333330FFFFFF00033333333338F3333388833333333330FFFFFF003 33333333338FFFFFF88333333333330000000033333333333388888888333333 3333333333333333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = PutIClick end object PasteSB: TSpeedButton Left = 66 Top = 0 Width = 22 Height = 22 Hint = 'Vlo�it' Flat = True Glyph.Data = { 06020000424D0602000000000000760000002800000028000000140000000100 0400000000009001000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333FFFFFFFFF333333333300000000033333333333888888 888F33333333330BFBFBFB03333FFFFFFF8F3FFFFF8F33000000000F88888F03 33888888888F8888838F307F7F7F7F0BFBFBFB0338F33333338F333FFF8F30F7 F7F7F70F77888F0338F33333338FFF88838F307F7F7F74444BFBFB0338F33333 38888F3FFF8F30F7F7F7F7C447888F0338F3333333888F88838F307F7F7F744C 4BFBFB0338F3333338888F333F8F30F7F7F7444F4FFF880338F33333888F8333 8883307F7F74440BFBFB803338F33338888FFFFF883330F7F744470000000333 38F33388838888888333307F7F747F7F0333333338F3333833338F33333330F7 F7F7F7F70333333338F3333333338F333333307F7F7F7F7F0333333338F33FFF FFF38F33333330F7444444F703333333383F888888FF833333333300ECCCC400 33333333338838888888333333333333ECCCC433333333333333388888333333 333333333EEEE333333333333333333333333333333333333333333333333333 33333333333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = GetIClick end object TrackBar1: TTrackBar Left = 104 Top = 1 Width = 108 Height = 25 Max = 500 Min = 10 Orientation = trHorizontal PageSize = 10 Frequency = 20 Position = 100 SelEnd = 0 SelStart = 0 TabOrder = 0 ThumbLength = 20 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar1Change end end object Scroll: TScrollBox Left = 0 Top = 28 Width = 219 Height = 171 HorzScrollBar.Tracking = True VertScrollBar.Tracking = True Align = alClient TabOrder = 0 object Image: TImage Left = 0 Top = 0 Width = 105 Height = 105 Stretch = True end end object StatusBar1: TStatusBar Left = 0 Top = 199 Width = 219 Height = 19 Panels = < item Width = 100 end item Width = 50 end> SimplePanel = False end object FormStorage1: TFormStorage IniSection = '\Software\DRHTML\PicturePreview' UseRegistry = True Left = 98 Top = 122 end object MainMenu1: TMainMenu Left = 66 Top = 122 object File1: TMenuItem Caption = 'Soubor' object Open1: TMenuItem Caption = '&Otev��t' OnClick = OpenSBClick end object Save1: TMenuItem Caption = '&Ulo�it jako..' OnClick = Save1Click end end object Clipboard1: TMenuItem Caption = 'Editace' object PutI: TMenuItem Caption = 'Kop�rovat' ShortCut = 16451 OnClick = PutIClick end object GetI: TMenuItem Caption = 'Vlo�it' ShortCut = 16470 OnClick = GetIClick end end end object SaveDlg: TDrSavePictureDialog Filter = 'Jpeg|*.jpg;*.jpe;*.jpeg|BMP|*.bmp' Left = 34 Top = 122 end object Timer1: TTimer Interval = 100 OnTimer = Timer1Timer Left = 130 Top = 122 end end