object Form1: TForm1 Left = 220 Top = 107 Width = 636 Height = 479 Caption = 'Room Arranger' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False OnClose = FormClose OnCloseQuery = FormCloseQuery OnKeyPress = FormKeyPress OnMouseWheel = ScrollBox1MouseWheel OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object StatusBar1: TStatusBar Left = 0 Top = 414 Width = 628 Height = 19 Panels = < item Alignment = taCenter Text = 'Room:' Width = 140 end item Text = ' Position:' Width = 130 end item Alignment = taCenter Text = 'Zoom' Width = 100 end item Bevel = pbNone Width = 50 end> SimplePanel = False end object ScrollBox1: TScrollBox Left = 0 Top = 0 Width = 628 Height = 414 Align = alClient TabOrder = 1 object Obr: TImage Left = 0 Top = 0 Width = 297 Height = 217 OnMouseDown = ObrMouseDown OnMouseMove = ObrMouseMove OnMouseUp = ObrMouseUp end end object MainMenu1: TMainMenu Left = 32 Top = 56 object Mistnost1: TMenuItem Caption = '&Room' object Zmenrozmery1: TMenuItem Caption = '&Change Size...' OnClick = Zmenrozmery1Click end object N3: TMenuItem Caption = '-' end object Nova1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333000000000003333387777777770333338FFFFFFFF70333338FFFFFFFF7 0333338FFFFFFFF70333338FFFFFFFF70333338FFFFFFFF70333338FFFFFFFF7 0333338FFFFFFFF80333338FFFFFFF880333338FFFFFF0000333338FFFFFF8F8 3333338FFFFFF88333333388888888333333} Caption = '&New' ShortCut = 16462 OnClick = Nova1Click end object Otrevrit1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555000000000005555500333333333055550B033333333305550FB033333333 30550BFB0333333333050FBFB000000000000BFBFBFBFB0555550FBFBFBFBF05 55550BFB00000005555550005555555500055555555555555005555555550555 050555555555500055555555555555555555} Caption = '&Open...' ShortCut = 16463 OnClick = Otrevrit1Click end object Uloizit1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5555550080000000800550330000007703055033000000770305503300000077 0305503300000000030550333333333333055030000000003305503077777777 0305503077777777030550307777777703055030777777770305503077777777 000550307777777703055000000000000005} Caption = '&Save' ShortCut = 16467 OnClick = Uloizit1Click end object Ulozitjako1: TMenuItem Caption = 'Save &As...' ShortCut = 123 OnClick = Ulozitjako1Click end object Ulozjakoobrazek1: TMenuItem Caption = 'Save As &Image...' OnClick = Ulozjakoobrazek1Click end object N1: TMenuItem Caption = '-' end object Recent1: TMenuItem Tag = 1 Caption = 'Recent file' Enabled = False OnClick = Recent1Click end object Recent2: TMenuItem Tag = 2 Caption = 'Recent file' Enabled = False Visible = False OnClick = Recent1Click end object Recent3: TMenuItem Tag = 3 Caption = 'Recent file' Enabled = False Visible = False OnClick = Recent1Click end object Recent4: TMenuItem Tag = 4 Caption = 'Recent file' Enabled = False Visible = False OnClick = Recent1Click end object N6: TMenuItem Caption = '-' end object Konec1: TMenuItem Caption = 'E&xit' OnClick = Konec1Click end end object Objekty1: TMenuItem Caption = '&Objects' object Pridejobjekt1: TMenuItem Caption = '&Add Object...' OnClick = Pridejobjekt1Click end object N2: TMenuItem Caption = '-' end object Smazvsechny1: TMenuItem Caption = '&Remove All Objects' OnClick = Smazvsechny1Click end object Seznam1: TMenuItem Caption = '&Listing...' OnClick = Seznam1Click end object N4: TMenuItem Caption = '-' end object Katalog1: TMenuItem Caption = 'Browse &Catalogue...' OnClick = Katalog1Click end end object Zvetseni1: TMenuItem Caption = '&Zoom' object Zoom1001: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000230B0000230B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5544555555555555544455555555555544455555544445544455555447F7F444 455555447F7F7F745555554447F7F7F45555547F447F7F7F455554F7F447F7F7 4555547F7F447F7F455554F7F7F447F74555554F7F7F447455555547F7F7F444 555555544F7F744555555555444444555555} Caption = '&100% /' OnClick = Zoom1001Click end object Priblizit1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5544555555555555544455555555555544455555544445544455555447F7F444 4555554F7F7F7F7455555547F744F7F45555547F7F447F7F455554F7444444F7 4555547F4444447F455554F7F744F7F74555554F7F447F7455555547F7F7F7F4 555555544F7F744555555555444444555555} Caption = 'Zoom &In +' OnClick = Priblizit1Click end object Oddlit1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000230B0000230B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 5544555555555555544455555555555544455555544445544455555447F7F444 4555554F7F7F7F7455555547F7F7F7F45555547F7F7F7F7F455554F7444444F7 4555547F4444447F455554F7F7F7F7F74555554F7F7F7F7455555547F7F7F7F4 555555544F7F744555555555444444555555} Caption = 'Zoom &Out -' OnClick = Oddlit1Click end end object Configure1: TMenuItem Caption = '&Configure' object Language1: TMenuItem Caption = '&Language...' OnClick = Language1Click end end object Napoveda1: TMenuItem Caption = '&Help' object ViewHelpFile1: TMenuItem Bitmap.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 04000000000080000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333330 333333333333330033333338888880B08333330000000FF0083330FFFBFBFBFF F08330FBFFF44FFBF08330FFFBFFFBFFF08330FBFFF48FFBF08330FFFBF847FF F08330FBFFFB848BF08330FFF48FF44FF08330FBF44B744BF08330FFF744447F F08330FBFFFBFFFBF08330FFFBFFFBFFF0333300000000000333} Caption = 'View &Help File...' OnClick = ViewHelpFile1Click end object N7: TMenuItem Caption = '-' end object Oprogramu1: TMenuItem Bitmap.Data = { EE000000424DEE000000000000007600000028000000100000000F0000000100 04000000000078000000130B0000130B00001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 33333330CCCCCCCC033333330CCCCCC0333333330CCCCCC0333333330CCCCCC0 333333330CCCCCC0333333330CCCCCC0333333330CCCCCC033333330CCCCCCC0 333333330000000333333333330CC0333333333330CCCC033333333330CCCC03 33333333330CC03333333333333003333333} Caption = '&About...' OnClick = Oprogramu1Click end end end object OpenDialog1: TOpenDialog DefaultExt = 'mst' Filter = 'Rooms (*.mst)|*.mst' InitialDir = '.' Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing] Title = 'Open saved room' Left = 34 Top = 90 end object SaveDialog1: TSaveDialog DefaultExt = 'mst' Filter = 'Rooms (*.mst)|*.mst' InitialDir = '.' Title = 'Save room into the file' Left = 66 Top = 90 end object ObjectMenu1: TPopupMenu AutoPopup = False Left = 66 Top = 58 object Vlastnosti1: TMenuItem Caption = 'Properties...' OnClick = Vlastnosti1Click end object Odebratobjekt1: TMenuItem Caption = 'Remove Object' OnClick = Odebratobjekt1Click end object N5: TMenuItem Caption = '-' end object Prenesdopopredi1: TMenuItem Caption = 'Bring to Front' OnClick = Prenesdopopredi1Click end object Prenesdopozadi1: TMenuItem Caption = 'Send to Back' OnClick = Prenesdopozadi1Click end end object NewObjectMenu1: TPopupMenu AutoPopup = False Left = 98 Top = 58 object Pridatsemnovyobjekt1: TMenuItem Caption = 'Add New Object Here...' OnClick = Pridatsemobjekt1Click end end object SavePicDialog2: TSaveDialog DefaultExt = 'bmp' Filter = 'Bitmaps (*.bmp)|*.bmp' InitialDir = '.' Title = 'Save as image' Left = 98 Top = 90 end end