unit1.dfm

一个经典的汉诺塔演示的java程序

object Form1: TForm1
  Left = 380
  Top = 265
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25340#22270#28216#25103
  ClientHeight = 382
  ClientWidth = 592
  Color = clWindowText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100001000400E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000010000000100000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000088778811118800000001110000000000087788011080000000011110000
    0000000000701100000000001110000000000000000001000000000001100111
    1000000000000000008883000010000000000000000000000887783000000000
    0000000000000000881111880000000000000000000000088117711800000000
    0000066000000008811111188000000000000000000000888888888888000000
    0000000000000088788838777800000000000000000000877837887777000000
    0000000000000000003F87000810000000000000000000011107801110100000
    0000111100000091110819111100000000011191000000199113109911010000
    0088119100000001118883001101000000081191000000808887788808000111
    111111911100000877FF777880008199999999999110008878FFF77788108111
    1111119111100008717F77783010881188881191881010008187778801100811
    1008119108000010000888000100088111081191000000001000000010000088
    1108119100000000000111100000000881181191000000000000000000000000
    8111119100000000000000000000000088111191000000000000000000000000
    0881119100000000000000000000000000881191000000000000000000000000
    000881110000000000000000000000000000888000000000000000000000FF00
    00003F8000003F8000003FFC000087FF0000C03F8000F03FC001FF83C003FF80
    0003FFF80001FFFC0001FFFC0001FFFF0000FFFF0000FF0F0000FE0F0000FC0E
    0000FE0E000080020000000000000000000000010001860BC001820FE003C20F
    E00FE00FFFFFF00FFFFFF00FFFFFF80FFFFFFC0FFFFFFE0FFFFFFF1FFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 328
    Top = 72
    Width = 63
    Height = 16
    Caption = #28304#22270#39044#35272'     '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 296
    Top = 16
    Width = 63
    Height = 13
    Caption = #29616#22312#26102#21051#65306' '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 152
    Top = 16
    Width = 60
    Height = 13
    Caption = #24320#22987#26102#21051#65306
    Color = clWindowText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label4: TLabel
    Left = 216
    Top = 16
    Width = 42
    Height = 13
    Caption = '00:00:00'
    Color = clWindowText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object Label5: TLabel
    Left = 361
    Top = 16
    Width = 42
    Height = 13
    Caption = '00:00:00'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Panel1: TPanel
    Left = 16
    Top = 96
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel2: TPanel
    Left = 104
    Top = 96
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Image2: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel3: TPanel
    Left = 192
    Top = 96
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Image3: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel4: TPanel
    Left = 16
    Top = 184
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    object Image4: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel5: TPanel
    Left = 104
    Top = 184
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    object Image5: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel6: TPanel
    Left = 192
    Top = 184
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    object Image6: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel7: TPanel
    Left = 16
    Top = 272
    Width = 89
    Height = 89
    BevelWidth = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    object Image7: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel8: TPanel
    Left = 104
    Top = 272
    Width = 89
    Height = 89
    BevelWidth = 2
    TabOrder = 7
    object Image8: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel9: TPanel
    Left = 192
    Top = 272
    Width = 89
    Height = 89
    BevelWidth = 2
    TabOrder = 8
    object Image9: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel10: TPanel
    Left = 16
    Top = 8
    Width = 89
    Height = 89
    BevelOuter = bvSpace
    BevelWidth = 2
    TabOrder = 9
    object Image10: TImage
      Left = 2
      Top = 2
      Width = 85
      Height = 85
      Align = alClient
      Stretch = True
    end
  end
  object Panel11: TPanel
    Left = 312
    Top = 96
    Width = 265
    Height = 265
    BevelWidth = 2
    TabOrder = 10
    object Image11: TImage
      Left = 2
      Top = 2
      Width = 261
      Height = 261
      Align = alClient
      Stretch = True
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 363
    Width = 592
    Height = 19
    Color = clWindowText
    Panels = <>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    Left = 432
    Top = 8
    object N1: TMenuItem
      Caption = #20027#33756#21333
      object N2: TMenuItem
        Caption = #25171#24320#20301#22270
        OnClick = N2Click
      end
      object N10: TMenuItem
        Caption = #36864#20986
        OnClick = N10Click
      end
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = #20301#22270' '#65288'Bitmap'#65289'|*.bmp'
    Left = 464
    Top = 8
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 528
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    Left = 496
    Top = 8
    object N5: TMenuItem
      Caption = #25171#24320#20301#22270
      OnClick = N5Click
    end
    object N8: TMenuItem
      Caption = #36864#20986
      OnClick = N8Click
    end
  end
end