forked from Wiering/Tile-Studio
-
Notifications
You must be signed in to change notification settings - Fork 1
/
TileCopy.lfm
179 lines (179 loc) · 3.48 KB
/
TileCopy.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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
object CopyTilesForm: TCopyTilesForm
Left = 225
Top = 494
BorderStyle = bsDialog
Caption = 'Copy Tiles'
ClientHeight = 303
ClientWidth = 266
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poDesktopCenter
OnShow = FormShow
PixelsPerInch = 96
object OkButton: TButton
Left = 56
Top = 267
Width = 73
Height = 25
Caption = 'OK'
Default = True
TabOrder = 2
OnClick = OkButtonClick
end
object CancelButton: TButton
Left = 136
Top = 267
Width = 73
Height = 25
Caption = 'Cancel'
TabOrder = 3
OnClick = CancelButtonClick
end
object G1: TGroupBox
Left = 8
Top = 8
Width = 249
Height = 105
Caption = 'Source'
TabOrder = 0
object L1: TLabel
Left = 6
Top = 6
Width = 71
Height = 13
Caption = 'Copy tiles from:'
end
object L3: TLabel
Left = 6
Top = 38
Width = 91
Height = 13
Caption = 'Start at tile number:'
end
object L4: TLabel
Left = 6
Top = 62
Width = 148
Height = 13
Caption = 'Number of tiles to copy (0 = all):'
end
object Src: TComboBox
Left = 102
Top = 2
Width = 137
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'Src'
OnChange = CheckInput
OnKeyDown = CopyTilesKeyDown
end
object StartTile: TSpinEdit
Left = 182
Top = 34
Width = 57
Height = 22
MaxValue = 16384
MinValue = 1
TabOrder = 1
Value = 1
OnKeyDown = CopyTilesKeyDown
end
object TileCount: TSpinEdit
Left = 182
Top = 58
Width = 57
Height = 22
MaxValue = 16384
MinValue = 0
TabOrder = 2
Value = 0
OnKeyDown = CopyTilesKeyDown
end
end
object G2: TGroupBox
Left = 8
Top = 120
Width = 249
Height = 137
Caption = 'Destination'
TabOrder = 1
object L2: TLabel
Left = 6
Top = 6
Width = 60
Height = 13
Caption = 'Copy tiles to:'
end
object L5: TLabel
Left = 6
Top = 38
Width = 158
Height = 13
Caption = 'Destination position (0 = append):'
end
object Dst: TComboBox
Left = 102
Top = 2
Width = 137
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'Dst'
OnChange = CheckInput
OnKeyDown = CopyTilesKeyDown
end
object DstStartTile: TSpinEdit
Left = 182
Top = 34
Width = 57
Height = 22
MaxValue = 16384
MinValue = 0
TabOrder = 1
Value = 0
OnKeyDown = CopyTilesKeyDown
end
object Overwrite: TCheckBox
Left = 54
Top = 62
Width = 129
Height = 17
Caption = 'Overwrite existing tiles'
TabOrder = 2
OnKeyDown = CopyTilesKeyDown
end
object Stretch: TCheckBox
Left = 54
Top = 78
Width = 89
Height = 17
Caption = 'Stretch tiles'
TabOrder = 3
OnKeyDown = CopyTilesKeyDown
end
object CopyBounds: TCheckBox
Left = 54
Top = 94
Width = 89
Height = 17
Caption = 'Copy bounds'
Checked = True
State = cbChecked
TabOrder = 4
OnKeyDown = CopyTilesKeyDown
end
object UseScaler: TCheckBox
Left = 147
Top = 78
Width = 76
Height = 17
Caption = 'Use scaler'
TabOrder = 5
end
end
end