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
|
object Form1: TForm1
Left = 57
Height = 385
Top = 327
Width = 682
Caption = 'Form1'
ClientHeight = 385
ClientWidth = 682
OnCreate = FormCreate
OnDestroy = FormDestroy
Position = poScreenCenter
LCLVersion = '2.2.0.4'
object RG: TRadioGroup
Left = 504
Height = 248
Top = 16
Width = 169
Anchors = [akTop, akRight]
AutoFill = True
Caption = 'Mapping mode'
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 = 225
ClientWidth = 165
ItemIndex = 0
Items.Strings = (
'ANISOTROPIC'
'ISOTROPIC'
'LOENGLISH'
'HIENGLISH'
'LOMETRIC'
'HIMETRIC'
'TWIPS'
'ANISOTROPIC mirr.'
)
OnClick = RGClick
TabOrder = 0
end
object Label1: TLabel
Left = 498
Height = 21
Top = 288
Width = 146
Anchors = [akTop, akRight]
Caption = 'Resize the window'
end
object Label2: TLabel
Left = 499
Height = 21
Top = 307
Width = 143
Anchors = [akTop, akRight]
Caption = 'to see differences'
end
object PB: TPaintBox
Left = 0
Height = 385
Top = 0
Width = 488
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
OnPaint = PBPaint
end
end
|
