unit1.dfm

3d snake 游戏编程源码

object MainForm: TMainForm
  Left = 239
  Top = 145
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '3D'#36138#39135#34503
  ClientHeight = 475
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 624
    Top = 0
    Width = 153
    Height = 475
    Align = alRight
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 0
    object lblSnakeHead: TLabel
      Left = 6
      Top = 124
      Width = 7
      Height = 14
    end
    object lblSnakeLength: TLabel
      Left = 6
      Top = 142
      Width = 7
      Height = 14
    end
    object Bevel1: TBevel
      Left = 3
      Top = 118
      Width = 147
      Height = 2
    end
    object Bevel2: TBevel
      Left = 3
      Top = 163
      Width = 147
      Height = 2
    end
    object lblApplePos: TLabel
      Left = 6
      Top = 190
      Width = 7
      Height = 14
    end
    object lblShowTime: TLabel
      Left = 41
      Top = 205
      Width = 28
      Height = 56
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -56
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object Label2: TLabel
      Left = 6
      Top = 224
      Width = 28
      Height = 14
      Caption = #36824#26377
      Visible = False
    end
    object Label3: TLabel
      Left = 6
      Top = 262
      Width = 112
      Height = 14
      Caption = #33529#26524#23601#35201#31227#21160#20102#12290
      Visible = False
    end
    object Bevel3: TBevel
      Left = 3
      Top = 284
      Width = 147
      Height = 2
    end
    object Image1: TImage
      Left = 32
      Top = 308
      Width = 82
      Height = 49
      Picture.Data = {
        07544269746D6170AE2F0000424DAE2F00000000000036000000280000005200
        0000310000000100180000000000782F00000000000000000000000000000000
        00006B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B240800006B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B
        24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B2408
        6B24086B24086B24086B24086B24086B24086B24086B24086B24086B24086B24
        086B24086B24086B24086B24086B240800006B24086B24086B24088482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482848482848482848482848482848482848482848482846B2408
        6B24086B24086B24086B24088482848482848482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482848482848482846B24086B24086B24086B24086B2408848284
        8482848482848482848482848482848482848482848482848482848482848482
        848482848482848482848482848482848482848482848482848482848482846B
        24086B24086B240800006B24086B240884828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482846B24086B24086B24
        0884828484828484828484828484828484828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482846B24086B24086B24088482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482848482848482848482848482848482848482846B24086B2408
        00006B24086B2408848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        848482848482848482848482848482846B24086B24086B240884828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        846B24086B24086B240884828484828484828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482846B24086B240800006B24086B2408
        8482848482848482848482848482848482848482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482846B24086B24086B2408848284848284848284848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        848482848482848482848482848482848482848482848482846B24086B24086B
        2408848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        848482848482848482846B24086B240800006B24086B24088482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        6B24086B24086B24088482848482848482848482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482848482848482848482846B24086B24086B2408848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82846B24086B240800006B24086B240884828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482846B24086B24086B24
        0884828484828484828484828484828484828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482846B24086B24086B24088482848482848482848482848482
        8484828484828484828484828484828484828484828484828484828484828484
        82848482848482848482848482848482848482848482848482846B24086B2408
        00006B24086B2408848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482848482848482848482848482848482
        848482848482848482848482848482846B24086B24086B240884828484828484
        8284848284848284848284808080808080808080808080808080808080808080
        8080808080808080808080808080808080808080808482848482848482848482
        846B24086B24086B240884828484828484828484828484828484828484828484
        8284848284848284848284848284848284848284848284848284848284848284
        8482848482848482848482848482848482846B24086B240800006B24086B2408
        8482848482848482848482848482848482848482848482848482840000000000
        0000000000000000000084828484828484828484828484828484828484828484
        82848482848482846B24086B24086B2408848284848284848284848284848284
        8482848080808080808080808080808080800000000000000000008080808080
        808080808080808080808080808482848482848482848482846B24086B24086B
        2408848284848284848284848284848284848284848284848284848284848284
        0000000000000000000000000000008482848482848482848482848482848482
        848482848482848482846B24086B240800006B24086B24088482848482848482
        8484828484828484828484828484828400000000000084828484828400000000
        0000848284848284848284848284848284848284848284848284848284848284
        6B24086B24086B24088482848482848482848482848482848482848080808080
        8080808080808000000000000080808000000000000080808080808080808080
        80808080808482848482848482848482846B24086B24086B2408848284848284
        8482848482848482848482848482848482848482840000000000008482848482
        8400000000000084828484828484828484828484828484828484828484828484
        82846B24086B240800006B24086B240884828484828484828484828484828484
        8284848284848284000000000000848284848284000000000000848284848284
        8482848482848482848482848482848482848482848482846B24086B24086B24
        0884828484828484828484828484828484828480808080808080808080808080
        8080808080000000000000808080808080808080808080808080808080848284
        8482848482848482846B24086B24086B24088482848482848482848482848482
        8484828484828484828484828400000000000084828484828400000000000084
        82848482848482848482848482848482848482848482848482846B24086B2408
        00006B24086B2408848284848284848284848284848284848284848284848284
        8482840000000000000000000000000000008482848482848482848482848482
        848482848482848482848482848482846B24086B24086B240884828484828484
        8284848284848284848284808080808080808080808080808080000000000000
        8080808080808080808080808080808080808080808482848482848482848482
        846B24086B24086B240884828484828484828484828484828484828484828484