?? unit1.dfm
字號:
object Form1: TForm1
Left = 274
Top = 127
Width = 682
Height = 591
Caption = ' A Cellular Automata with Pattern Matching Rules'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnPaint = FormPaint
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object PaintBox1: TPaintBox
Left = 24
Top = 24
Width = 500
Height = 500
OnMouseDown = PaintBox1MouseDown
OnMouseMove = PaintBox1MouseMove
end
object ButtonRun: TButton
Left = 552
Top = 136
Width = 75
Height = 25
Caption = 'Run'
TabOrder = 0
OnClick = ButtonRunClick
end
object ButtonStep: TButton
Left = 552
Top = 176
Width = 75
Height = 25
Caption = 'Step'
TabOrder = 1
OnClick = ButtonStepClick
end
object ButtonStop: TButton
Left = 552
Top = 216
Width = 75
Height = 25
Caption = 'Stop'
TabOrder = 2
OnClick = ButtonStopClick
end
object GroupBoxReset: TGroupBox
Left = 544
Top = 256
Width = 97
Height = 113
Caption = ' Reset '
TabOrder = 3
object ButtonRandom: TButton
Left = 8
Top = 16
Width = 75
Height = 25
Caption = 'Random'
TabOrder = 0
OnClick = ButtonRandomClick
end
object ButtonDead: TButton
Left = 8
Top = 48
Width = 75
Height = 25
Caption = 'Dead'
TabOrder = 1
OnClick = ButtonDeadClick
end
object ButtonAlive: TButton
Left = 8
Top = 80
Width = 75
Height = 25
Caption = 'Alive'
TabOrder = 2
OnClick = ButtonAliveClick
end
end
object EditIterations: TEdit
Left = 568
Top = 40
Width = 57
Height = 21
TabOrder = 4
Text = ' 0'
end
object TrackBar1: TTrackBar
Left = 536
Top = 88
Width = 113
Height = 33
Max = 250
Orientation = trHorizontal
Frequency = 50
Position = 50
SelEnd = 0
SelStart = 0
TabOrder = 5
TickMarks = tmBottomRight
TickStyle = tsAuto
OnChange = TrackBar1Change
end
object EditCell: TEdit
Left = 576
Top = 496
Width = 41
Height = 21
TabOrder = 6
end
object GroupBoxCursorColor: TGroupBox
Left = 544
Top = 376
Width = 97
Height = 105
Caption = ' Cursor Color '
Color = clYellow
ParentColor = False
TabOrder = 7
object ShapeSandGenerator: TShape
Left = 56
Top = 64
Width = 30
Height = 30
Brush.Color = clFuchsia
OnMouseDown = ShapeSandGeneratorMouseDown
end
object ShapeSand: TShape
Left = 56
Top = 24
Width = 30
Height = 30
Brush.Color = clYellow
OnMouseDown = ShapeSandMouseDown
end
object ShapeEmpty: TShape
Left = 16
Top = 24
Width = 30
Height = 30
Brush.Color = clBlack
OnMouseDown = ShapeEmptyMouseDown
end
object ShapeContainer: TShape
Left = 16
Top = 64
Width = 30
Height = 30
Brush.Color = clAqua
OnMouseDown = ShapeContainerMouseDown
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -