home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / PACMAN / UPACMAN.DFM / UPACMAN.txt
Encoding:
Text File  |  1998-10-24  |  16.9 KB  |  523 lines
  1. object TeePacForm: TTeePacForm
  2.   Left = 166
  3.   Top = 42
  4.   Width = 424
  5.   Height = 468
  6.   ActiveControl = Chart1
  7.   Caption = 'TeeChart TeePac Game'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poScreenCenter
  16.   Scaled = False
  17.   OnClose = FormClose
  18.   OnCloseQuery = FormCloseQuery
  19.   OnKeyDown = FormKeyDown
  20.   OnShow = FormShow
  21.   TextHeight = 13
  22.   object Panel3: TPanel
  23.     Left = 0
  24.     Top = 0
  25.     Width = 416
  26.     Height = 37
  27.     Align = alTop
  28.     BevelOuter = bvLowered
  29.     ParentShowHint = False
  30.     ShowHint = True
  31.     TabOrder = 3
  32.     object SpeedButton1: TSpeedButton
  33.       Left = 5
  34.       Top = 4
  35.       Width = 25
  36.       Height = 25
  37.       Hint = 'Open a saved Game !'
  38.       AllowAllUp = True
  39.       Glyph.Data = {
  40.         76010000424D7601000000000000760000002800000020000000100000000100
  41.         0400000000000001000000000000000000001000000010000000000000000000
  42.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  43.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
  44.         5555555555555555555555555555555555555555555555555555555555555555
  45.         555555555555555555555555555555555555555FFFFFFFFFF555550000000000
  46.         55555577777777775F55500B8B8B8B8B05555775F555555575F550F0B8B8B8B8
  47.         B05557F75F555555575F50BF0B8B8B8B8B0557F575FFFFFFFF7F50FBF0000000
  48.         000557F557777777777550BFBFBFBFB0555557F555555557F55550FBFBFBFBF0
  49.         555557F555555FF7555550BFBFBF00055555575F555577755555550BFBF05555
  50.         55555575FFF75555555555700007555555555557777555555555555555555555
  51.         5555555555555555555555555555555555555555555555555555}
  52.       NumGlyphs = 2
  53.       OnClick = SpeedButton1Click
  54.     end
  55.     object SpeedButton2: TSpeedButton
  56.       Left = 33
  57.       Top = 4
  58.       Width = 25
  59.       Height = 25
  60.       Hint = 'Save Game to Disk'
  61.       AllowAllUp = True
  62.       Glyph.Data = {
  63.         76010000424D7601000000000000760000002800000020000000100000000100
  64.         0400000000000001000000000000000000001000000010000000000000000000
  65.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  66.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  67.         333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
  68.         00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
  69.         00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
  70.         00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
  71.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  72.         00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
  73.         00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
  74.         0003737FFFFFFFFF7F7330099999999900333777777777777733}
  75.       NumGlyphs = 2
  76.       OnClick = SpeedButton2Click
  77.     end
  78.     object SpeedButton3: TSpeedButton
  79.       Left = 69
  80.       Top = 4
  81.       Width = 25
  82.       Height = 25
  83.       Hint = 'Re-Start New Game !'
  84.       AllowAllUp = True
  85.       Glyph.Data = {
  86.         76010000424D7601000000000000760000002800000020000000100000000100
  87.         0400000000000001000000000000000000001000000010000000000000000000
  88.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  89.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  90.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  91.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  92.         07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  93.         07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
  94.         0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
  95.         33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
  96.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  97.         3BB33773333773333773B333333B3333333B7333333733333337}
  98.       NumGlyphs = 2
  99.       OnClick = SpeedButton3Click
  100.     end
  101.     object SpeedButton4: TSpeedButton
  102.       Left = 105
  103.       Top = 4
  104.       Width = 25
  105.       Height = 25
  106.       Hint = 'Toggle Zoom On / Off'
  107.       AllowAllUp = True
  108.       GroupIndex = 4
  109.       Glyph.Data = {
  110.         76010000424D7601000000000000760000002800000020000000100000000100
  111.         0400000000000001000000000000000000001000000010000000000000000000
  112.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  113.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  114.         33033333333333333F7F3333333333333000333333333333F777333333333333
  115.         000333333333333F777333333333333000333333333333F77733333333333300
  116.         033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
  117.         33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
  118.         3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
  119.         33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
  120.         333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
  121.         333333773FF77333333333370007333333333333777333333333}
  122.       NumGlyphs = 2
  123.       OnClick = SpeedButton4Click
  124.     end
  125.     object SpeedButton5: TSpeedButton
  126.       Left = 133
  127.       Top = 4
  128.       Width = 25
  129.       Height = 25
  130.       Hint = 'Toggle Legend On / Off'
  131.       AllowAllUp = True
  132.       GroupIndex = 3
  133.       Glyph.Data = {
  134.         42010000424D4201000000000000760000002800000011000000110000000100
  135.         040000000000CC00000000000000000000001000000010000000000000000000
  136.         BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  137.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
  138.         DDDDD0000000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444
  139.         DD000000000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD000
  140.         0000DDDDDDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000
  141.         000DD0000000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDD
  142.         DDDDDDDDDDDDD0000000D444DDDDDDDDDDDDD0000000D444DD000000000DD000
  143.         0000D444DDDDDDDDDDDDD0000000DDDDDDDDDDDDDDDDD0000000DDDDDDDDDDDD
  144.         DDDDD0000000}
  145.       OnClick = SpeedButton5Click
  146.     end
  147.     object SpeedButton6: TSpeedButton
  148.       Left = 161
  149.       Top = 4
  150.       Width = 25
  151.       Height = 25
  152.       Hint = 'Toggle Axis On / Off'
  153.       AllowAllUp = True
  154.       GroupIndex = 1
  155.       Down = True
  156.       Glyph.Data = {
  157.         66010000424D6601000000000000760000002800000014000000140000000100
  158.         040000000000F000000000000000000000001000000010000000000000000000
  159.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  160.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
  161.         8888888800008888888888888888888800008888888888888888888800008808
  162.         88808880888088880000800000000000000000080000880880CCC0AAA0DDD088
  163.         0000880880CCC0AAA0DDD0880000800880CCC0AAA0DDD0880000880880CCC0AA
  164.         A0DDD0880000880880CCC0AAA0DDD08800008008800000AAA0DDD08800008808
  165.         888880AAA0DDD088000088088888800000DDD088000080088888888880DDD088
  166.         000088088888888880DDD0880000880888888888800000880000800888888888
  167.         8888888800008888888888888888888800008888888888888888888800008888
  168.         88888888888888880000}
  169.       OnClick = SpeedButton6Click
  170.     end
  171.     object SpeedButton7: TSpeedButton
  172.       Left = 189
  173.       Top = 4
  174.       Width = 25
  175.       Height = 25
  176.       Hint = 'Toggle 3D On / Off'
  177.       AllowAllUp = True
  178.       GroupIndex = 2
  179.       Down = True
  180.       Caption = '3D'
  181.       OnClick = SpeedButton7Click
  182.     end
  183.     object BitBtn1: TBitBtn
  184.       Left = 220
  185.       Top = 4
  186.       Width = 93
  187.       Height = 29
  188.       Caption = '&Edit Chart...'
  189.       TabOrder = 0
  190.       OnClick = BitBtn1Click
  191.       Glyph.Data = {
  192.         96010000424D9601000000000000760000002800000018000000180000000100
  193.         0400000000002001000000000000000000001000000010000000000000000000
  194.         80000080000000808000800000008000800080800000C0C0C000808080000000
  195.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  196.         7777777777777777777777777777777777777777777777777777777777777770
  197.         0070070070077777777777777777777777777777777777778787878787877777
  198.         7777770000000000000077777777770998CC8DD8228077777777780998CC8DD8
  199.         228087777777770998CB8888228077777777780998BCB888B280877777777708
  200.         8BCC8B8B2B80777777777808B8CC88B822B087777777770B8888888822807777
  201.         7777780888888888228087777777770888888888888077777777780888888888
  202.         8880877777777700000000000000777777777777878787878787777777777000
  203.         7070707070707707777770777070700070077707777770777000707070707707
  204.         7777700070707000700070007777777777777777777777777777}
  205.     end
  206.     object BitBtn2: TBitBtn
  207.       Left = 317
  208.       Top = 4
  209.       Width = 89
  210.       Height = 29
  211.       Caption = '&Edit Map...'
  212.       TabOrder = 1
  213.       OnClick = BitBtn2Click
  214.       Glyph.Data = {
  215.         66010000424D6601000000000000760000002800000014000000140000000100
  216.         040000000000F000000000000000000000001000000010000000000000000000
  217.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  218.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  219.         33333333000033333333333333333333000030000000000000000003000030FB
  220.         FB08880FFF0AAA03000030BFBF08880FFF0AAA03000030777700000000000003
  221.         000030BFBF08880FFF088803000030FBFB08880FFF0888030000307777000000
  222.         00000003000030FBFB0AAA08880FFF03000030BFBF0AAA08880FFF0300003077
  223.         7700000000000003000030BFBF08880888088803000030FBFB08880888088803
  224.         000030777700000000000003000030FBFB7BFB7BFB7BFB03000030BFBF7FBF7F
  225.         BF7FBF0300003000000000000000000300003333333333333333333300003333
  226.         33333333333333330000}
  227.     end
  228.   end
  229.   object Panel1: TPanel
  230.     Left = 0
  231.     Top = 37
  232.     Width = 416
  233.     Height = 40
  234.     Align = alTop
  235.     TabOrder = 0
  236.     object Label1: TLabel
  237.       Left = 80
  238.       Top = 8
  239.       Width = 23
  240.       Height = 24
  241.       Caption = '0'
  242.       Font.Color = clBlack
  243.       Font.Height = -19
  244.       Font.Name = 'MS Sans Serif'
  245.       Font.Style = [fsBold, fsItalic]
  246.       ParentFont = False
  247.     end
  248.     object Label2: TLabel
  249.       Left = 8
  250.       Top = 8
  251.       Width = 66
  252.       Height = 24
  253.       Caption = 'Score:'
  254.       Font.Color = clBlue
  255.       Font.Height = -21
  256.       Font.Name = 'Arial'
  257.       Font.Style = [fsBold]
  258.       ParentFont = False
  259.     end
  260.     object Label3: TLabel
  261.       Left = 144
  262.       Top = 8
  263.       Width = 62
  264.       Height = 24
  265.       Caption = 'Lives:'
  266.       Font.Color = clBlue
  267.       Font.Height = -21
  268.       Font.Name = 'Arial'
  269.       Font.Style = [fsBold]
  270.       ParentFont = False
  271.     end
  272.     object Label4: TLabel
  273.       Left = 212
  274.       Top = 8
  275.       Width = 23
  276.       Height = 24
  277.       Caption = '3'
  278.       Font.Color = clBlack
  279.       Font.Height = -19
  280.       Font.Name = 'MS Sans Serif'
  281.       Font.Style = [fsBold, fsItalic]
  282.       ParentFont = False
  283.     end
  284.     object Chart2: TChart
  285.       Left = 273
  286.       Top = 4
  287.       Width = 132
  288.       Height = 33
  289.       BackWall.Brush.Color = clWhite
  290.       BackWall.Color = clSilver
  291.       BackWall.Pen.Visible = False
  292.       Foot.Font.Color = clRed
  293.       Foot.Font.Height = -12
  294.       Foot.Font.Name = 'Arial'
  295.       Foot.Font.Style = [fsItalic]
  296.       Foot.Visible = False
  297.       Title.Text.Strings = (
  298.         'TChart Component')
  299.       Title.Visible = False
  300.       AxisVisible = False
  301.       BackColor = clSilver
  302.       BottomAxis.Automatic = False
  303.       BottomAxis.AutomaticMaximum = False
  304.       BottomAxis.AutomaticMinimum = False
  305.       BottomAxis.Maximum = 150.000000000000000000
  306.       BottomAxis.EndPosition = 100.000000000000000000
  307.       Chart3DPercent = 40
  308.       ClipPoints = False
  309.       Frame.Visible = False
  310.       LeftAxis.ExactDateTime = False
  311.       LeftAxis.EndPosition = 100.000000000000000000
  312.       Legend.Visible = False
  313.       RightAxis.EndPosition = 100.000000000000000000
  314.       TopAxis.EndPosition = 100.000000000000000000
  315.       View3DWalls = False
  316.       Color = clSilver
  317.       TabOrder = 0
  318.       object HorizBarSeries1: THorizBarSeries
  319.         Marks.ArrowLength = 20
  320.         Marks.Style = smsXValue
  321.         Marks.Visible = True
  322.         SeriesColor = clNavy
  323.         BarBrush.Color = clWhite
  324.         BarPen.Color = clWhite
  325.         XValues.DateTime = False
  326.         XValues.Name = 'X'
  327.         XValues.Multiplier = 1.000000000000000000
  328.         XValues.Order = loNone
  329.         YValues.DateTime = False
  330.         YValues.Name = 'Y'
  331.         YValues.Multiplier = 1.000000000000000000
  332.         YValues.Order = loNone
  333.         Left = 353
  334.         Top = 38
  335.       end
  336.     end
  337.   end
  338.   object Chart1: TChart
  339.     Left = 0
  340.     Top = 77
  341.     Width = 416
  342.     Height = 294
  343.     AnimatedZoom = True
  344.     AnimatedZoomSteps = 12
  345.     BackWall.Brush.Color = clWhite
  346.     BackWall.Brush.Style = bsClear
  347.     Foot.Font.Color = clRed
  348.     Foot.Font.Height = -12
  349.     Foot.Font.Name = 'Arial'
  350.     Foot.Font.Style = [fsItalic]
  351.     Title.Text.Strings = (
  352.       'TChart Component')
  353.     Title.Visible = False
  354.     OnUndoZoom = Chart1UndoZoom
  355.     BottomAxis.EndPosition = 100.000000000000000000
  356.     LeftAxis.EndPosition = 100.000000000000000000
  357.     Legend.Visible = False
  358.     RightAxis.EndPosition = 100.000000000000000000
  359.     TopAxis.EndPosition = 100.000000000000000000
  360.     View3D = False
  361.     Align = alClient
  362.     TabOrder = 1
  363.     object Walls: TBubbleSeries
  364.       ColorEachPoint = False
  365.       Marks.ArrowLength = 8
  366.       Marks.Frame.Visible = False
  367.       Marks.Style = smsValue
  368.       Marks.Transparent = True
  369.       Marks.Visible = False
  370.       SeriesColor = 8421440
  371.       AfterDrawValues = WallsAfterDrawValues
  372.       OnGetPointerStyle = WallsGetPointerStyle
  373.       Pointer.HorizSize = 25
  374.       Pointer.InflateMargins = True
  375.       Pointer.Pen.Color = clNavy
  376.       Pointer.Style = psCircle
  377.       Pointer.VertSize = 25
  378.       Pointer.Visible = True
  379.       XValues.DateTime = False
  380.       XValues.Name = 'X'
  381.       XValues.Multiplier = 1.000000000000000000
  382.       XValues.Order = loNone
  383.       YValues.DateTime = False
  384.       YValues.Name = 'Y'
  385.       YValues.Multiplier = 1.000000000000000000
  386.       YValues.Order = loNone
  387.       RadiusValues.DateTime = False
  388.       RadiusValues.Name = 'Radius'
  389.       RadiusValues.Multiplier = 1.000000000000000000
  390.       RadiusValues.Order = loNone
  391.       Left = 183
  392.       Top = 158
  393.     end
  394.   end
  395.   object Panel2: TPanel
  396.     Left = 0
  397.     Top = 371
  398.     Width = 416
  399.     Height = 51
  400.     Align = alBottom
  401.     TabOrder = 2
  402.     object Label5: TLabel
  403.       Left = 68
  404.       Top = 4
  405.       Width = 321
  406.       Height = 13
  407.       Caption = 'Press any key to Start.  Use the Arrow keys to move   !!!'
  408.       Font.Color = clBlack
  409.       Font.Height = -11
  410.       Font.Name = 'MS Sans Serif'
  411.       Font.Style = [fsBold]
  412.       ParentFont = False
  413.     end
  414.     object Label6: TLabel
  415.       Left = 84
  416.       Top = 36
  417.       Width = 268
  418.       Height = 13
  419.       Caption = 'Copyright (c) 1996 David Berneda. All Rights Reserved.'
  420.       Font.Color = clBlack
  421.       Font.Height = -11
  422.       Font.Name = 'MS Sans Serif'
  423.       Font.Style = [fsItalic]
  424.       ParentFont = False
  425.     end
  426.     object Label7: TLabel
  427.       Left = 84
  428.       Top = 20
  429.       Width = 269
  430.       Height = 13
  431.       Caption = 'Left mouse button to Zoom. Right mouse button to Scroll.'
  432.       Font.Color = clNavy
  433.       Font.Height = -11
  434.       Font.Name = 'MS Sans Serif'
  435.       Font.Style = []
  436.       ParentFont = False
  437.     end
  438.   end
  439.   object MainMenu1: TMainMenu
  440.     Left = 131
  441.     Top = 86
  442.     object File1: TMenuItem
  443.       Caption = '&File'
  444.       object New1: TMenuItem
  445.         Caption = '&New'
  446.         OnClick = New1Click
  447.         ShortCutText = 'Ctrl+N'
  448.       end
  449.       object Open1: TMenuItem
  450.         Caption = '&Open...'
  451.         OnClick = Open1Click
  452.         ShortCutText = 'F3'
  453.       end
  454.       object Save1: TMenuItem
  455.         Caption = '&Save...'
  456.         OnClick = Save1Click
  457.         ShortCutText = 'F2'
  458.       end
  459.       object N1: TMenuItem
  460.         Caption = '-'
  461.       end
  462.       object Ranking1: TMenuItem
  463.         Caption = '&Ranking...'
  464.         OnClick = Ranking1Click
  465.       end
  466.       object N2: TMenuItem
  467.         Caption = '-'
  468.       end
  469.       object QuittAltX1: TMenuItem
  470.         Caption = '&Quit'
  471.         OnClick = QuittAltX1Click
  472.         ShortCutText = 'Ctrl+X'
  473.       end
  474.     end
  475.     object Options1: TMenuItem
  476.       Caption = '&Options'
  477.       object Zoomed1: TMenuItem
  478.         Caption = '&Zoomed'
  479.         OnClick = Zoomed1Click
  480.       end
  481.       object N3Dimensions1: TMenuItem
  482.         Caption = '3 &Dimensions'
  483.         Checked = True
  484.         OnClick = N3Dimensions1Click
  485.       end
  486.       object ShowAxis1: TMenuItem
  487.         Caption = 'Show &Axis'
  488.         Checked = True
  489.         OnClick = ShowAxis1Click
  490.       end
  491.       object ShowLegend1: TMenuItem
  492.         Caption = 'Show &Legend'
  493.         OnClick = ShowLegend1Click
  494.       end
  495.     end
  496.     object Help1: TMenuItem
  497.       Caption = '&Help'
  498.       object HowToPlay1: TMenuItem
  499.         Caption = 'How To &Play ?'
  500.         OnClick = HowToPlay1Click
  501.       end
  502.       object AboutTeeChart1: TMenuItem
  503.         Caption = '&About TeeChart...'
  504.         OnClick = AboutTeeChart1Click
  505.       end
  506.     end
  507.   end
  508.   object OpenDialog1: TOpenDialog
  509.     DefaultExt = 'TEE'
  510.     Filter = 'TeePac Game Files|*.TEE'
  511.     Options = [ofHideReadOnly, ofFileMustExist]
  512.     Left = 63
  513.     Top = 87
  514.   end
  515.   object SaveDialog1: TSaveDialog
  516.     DefaultExt = 'TEE'
  517.     Filter = 'TeePac Game Files|*.TEE'
  518.     Options = [ofOverwritePrompt]
  519.     Left = 193
  520.     Top = 89
  521.   end
  522. end
  523.