main.dfm

这个c程序是一个简单的汉诺塔小游戏。它可以直接运行

object Mainfrm: TMainfrm
  Left = 82
  Top = 148
  Width = 836
  Height = 519
  Caption = 'HanoiTower'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    828
    492)
  PixelsPerInch = 96
  TextHeight = 13
  object PaintBoxHanoiTower: TPaintBox
    Left = 0
    Top = 0
    Width = 612
    Height = 492
    Align = alClient
    OnMouseDown = PaintBoxHanoiTowerMouseDown
    OnMouseMove = PaintBoxHanoiTowerMouseMove
    OnMouseUp = PaintBoxHanoiTowerMouseUp
    OnPaint = PaintBoxHanoiTowerPaint
  end
  object GroupBox1: TGroupBox
    Left = 612
    Top = 0
    Width = 216
    Height = 492
    Align = alRight
    Caption = 'Option'
    TabOrder = 0
    object grpTray: TGroupBox
      Left = 10
      Top = 100
      Width = 195
      Height = 127
      Caption = 'Tray'
      TabOrder = 1
      object edtBrown: TSpeedButton
        Left = 76
        Top = 68
        Width = 51
        Height = 22
        Caption = 'Load...'
        Flat = True
      end
      object StaticText1: TStaticText
        Left = 10
        Top = 20
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'Count'
        TabOrder = 0
      end
      object edtCount: TEdit
        Left = 75
        Top = 18
        Width = 110
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        Text = '5'
      end
      object StaticText2: TStaticText
        Left = 10
        Top = 44
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'Color'
        TabOrder = 2
      end
      object btnSet: TBitBtn
        Left = 92
        Top = 98
        Width = 95
        Height = 21
        Caption = 'Sure'
        Default = True
        TabOrder = 4
        OnClick = btnSetClick
      end
      object ColorBoxTray: TColorBox
        Left = 75
        Top = 44
        Width = 110
        Height = 20
        BevelKind = bkFlat
        Color = clHighlightText
        Ctl3D = False
        ItemHeight = 14
        ParentCtl3D = False
        TabOrder = 3
      end
      object label13: TStaticText
        Left = 10
        Top = 70
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'BlackPiture'
        TabOrder = 5
      end
    end
    object grpGame: TGroupBox
      Left = 10
      Top = 18
      Width = 195
      Height = 75
      Caption = 'GameState'
      TabOrder = 0
      object StaticText3: TStaticText
        Left = 10
        Top = 18
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'Timer'
        TabOrder = 0
      end
      object edtTimer: TEdit
        Left = 75
        Top = 18
        Width = 110
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 1
        Text = '0'
      end
      object StaticText4: TStaticText
        Left = 10
        Top = 46
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'Steps'
        TabOrder = 2
      end
      object edtStep: TEdit
        Left = 75
        Top = 44
        Width = 110
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        ParentCtl3D = False
        ReadOnly = True
        TabOrder = 3
        Text = '0'
      end
    end
    object grpPlay: TGroupBox
      Left = 10
      Top = 234
      Width = 197
      Height = 243
      Caption = 'AutoPlay'
      TabOrder = 2
      DesignSize = (
        197
        243)
      object StaticText5: TStaticText
        Left = 10
        Top = 16
        Width = 60
        Height = 17
        AutoSize = False
        BevelKind = bkFlat
        Caption = 'Speed'
        TabOrder = 0
      end
      object edtSpeed: TEdit
        Left = 75
        Top = 16
        Width = 110
        Height = 19
        BevelInner = bvLowered
        BevelOuter = bvRaised
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
        Text = '30'
      end
      object btnStar: TBitBtn
        Left = 90
        Top = 40
        Width = 95
        Height = 21
        Caption = 'Star'
        TabOrder = 2
        OnClick = btnStarClick
      end
      object clbRecord: TCheckListBox
        Left = 7
        Top = 66
        Width = 180
        Height = 167
        Anchors = [akTop, akRight, akBottom]
        BevelInner = bvLowered
        BevelOuter = bvRaised
        BevelKind = bkFlat
        BorderStyle = bsNone
        Color = clSkyBlue
        Ctl3D = True
        ItemHeight = 13
        ParentCtl3D = False
        TabOrder = 3
      end
    end
  end
  object clbUser: TCheckListBox
    Left = 427
    Top = 6
    Width = 180
    Height = 91
    Anchors = [akTop, akRight]
    BevelInner = bvLowered
    BevelOuter = bvRaised
    BevelKind = bkFlat
    BorderStyle = bsNone
    Color = clBtnFace
    Ctl3D = True
    ItemHeight = 13
    ParentCtl3D = False
    TabOrder = 1
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 520
    Top = 38
  end
  object OpenPictureDialogBlack: TOpenPictureDialog
    Left = 490
    Top = 38
  end
end