-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathoffsetf.lfm
142 lines (142 loc) · 3.08 KB
/
offsetf.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
object OffsetForm: TOffsetForm
Left = 441
Height = 149
Top = 439
Width = 311
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = 'Смещение'
ClientHeight = 149
ClientWidth = 311
Position = poOwnerFormCenter
LCLVersion = '1.6.0.4'
object eOffset: TFloatSpinEdit
AnchorSideTop.Control = cbParams
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btAutoOffset
Left = 99
Height = 23
Top = 51
Width = 100
Anchors = [akTop, akRight]
BorderSpacing.Top = 24
BorderSpacing.Right = 8
Increment = 1
MaxValue = 999
MinValue = -999
TabOrder = 0
Value = 0
end
object btAutoOffset: TButton
AnchorSideTop.Control = eOffset
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 207
Height = 23
Top = 51
Width = 100
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
Caption = 'Авт. смещение'
OnClick = btAutoOffsetClick
TabOrder = 1
end
object Label1: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = eOffset
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 55
Width = 76
BorderSpacing.Left = 4
Caption = 'Смещение, %'
ParentColor = False
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = cbExpand
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15
Top = 86
Width = 65
Caption = 'Множитель'
ParentColor = False
end
object cbExpand: TComboBox
AnchorSideLeft.Control = eOffset
AnchorSideTop.Control = eOffset
AnchorSideTop.Side = asrBottom
Left = 99
Height = 23
Top = 82
Width = 100
BorderSpacing.Top = 8
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'Откл.'
'x10'
'x100'
)
TabOrder = 2
Text = 'Откл.'
end
object btApply: TButton
AnchorSideLeft.Control = eOffset
AnchorSideTop.Control = cbExpand
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 99
Height = 23
Top = 121
Width = 100
BorderSpacing.Top = 16
Caption = 'Применить'
OnClick = btApplyClick
TabOrder = 3
end
object cbParams: TComboBox
AnchorSideLeft.Control = eOffset
AnchorSideTop.Control = Owner
Left = 99
Height = 23
Top = 4
Width = 100
BorderSpacing.Top = 4
ItemHeight = 15
ItemIndex = 0
Items.Strings = (
'X'
'Y'
'R'
)
OnChange = cbParamsChange
TabOrder = 4
Text = 'X'
end
object btQuery: TButton
AnchorSideLeft.Control = btAutoOffset
AnchorSideTop.Control = cbParams
Left = 207
Height = 23
Top = 4
Width = 100
Caption = 'Запрос'
OnClick = btQueryClick
TabOrder = 5
end
object DividerBevel1: TDividerBevel
AnchorSideLeft.Control = Label1
AnchorSideTop.Control = cbParams
AnchorSideTop.Side = asrBottom
Left = 4
Height = 15
Top = 31
Width = 303
BorderSpacing.Top = 4
Font.Style = [fsBold]
ParentFont = False
end
end