-
Notifications
You must be signed in to change notification settings - Fork 2
/
unit4.lfm
123 lines (123 loc) · 2.5 KB
/
unit4.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
object Form4: TForm4
Left = 238
Height = 228
Top = 122
Width = 253
ActiveControl = Button1
Caption = 'Form4'
ClientHeight = 228
ClientWidth = 253
OnClose = FormClose
OnCreate = FormCreate
LCLVersion = '0.9.31'
object RadioGroup1: TRadioGroup
Left = 8
Height = 137
Top = 8
Width = 153
AutoFill = True
Caption = ' Mouse Options '
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 118
ClientWidth = 149
ItemIndex = 0
Items.Strings = (
'Add Collision Line'
'Add Label Line'
'Del Line'
'Add StartPos'
'Add Parkarea'
)
TabOrder = 0
end
object Button3: TButton
Left = 8
Height = 25
Top = 153
Width = 105
Caption = '&Load Map'
OnClick = Button3Click
TabOrder = 1
end
object Button4: TButton
Left = 134
Height = 25
Top = 152
Width = 105
Caption = '&Save Map'
OnClick = Button4Click
TabOrder = 2
end
object Button2: TButton
Left = 8
Height = 25
Top = 192
Width = 231
Caption = '&OK'
OnClick = Button2Click
TabOrder = 3
end
object Button1: TButton
Left = 168
Height = 89
Top = 16
Width = 71
Caption = 'Color'
OnClick = Button1Click
TabOrder = 4
end
object Edit1: TEdit
Left = 168
Height = 25
Top = 112
Width = 71
TabOrder = 5
Text = 'Edit1'
end
object OpenDialog1: TOpenDialog
DefaultExt = '.map'
Filter = 'Map|*.map|All|*.*'
left = 52
top = 172
end
object SaveDialog1: TSaveDialog
DefaultExt = '.map'
Filter = 'Map|*.map|All|*.*'
left = 188
top = 172
end
object ColorDialog1: TColorDialog
Color = clBlack
CustomColors.Strings = (
'ColorA=000000'
'ColorB=000080'
'ColorC=008000'
'ColorD=008080'
'ColorE=800000'
'ColorF=800080'
'ColorG=808000'
'ColorH=808080'
'ColorI=C0C0C0'
'ColorJ=0000FF'
'ColorK=00FF00'
'ColorL=00FFFF'
'ColorM=FF0000'
'ColorN=FF00FF'
'ColorO=FFFF00'
'ColorP=FFFFFF'
'ColorQ=C0DCC0'
'ColorR=F0CAA6'
'ColorS=F0FBFF'
'ColorT=A4A0A0'
)
left = 176
top = 24
end
end