home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 7 / Chip_Hitware_Vol_07.iso / chiphit7 / spiele / 95mrmatt / mrmatt.exe / 0 / RCDATA / TMAIN / TMAIN.txt < prev   
Encoding:
Text File  |  1996-10-14  |  22.1 KB  |  939 lines
  1. object Main: TMain
  2.   Left = 68
  3.   Top = 41
  4.   VertScrollBar.Visible = False
  5.   ActiveControl = xFakeEdit
  6.   BorderIcons = [biSystemMenu, biMinimize]
  7.   BorderStyle = bsSingle
  8.   Caption = ' Mr. Matt'
  9.   ClientHeight = 325
  10.   ClientWidth = 504
  11.   Ctl3D = False
  12.   Color = clBtnShadow
  13.   Font.Color = clBlack
  14.   Font.Height = -16
  15.   Font.Name = 'Courier'
  16.   Font.Style = [fsBold]
  17.   Icon.Data = {<image000.ico>}
  18.   KeyPreview = True
  19.   Menu = mMain
  20.   Position = poScreenCenter
  21.   Scaled = False
  22.   ShowHint = True
  23.   Visible = True
  24.   OnCloseQuery = FormCloseQuery
  25.   OnCreate = FormCreate
  26.   OnKeyDown = FormKeyDown
  27.   OnShow = FormShow
  28.   PixelsPerInch = 96
  29.   TextHeight = 16
  30.   object xStrip: TPanel
  31.     Left = 1
  32.     Top = 296
  33.     Width = 502
  34.     Height = 29
  35.     BevelOuter = bvNone
  36.     Color = clBtnShadow
  37.     Ctl3D = False
  38.     Font.Color = clSilver
  39.     Font.Height = -16
  40.     Font.Name = 'Courier'
  41.     Font.Style = [fsBold]
  42.     ParentCtl3D = False
  43.     ParentFont = False
  44.     TabOrder = 1
  45.     object xClock: TPanel
  46.       Left = 0
  47.       Top = 0
  48.       Width = 72
  49.       Height = 29
  50.       Hint = 'Time on this level'
  51.       BevelOuter = bvLowered
  52.       BevelWidth = 2
  53.       Caption = '00:00'
  54.       Color = clNavy
  55.       TabOrder = 0
  56.     end
  57.     object xSteps: TPanel
  58.       Left = 73
  59.       Top = 0
  60.       Width = 42
  61.       Height = 29
  62.       Hint = 'Game level'
  63.       BevelOuter = bvLowered
  64.       BevelWidth = 2
  65.       Caption = '7'
  66.       Color = clNavy
  67.       TabOrder = 1
  68.     end
  69.     object xTitle: TPanel
  70.       Left = 115
  71.       Top = 0
  72.       Width = 387
  73.       Height = 29
  74.       Hint = 'Level name'
  75.       BevelOuter = bvLowered
  76.       BevelWidth = 2
  77.       Color = clNavy
  78.       TabOrder = 2
  79.     end
  80.   end
  81.   object xiPanel: TPanel
  82.     Left = 0
  83.     Top = 0
  84.     Width = 504
  85.     Height = 296
  86.     BevelOuter = bvLowered
  87.     BevelWidth = 3
  88.     BorderStyle = bsSingle
  89.     Color = clNavy
  90.     Ctl3D = False
  91.     Font.Color = clLime
  92.     Font.Height = -32
  93.     Font.Name = 'Courier New'
  94.     Font.Style = []
  95.     ParentCtl3D = False
  96.     ParentFont = False
  97.     TabOrder = 0
  98.     object xMap: TImage
  99.       Left = 3
  100.       Top = 3
  101.       Width = 496
  102.       Height = 288
  103.       Align = alClient
  104.       Center = True
  105.       Picture.Data = {<image001.bmp>}
  106.       OnMouseDown = xMapMouseDown
  107.     end
  108.     object xPics2: TPanel
  109.       Left = 20
  110.       Top = 50
  111.       Width = 240
  112.       Height = 22
  113.       TabOrder = 0
  114.       Visible = False
  115.       object xs20: TImage
  116.         Left = 2
  117.         Top = 2
  118.         Width = 16
  119.         Height = 16
  120.         Picture.Data = {<image002.bmp>}
  121.       end
  122.       object xs21: TImage
  123.         Left = 22
  124.         Top = 2
  125.         Width = 16
  126.         Height = 16
  127.         Picture.Data = {<image003.bmp>}
  128.       end
  129.       object xs23: TImage
  130.         Left = 62
  131.         Top = 2
  132.         Width = 16
  133.         Height = 16
  134.         Picture.Data = {<image004.bmp>}
  135.       end
  136.       object xs22: TImage
  137.         Left = 42
  138.         Top = 2
  139.         Width = 16
  140.         Height = 16
  141.         Picture.Data = {<image005.bmp>}
  142.       end
  143.       object xs24: TImage
  144.         Left = 82
  145.         Top = 2
  146.         Width = 16
  147.         Height = 16
  148.         Picture.Data = {<image006.bmp>}
  149.       end
  150.       object xs29: TImage
  151.         Left = 182
  152.         Top = 2
  153.         Width = 16
  154.         Height = 16
  155.         Picture.Data = {<image007.bmp>}
  156.       end
  157.       object xs25: TImage
  158.         Left = 102
  159.         Top = 2
  160.         Width = 16
  161.         Height = 16
  162.       end
  163.       object xs2d: TImage
  164.         Left = 202
  165.         Top = 2
  166.         Width = 16
  167.         Height = 16
  168.         Picture.Data = {<image008.bmp>}
  169.       end
  170.       object xs26: TImage
  171.         Left = 122
  172.         Top = 2
  173.         Width = 16
  174.         Height = 16
  175.       end
  176.       object xs27: TImage
  177.         Left = 142
  178.         Top = 2
  179.         Width = 16
  180.         Height = 16
  181.       end
  182.       object xs28: TImage
  183.         Left = 162
  184.         Top = 2
  185.         Width = 16
  186.         Height = 16
  187.       end
  188.     end
  189.     object xPics1: TPanel
  190.       Left = 20
  191.       Top = 20
  192.       Width = 240
  193.       Height = 22
  194.       TabOrder = 1
  195.       Visible = False
  196.       object xs10: TImage
  197.         Left = 2
  198.         Top = 2
  199.         Width = 16
  200.         Height = 16
  201.         Picture.Data = {<image009.bmp>}
  202.       end
  203.       object xs11: TImage
  204.         Left = 22
  205.         Top = 2
  206.         Width = 16
  207.         Height = 16
  208.         Picture.Data = {<image010.bmp>}
  209.       end
  210.       object xs13: TImage
  211.         Left = 62
  212.         Top = 2
  213.         Width = 16
  214.         Height = 16
  215.         Picture.Data = {<image011.bmp>}
  216.       end
  217.       object xs12: TImage
  218.         Left = 42
  219.         Top = 2
  220.         Width = 16
  221.         Height = 16
  222.         Picture.Data = {<image012.bmp>}
  223.       end
  224.       object xs14: TImage
  225.         Left = 82
  226.         Top = 2
  227.         Width = 16
  228.         Height = 16
  229.         Picture.Data = {<image013.bmp>}
  230.       end
  231.       object xs19: TImage
  232.         Left = 182
  233.         Top = 2
  234.         Width = 16
  235.         Height = 16
  236.         Picture.Data = {<image014.bmp>}
  237.       end
  238.       object xs1d: TImage
  239.         Left = 202
  240.         Top = 2
  241.         Width = 15
  242.         Height = 16
  243.         Picture.Data = {<image015.bmp>}
  244.       end
  245.       object xs15: TImage
  246.         Left = 102
  247.         Top = 2
  248.         Width = 16
  249.         Height = 16
  250.       end
  251.       object xs16: TImage
  252.         Left = 122
  253.         Top = 2
  254.         Width = 16
  255.         Height = 16
  256.       end
  257.       object xs17: TImage
  258.         Left = 142
  259.         Top = 2
  260.         Width = 16
  261.         Height = 16
  262.       end
  263.       object xs18: TImage
  264.         Left = 162
  265.         Top = 2
  266.         Width = 16
  267.         Height = 16
  268.       end
  269.     end
  270.     object xPics3: TPanel
  271.       Left = 20
  272.       Top = 80
  273.       Width = 240
  274.       Height = 22
  275.       TabOrder = 2
  276.       Visible = False
  277.       object xs30: TImage
  278.         Left = 2
  279.         Top = 2
  280.         Width = 16
  281.         Height = 16
  282.         Picture.Data = {<image016.bmp>}
  283.       end
  284.       object xs31: TImage
  285.         Left = 22
  286.         Top = 2
  287.         Width = 16
  288.         Height = 16
  289.         Picture.Data = {<image017.bmp>}
  290.       end
  291.       object xs33: TImage
  292.         Left = 62
  293.         Top = 2
  294.         Width = 16
  295.         Height = 16
  296.         Picture.Data = {<image018.bmp>}
  297.       end
  298.       object xs32: TImage
  299.         Left = 42
  300.         Top = 2
  301.         Width = 16
  302.         Height = 16
  303.         Picture.Data = {<image019.bmp>}
  304.       end
  305.       object xs34: TImage
  306.         Left = 82
  307.         Top = 2
  308.         Width = 16
  309.         Height = 16
  310.         Picture.Data = {<image020.bmp>}
  311.       end
  312.       object xs39: TImage
  313.         Left = 182
  314.         Top = 2
  315.         Width = 16
  316.         Height = 16
  317.         Picture.Data = {<image021.bmp>}
  318.       end
  319.       object xs3d: TImage
  320.         Left = 202
  321.         Top = 2
  322.         Width = 15
  323.         Height = 16
  324.         Picture.Data = {<image022.bmp>}
  325.       end
  326.       object xs35: TImage
  327.         Left = 102
  328.         Top = 2
  329.         Width = 16
  330.         Height = 16
  331.       end
  332.       object xs36: TImage
  333.         Left = 122
  334.         Top = 2
  335.         Width = 16
  336.         Height = 16
  337.       end
  338.       object xs37: TImage
  339.         Left = 142
  340.         Top = 2
  341.         Width = 16
  342.         Height = 16
  343.       end
  344.       object xs38: TImage
  345.         Left = 162
  346.         Top = 2
  347.         Width = 16
  348.         Height = 16
  349.       end
  350.     end
  351.   end
  352.   object xFakeEdit: TEdit
  353.     Left = -40
  354.     Top = 110
  355.     Width = 16
  356.     Height = 22
  357.     TabStop = False
  358.     MaxLength = 1
  359.     ReadOnly = True
  360.     TabOrder = 2
  361.   end
  362.   object xLevels: TPanel
  363.     Left = 0
  364.     Top = 295
  365.     Width = 504
  366.     Height = 31
  367.     Alignment = taLeftJustify
  368.     BevelOuter = bvLowered
  369.     BevelWidth = 2
  370.     BorderStyle = bsSingle
  371.     Color = clBtnShadow
  372.     Font.Color = clBlack
  373.     Font.Height = -16
  374.     Font.Name = 'Courier'
  375.     Font.Style = [fsBold]
  376.     ParentFont = False
  377.     TabOrder = 3
  378.     object xb1: TSpeedButton
  379.       Tag = 1
  380.       Left = 284
  381.       Top = 2
  382.       Width = 24
  383.       Height = 25
  384.       GroupIndex = 1
  385.       Caption = '1'
  386.       OnClick = xbClick
  387.     end
  388.     object xb2: TSpeedButton
  389.       Tag = 2
  390.       Left = 308
  391.       Top = 2
  392.       Width = 24
  393.       Height = 25
  394.       GroupIndex = 1
  395.       Caption = '2'
  396.       OnClick = xbClick
  397.     end
  398.     object xb3: TSpeedButton
  399.       Tag = 3
  400.       Left = 332
  401.       Top = 2
  402.       Width = 24
  403.       Height = 25
  404.       GroupIndex = 1
  405.       Caption = '3'
  406.       OnClick = xbClick
  407.     end
  408.     object xb4: TSpeedButton
  409.       Tag = 4
  410.       Left = 356
  411.       Top = 2
  412.       Width = 24
  413.       Height = 25
  414.       GroupIndex = 1
  415.       Caption = '4'
  416.       OnClick = xbClick
  417.     end
  418.     object xb5: TSpeedButton
  419.       Tag = 5
  420.       Left = 380
  421.       Top = 2
  422.       Width = 24
  423.       Height = 25
  424.       GroupIndex = 1
  425.       Caption = '5'
  426.       OnClick = xbClick
  427.     end
  428.     object xb6: TSpeedButton
  429.       Tag = 6
  430.       Left = 404
  431.       Top = 2
  432.       Width = 24
  433.       Height = 25
  434.       GroupIndex = 1
  435.       Caption = '6'
  436.       OnClick = xbClick
  437.     end
  438.     object xb7: TSpeedButton
  439.       Tag = 7
  440.       Left = 428
  441.       Top = 2
  442.       Width = 24
  443.       Height = 25
  444.       GroupIndex = 1
  445.       Caption = '7'
  446.       OnClick = xbClick
  447.     end
  448.     object xb8: TSpeedButton
  449.       Tag = 8
  450.       Left = 452
  451.       Top = 2
  452.       Width = 24
  453.       Height = 25
  454.       GroupIndex = 1
  455.       Caption = '8'
  456.       OnClick = xbClick
  457.     end
  458.     object xb9: TSpeedButton
  459.       Tag = 9
  460.       Left = 476
  461.       Top = 2
  462.       Width = 24
  463.       Height = 25
  464.       GroupIndex = 1
  465.       Down = True
  466.       Caption = '9'
  467.       OnClick = xbClick
  468.     end
  469.     object xLoad: TSpeedButton
  470.       Left = 2
  471.       Top = 2
  472.       Width = 282
  473.       Height = 25
  474.       Hint = 'Load a game'
  475.       Caption = 'Click here to load a game'
  476.       OnClick = xLoadClick
  477.     end
  478.     object xPalette: TPanel
  479.       Left = 2
  480.       Top = 2
  481.       Width = 280
  482.       Height = 25
  483.       Alignment = taLeftJustify
  484.       BevelOuter = bvNone
  485.       BevelWidth = 2
  486.       Caption = 'xLevels'
  487.       Color = clBtnShadow
  488.       TabOrder = 0
  489.       object xob0: TSpeedButton
  490.         Left = 0
  491.         Top = 0
  492.         Width = 28
  493.         Height = 25
  494.         Hint = 'Empty square'
  495.         GroupIndex = 2
  496.         Down = True
  497.         Font.Color = clBlack
  498.         Font.Height = -19
  499.         Font.Name = 'Courier New'
  500.         Font.Style = [fsBold]
  501.         Glyph.Data = {
  502.           F6000000424DF600000000000000760000002800000010000000100000000100
  503.           0400000000008000000000000000000000000000000000000000000000000000
  504.           80000080000000808000800000008000800080800000C0C0C000808080000000
  505.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
  506.           0000000000000000000000000000000000000000000000000000000000000000
  507.           0000000000000000000000000000000000000000000000000000000000000000
  508.           0000000000000000000000000000000000000000000000000000000000000000
  509.           0000000000000000000000000000000000000000000000000000}
  510.         ParentFont = False
  511.         Spacing = 0
  512.         OnClick = xobClick
  513.       end
  514.       object xob1: TSpeedButton
  515.         Tag = 1
  516.         Left = 28
  517.         Top = 0
  518.         Width = 28
  519.         Height = 25
  520.         Hint = 'Earth'
  521.         GroupIndex = 2
  522.         Font.Color = clBlack
  523.         Font.Height = -19
  524.         Font.Name = 'Courier New'
  525.         Font.Style = [fsBold]
  526.         Glyph.Data = {
  527.           F6000000424DF600000000000000760000002800000010000000100000000100
  528.           0400000000008000000000000000000000000000000000000000000000000000
  529.           80000080000000808000800000008000800080800000C0C0C000808080000000
  530.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DAA33AAAA003
  531.           333A033000A330AAAAA0030000A30AAAA0000A0033A0A00000330003AAAAA033
  532.           030A0AAA00030330A30A0300AAAAAAAAA03A030A33300330A3AA003A303333AA
  533.           AAAA000A3A330333000000AA3A00A3A0A30300AA0A0AA000A30303A0A333A0A3
  534.           AA0300A3A30AAAA0AAA30A3300033300AAAA0000000000000000}
  535.         ParentFont = False
  536.         OnClick = xobClick
  537.       end
  538.       object xob2: TSpeedButton
  539.         Tag = 2
  540.         Left = 56
  541.         Top = 0
  542.         Width = 28
  543.         Height = 25
  544.         Hint = 'Brick'
  545.         GroupIndex = 2
  546.         Font.Color = clBlack
  547.         Font.Height = -19
  548.         Font.Name = 'Courier New'
  549.         Font.Style = [fsBold]
  550.         Glyph.Data = {
  551.           F6000000424DF600000000000000760000002800000010000000100000000100
  552.           0400000000008000000000000000000000000000000000000000000000000000
  553.           80000080000000808000800000008000800080800000C0C0C000808080000000
  554.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D91991191199
  555.           1119091111919191919101119191111191110911111119111119019911911119
  556.           1191011111119919111109191911111111910111111911991919099119119919
  557.           1119011111111111191101191191119111990919111199111111011111911199
  558.           9191011919111911111109111191919191990000000000000000}
  559.         ParentFont = False
  560.         OnClick = xobClick
  561.       end
  562.       object xob3: TSpeedButton
  563.         Tag = 3
  564.         Left = 84
  565.         Top = 0
  566.         Width = 28
  567.         Height = 25
  568.         Hint = 'Stone'
  569.         GroupIndex = 2
  570.         Font.Color = clBlack
  571.         Font.Height = -19
  572.         Font.Name = 'Courier New'
  573.         Font.Style = [fsBold]
  574.         Glyph.Data = {
  575.           F6000000424DF600000000000000760000002800000010000000100000000100
  576.           0400000000008000000000000000000000000000000000000000000000000000
  577.           80000080000000808000800000008000800080800000C0C0C000808080000000
  578.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000888880
  579.           0000000088888888800000088888888888000088888877778880008888877777
  580.           7880088888777777778808888877777777880888887777777788088888777777
  581.           7788088888777777778808888887777778800088888877778880000888888888
  582.           8800000088888888800000000888888000000000000000000000}
  583.         ParentFont = False
  584.         OnClick = xobClick
  585.       end
  586.       object xob4: TSpeedButton
  587.         Tag = 4
  588.         Left = 112
  589.         Top = 0
  590.         Width = 28
  591.         Height = 25
  592.         Hint = 'Food'
  593.         GroupIndex = 2
  594.         Font.Color = clBlack
  595.         Font.Height = -19
  596.         Font.Name = 'Courier New'
  597.         Font.Style = [fsBold]
  598.         Glyph.Data = {
  599.           F6000000424DF600000000000000760000002800000010000000100000000100
  600.           0400000000008000000000000000000000000000000000000000000000000000
  601.           80000080000000808000800000008000800080800000C0C0C000808080000000
  602.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D00000000000
  603.           000000000AAA00AAA00000AAAA9AAAA99AA00AA99999AA9999A00A9999999999
  604.           99AA0A9999999999999A0A9999999999999A0AA999999999999A0AA999999999
  605.           999A0A9999999999999A0A999999999999AA0AAAAAAA99999AA000AA000AAA99
  606.           AA000000000A0AAAA00000000AAA000A000000000A0000000000}
  607.         ParentFont = False
  608.         OnClick = xobClick
  609.       end
  610.       object xob5: TSpeedButton
  611.         Tag = 5
  612.         Left = 140
  613.         Top = 0
  614.         Width = 28
  615.         Height = 25
  616.         GroupIndex = 2
  617.         Enabled = False
  618.         Font.Color = clBlack
  619.         Font.Height = -19
  620.         Font.Name = 'Courier New'
  621.         Font.Style = [fsBold]
  622.         ParentFont = False
  623.         OnClick = xobClick
  624.       end
  625.       object xob6: TSpeedButton
  626.         Tag = 6
  627.         Left = 168
  628.         Top = 0
  629.         Width = 28
  630.         Height = 25
  631.         GroupIndex = 2
  632.         Enabled = False
  633.         Font.Color = clBlack
  634.         Font.Height = -19
  635.         Font.Name = 'Courier New'
  636.         Font.Style = [fsBold]
  637.         ParentFont = False
  638.         OnClick = xobClick
  639.       end
  640.       object xob7: TSpeedButton
  641.         Tag = 7
  642.         Left = 196
  643.         Top = 0
  644.         Width = 28
  645.         Height = 25
  646.         GroupIndex = 2
  647.         Enabled = False
  648.         Font.Color = clBlack
  649.         Font.Height = -19
  650.         Font.Name = 'Courier New'
  651.         Font.Style = [fsBold]
  652.         Margin = 2
  653.         ParentFont = False
  654.         OnClick = xobClick
  655.       end
  656.       object xob9: TSpeedButton
  657.         Tag = 9
  658.         Left = 252
  659.         Top = 0
  660.         Width = 28
  661.         Height = 25
  662.         Hint = 'Mr. Matt'
  663.         GroupIndex = 2
  664.         Font.Color = clBlack
  665.         Font.Height = -19
  666.         Font.Name = 'Courier New'
  667.         Font.Style = [fsBold]
  668.         Glyph.Data = {
  669.           F6000000424DF600000000000000760000002800000010000000100000000100
  670.           0400000000008000000000000000000000000000000000000000000000000000
  671.           80000080000000808000800000008000800080800000C0C0C000808080000000
  672.           FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00D0BBBBB00BBB
  673.           BB0000000CC00CC0000000000CCCCCC000000BCCCCCCCCCCCCB00BCCCCCCCCCC
  674.           CCB000000BBBBBBB00000000BB00000BB000000BB00BBB00BB00000BBBBB0BBB
  675.           BB00000BBBBB0BBBBB00000BB000B000BB00000BBB0BBB0BBB000003BBBBBBBB
  676.           B300003333B3BBB33300000333333B3330000003333333333000}
  677.         ParentFont = False
  678.         OnClick = xobClick
  679.       end
  680.       object xob8: TSpeedButton
  681.         Tag = 8
  682.         Left = 224
  683.         Top = 0
  684.         Width = 28
  685.         Height = 25
  686.         GroupIndex = 2
  687.         Enabled = False
  688.         Font.Color = clBlack
  689.         Font.Height = -19
  690.         Font.Name = 'Courier New'
  691.         Font.Style = [fsBold]
  692.         Margin = 2
  693.         ParentFont = False
  694.         OnClick = xobClick
  695.       end
  696.     end
  697.   end
  698.   object mMain: TMainMenu
  699.     Left = 465
  700.     Top = 44
  701.     object mFile: TMenuItem
  702.       Caption = '&File'
  703.       ShortCut = 0
  704.       object mLoad: TMenuItem
  705.         Caption = '&Load game...'
  706.         ShortCut = 0
  707.         OnClick = xLoadClick
  708.       end
  709.       object mNew: TMenuItem
  710.         Caption = '&New game...'
  711.         ShortCut = 0
  712.         Visible = False
  713.         OnClick = mNewClick
  714.       end
  715.       object mSave: TMenuItem
  716.         Caption = '&Save game'
  717.         ShortCut = 0
  718.         Visible = False
  719.         OnClick = mSaveClick
  720.       end
  721.       object mSaveAs: TMenuItem
  722.         Caption = 'Save game &as...'
  723.         ShortCut = 0
  724.         Visible = False
  725.         OnClick = mSaveAsClick
  726.       end
  727.       object mIgnore: TMenuItem
  728.         Caption = '&Ignore checksum'
  729.         ShortCut = 0
  730.         Visible = False
  731.         OnClick = mIgnoreClick
  732.       end
  733.       object N1: TMenuItem
  734.         Caption = '-'
  735.         ShortCut = 0
  736.         Visible = False
  737.       end
  738.       object mEditMode: TMenuItem
  739.         Caption = '&Edit game'
  740.         ShortCut = 0
  741.         Visible = False
  742.         OnClick = mEditModeClick
  743.       end
  744.       object N3: TMenuItem
  745.         Caption = '-'
  746.         ShortCut = 0
  747.       end
  748.       object mExit: TMenuItem
  749.         Caption = '&Quit Mr. Matt'
  750.         ShortCut = 0
  751.         OnClick = mExitClick
  752.       end
  753.     end
  754.     object mGame: TMenuItem
  755.       Caption = '&Game'
  756.       ShortCut = 0
  757.       object mStepBack: TMenuItem
  758.         Caption = 'Step &back'
  759.         Enabled = False
  760.         ShortCut = 0
  761.         OnClick = mStepBackClick
  762.       end
  763.       object mGiveUp: TMenuItem
  764.         Caption = '&Give up'
  765.         Enabled = False
  766.         ShortCut = 0
  767.         OnClick = mGiveUpClick
  768.       end
  769.       object N2: TMenuItem
  770.         Caption = '-'
  771.         ShortCut = 0
  772.       end
  773.       object mTake: TMenuItem
  774.         Caption = '&Take snapshot'
  775.         Enabled = False
  776.         ShortCut = 0
  777.         OnClick = mTakeClick
  778.       end
  779.       object mRestore: TMenuItem
  780.         Caption = '&Restore snapshot'
  781.         Enabled = False
  782.         ShortCut = 0
  783.         OnClick = mRestoreClick
  784.       end
  785.       object mPlayBack: TMenuItem
  786.         Caption = '&Play back'
  787.         ShortCut = 0
  788.         OnClick = mPlayBackClick
  789.       end
  790.       object mShow: TMenuItem
  791.         Caption = '&Show solution'
  792.         ShortCut = 0
  793.         OnClick = mShowClick
  794.       end
  795.     end
  796.     object mEdit: TMenuItem
  797.       Caption = '&Edit'
  798.       ShortCut = 0
  799.       Visible = False
  800.       object mAdd: TMenuItem
  801.         Caption = '&Add new level'
  802.         ShortCut = 0
  803.         OnClick = mAddClick
  804.       end
  805.       object mRemove: TMenuItem
  806.         Caption = '&Delete level'
  807.         ShortCut = 0
  808.         OnClick = mRemoveClick
  809.       end
  810.       object mClear: TMenuItem
  811.         Caption = 'Cl&ear level'
  812.         ShortCut = 0
  813.         OnClick = mClearClick
  814.       end
  815.       object N5: TMenuItem
  816.         Caption = '-'
  817.         ShortCut = 0
  818.       end
  819.       object mMoveUp: TMenuItem
  820.         Caption = 'Move level &up'
  821.         ShortCut = 0
  822.         OnClick = mMoveUpClick
  823.       end
  824.       object mMoveDown: TMenuItem
  825.         Caption = 'Move level &down'
  826.         ShortCut = 0
  827.         OnClick = mMoveDownClick
  828.       end
  829.       object mCopy: TMenuItem
  830.         Caption = '&Copy previous level'
  831.         ShortCut = 0
  832.         OnClick = mCopyClick
  833.       end
  834.       object N4: TMenuItem
  835.         Caption = '-'
  836.         ShortCut = 0
  837.       end
  838.       object mLevelName: TMenuItem
  839.         Caption = '&Level name'
  840.         ShortCut = 0
  841.         OnClick = mLevelNameClick
  842.       end
  843.       object mGameName: TMenuItem
  844.         Caption = '&Game name'
  845.         ShortCut = 0
  846.         OnClick = mGameNameClick
  847.       end
  848.       object mReadOnly: TMenuItem
  849.         Caption = '&Read only'
  850.         ShortCut = 0
  851.         Visible = False
  852.         OnClick = mReadOnlyClick
  853.       end
  854.       object mRegOnly: TMenuItem
  855.         Caption = '&Only registered'
  856.         ShortCut = 0
  857.         Visible = False
  858.         OnClick = mRegOnlyClick
  859.       end
  860.     end
  861.     object mOptions: TMenuItem
  862.       Caption = '&Options'
  863.       ShortCut = 0
  864.       object mNoStup: TMenuItem
  865.         Caption = '&No stupid moves'
  866.         ShortCut = 0
  867.         OnClick = mNoStupClick
  868.       end
  869.       object mSound: TMenuItem
  870.         Caption = '&Sound'
  871.         Checked = True
  872.         ShortCut = 0
  873.         OnClick = mSoundClick
  874.       end
  875.       object mGraphics: TMenuItem
  876.         Caption = '&Graphics'
  877.         ShortCut = 0
  878.         object mSpr1: TMenuItem
  879.           Tag = 1
  880.           Caption = '&Apples'
  881.           ShortCut = 0
  882.           OnClick = mSprClick
  883.         end
  884.         object mSpr2: TMenuItem
  885.           Tag = 2
  886.           Caption = '&Carrots'
  887.           ShortCut = 0
  888.           OnClick = mSprClick
  889.         end
  890.         object mSpr3: TMenuItem
  891.           Tag = 3
  892.           Caption = '&Hamburgers'
  893.           ShortCut = 0
  894.           OnClick = mSprClick
  895.         end
  896.       end
  897.     end
  898.     object xHelp: TMenuItem
  899.       Caption = '&Help'
  900.       ShortCut = 0
  901.       object mHelp: TMenuItem
  902.         Caption = '&Help'
  903.         ShortCut = 0
  904.         OnClick = mHelpClick
  905.       end
  906.       object mRegister: TMenuItem
  907.         Caption = '&Registration'
  908.         ShortCut = 0
  909.         OnClick = mRegisterClick
  910.       end
  911.       object mAbout: TMenuItem
  912.         Caption = '&About Mr. Matt...'
  913.         ShortCut = 0
  914.         OnClick = mAboutClick
  915.       end
  916.     end
  917.   end
  918.   object xTim: TTimer
  919.     Enabled = False
  920.     OnTimer = xTimTimer
  921.     Left = 465
  922.     Top = 11
  923.   end
  924.   object xWaitTim: TTimer
  925.     Enabled = False
  926.     Interval = 2400
  927.     OnTimer = xWaitTimTimer
  928.     Left = 465
  929.     Top = 78
  930.   end
  931.   object xSelect: TSaveDialog
  932.     DefaultExt = '*.m'
  933.     FileEditStyle = fsEdit
  934.     Options = [ofPathMustExist]
  935.     Left = 465
  936.     Top = 111
  937.   end
  938. end
  939.