@@ -4,8 +4,8 @@ object Main: TMain
44 BorderIcons = [biSystemMenu, biMinimize]
55 BorderStyle = bsSingle
66 Caption = ' SteamVR Settings'
7- ClientHeight = 197
8- ClientWidth = 292
7+ ClientHeight = 227
8+ ClientWidth = 608
99 Color = clBtnFace
1010 Font.Charset = DEFAULT_CHARSET
1111 Font.Color = clWindowText
@@ -32,21 +32,21 @@ object Main: TMain
3232 Caption = ' Render resolution :'
3333 end
3434 object XLbl: TLabel
35- Left = 214
35+ Left = 206
3636 Top = 46
3737 Width = 5
3838 Height = 13
3939 Caption = ' x'
4040 end
4141 object ChsDriverLbl: TLabel
4242 Left = 8
43- Top = 82
43+ Top = 81
4444 Width = 71
4545 Height = 13
4646 Caption = ' Choose driver: '
4747 end
4848 object DisplayLbl: TLabel
49- Left = 272
49+ Left = 264
5050 Top = 12
5151 Width = 6
5252 Height = 13
@@ -59,8 +59,72 @@ object Main: TMain
5959 Height = 13
6060 Caption = ' Debug mode (not recommended): '
6161 end
62+ object MoreSettingsLbl: TLabel
63+ Left = 104
64+ Top = 163
65+ Width = 72
66+ Height = 13
67+ Cursor = crHandPoint
68+ Caption = ' More settings...'
69+ Font.Charset = DEFAULT_CHARSET
70+ Font.Color = clBlue
71+ Font.Height = -11
72+ Font.Name = ' MS Sans Serif'
73+ Font.Style = []
74+ ParentFont = False
75+ OnClick = MoreSettingsLblClick
76+ end
77+ object DistortionLbl: TLabel
78+ Left = 304
79+ Top = 12
80+ Width = 120
81+ Height = 13
82+ Caption = ' Distortion coefficient 1, 2:'
83+ end
84+ object ZoomLbl: TLabel
85+ Left = 304
86+ Top = 54
87+ Width = 93
88+ Height = 13
89+ Caption = ' Zoom width, height:'
90+ end
91+ object Label1: TLabel
92+ Left = 565
93+ Top = 183
94+ Width = 17
95+ Height = 13
96+ Caption = ' ghz'
97+ end
98+ object DistanceEyesLbl: TLabel
99+ Left = 304
100+ Top = 109
101+ Width = 196
102+ Height = 13
103+ Caption = ' Zoom out the distance between the eyes:'
104+ end
105+ object Label3: TLabel
106+ Left = 565
107+ Top = 109
108+ Width = 26
109+ Height = 13
110+ Caption = ' pixels'
111+ end
112+ object IPDLbl: TLabel
113+ Left = 304
114+ Top = 145
115+ Width = 132
116+ Height = 13
117+ Caption = ' Interpupillary distance (IPD):'
118+ end
119+ object Label5: TLabel
120+ Left = 565
121+ Top = 146
122+ Width = 16
123+ Height = 13
124+ Caption = ' mm'
125+ end
62126 object DisplayTB: TTrackBar
63- Left = 192
127+ Left = 184
64128 Top = 8
65129 Width = 73
66130 Height = 30
@@ -69,23 +133,23 @@ object Main: TMain
69133 OnChange = DisplayTBChange
70134 end
71135 object RndWidthEdt: TEdit
72- Left = 152
136+ Left = 144
73137 Top = 43
74138 Width = 49
75139 Height = 21
76140 TabOrder = 1
77141 Text = ' 0'
78142 end
79143 object RndHeightEdt: TEdit
80- Left = 232
144+ Left = 224
81145 Top = 43
82146 Width = 49
83147 Height = 21
84148 TabOrder = 2
85149 Text = ' 0'
86150 end
87151 object FreeTrackRB: TRadioButton
88- Left = 104
152+ Left = 96
89153 Top = 80
90154 Width = 73
91155 Height = 17
@@ -95,50 +159,116 @@ object Main: TMain
95159 TabStop = True
96160 end
97161 object UDPRB: TRadioButton
98- Left = 176
162+ Left = 168
99163 Top = 80
100164 Width = 106
101165 Height = 17
102166 Caption = ' UDP over network'
103167 TabOrder = 4
104168 end
105- object ApplyBtn: TButton
106- Left = 8
107- Top = 163
108- Width = 75
169+ object DbgMdCb: TCheckBox
170+ Left = 216
171+ Top = 119
172+ Width = 60
173+ Height = 17
174+ Caption = ' Activate'
175+ TabOrder = 5
176+ end
177+ object DistortionK1Edt: TEdit
178+ Left = 472
179+ Top = 14
180+ Width = 57
181+ Height = 21
182+ TabOrder = 8
183+ Text = ' 0.91'
184+ end
185+ object DistortionK2Edt: TEdit
186+ Left = 536
187+ Top = 13
188+ Width = 57
189+ Height = 21
190+ TabOrder = 9
191+ Text = ' 0.93'
192+ end
193+ object ZoomWidthEdt: TEdit
194+ Left = 472
195+ Top = 55
196+ Width = 57
197+ Height = 21
198+ TabOrder = 10
199+ Text = ' 0.8'
200+ end
201+ object ZoomHeightEdt: TEdit
202+ Left = 536
203+ Top = 55
204+ Width = 57
205+ Height = 21
206+ TabOrder = 11
207+ Text = ' 0.8'
208+ end
209+ object AboutBtn: TButton
210+ Left = 248
211+ Top = 192
212+ Width = 28
109213 Height = 25
110- Caption = ' Apply '
111- TabOrder = 6
112- OnClick = ApplyBtnClick
214+ Caption = ' ? '
215+ TabOrder = 15
216+ OnClick = AboutBtnClick
113217 end
114218 object CancelBtn: TButton
115219 Left = 88
116- Top = 163
220+ Top = 192
117221 Width = 75
118222 Height = 25
119223 Caption = ' Cancel'
120224 TabOrder = 7
121225 OnClick = CancelBtnClick
122226 end
123- object AboutBtn : TButton
124- Left = 256
125- Top = 163
126- Width = 28
227+ object ApplyBtn : TButton
228+ Left = 8
229+ Top = 192
230+ Width = 75
127231 Height = 25
128- Caption = ' ? '
129- TabOrder = 8
130- OnClick = AboutBtnClick
232+ Caption = ' Apply '
233+ TabOrder = 6
234+ OnClick = ApplyBtnClick
131235 end
132- object DbgMdCb : TCheckBox
133- Left = 224
134- Top = 112
135- Width = 60
236+ object ChangeDisplayFrequencyCB : TCheckBox
237+ Left = 304
238+ Top = 181
239+ Width = 145
136240 Height = 17
137- Caption = ' Activate'
138- TabOrder = 5
241+ Caption = ' Change display frequency'
242+ TabOrder = 16
243+ OnClick = ChangeDisplayFrequencyCBClick
244+ end
245+ object DisplayFrequencyEdt: TEdit
246+ Left = 512
247+ Top = 179
248+ Width = 49
249+ Height = 21
250+ Enabled = False
251+ TabOrder = 14
252+ Text = ' 0'
253+ end
254+ object IPDEdt: TEdit
255+ Left = 512
256+ Top = 143
257+ Width = 49
258+ Height = 21
259+ TabOrder = 13
260+ Text = ' 0.065'
261+ end
262+ object DistanceEyesEdt: TEdit
263+ Left = 512
264+ Top = 106
265+ Width = 49
266+ Height = 21
267+ TabOrder = 12
268+ Text = ' 0'
139269 end
140270 object XPManifest: TXPManifest
141- Left = 224
142- Top = 163
271+ Left = 160
272+ Top = 3
143273 end
144274end
0 commit comments