www.pudn.com > DrawDiguiTrees.rar > UDrawTree.dfm
object FrmMain: TFrmMain
Left = 39
Top = -3
Width = 971
Height = 733
Caption = 'FrmMain'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 40
Top = 24
Width = 745
Height = 657
end
object BitBtn_Draw: TBitBtn
Left = 808
Top = 464
Width = 96
Height = 41
Caption = 'DrawTree'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BitBtn_DrawClick
end
object Edit_Num: TEdit
Left = 816
Top = 56
Width = 49
Height = 33
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = '5'
end
object ScrollBar1: TScrollBar
Left = 864
Top = 57
Width = 25
Height = 32
Kind = sbVertical
Max = 8
Min = 1
PageSize = 0
Position = 1
TabOrder = 2
OnChange = ScrollBar1Change
end
object GroupBox1: TGroupBox
Left = 800
Top = 112
Width = 129
Height = 161
Caption = 'TreeType'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
object RadioBtn_Tree1: TRadioButton
Left = 22
Top = 32
Width = 83
Height = 17
Caption = 'Tree1'
Checked = True
TabOrder = 0
TabStop = True
end
object RadioBtn_Tree2: TRadioButton
Left = 22
Top = 72
Width = 83
Height = 17
Caption = 'Tree2'
TabOrder = 1
end
end
object BitBtn_AutoRun: TBitBtn
Left = 808
Top = 536
Width = 96
Height = 39
Caption = 'AutoRun'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = BitBtn_AutoRunClick
end
object GroupBox2: TGroupBox
Left = 800
Top = 288
Width = 129
Height = 113
Caption = 'Dynamic'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
object RadioBtn_Radom: TRadioButton
Left = 8
Top = 32
Width = 91
Height = 17
Caption = 'Radom'
TabOrder = 0
end
object RadioBtn_WindDir: TRadioButton
Left = 8
Top = 72
Width = 91
Height = 17
Caption = 'WindDir'
TabOrder = 1
end
end
object Timer1: TTimer
Enabled = False
Interval = 200
OnTimer = Timer1Timer
Left = 920
Top = 416
end
end