Chip 2002 November/Chip_2002-11_cd1.bin/sharewar/slunec/app/rooarr1.exe/RooArr.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 2002-09-07 | 11KB | 333 lines

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