Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
nmsdk
rdk
Commits
d96e9cc63acf
Commit
5416c68f
authored
Apr 07, 2021
by
Alexab
Browse files
Gui/bcb: minor update.
--HG-- branch : MockCompsTest
parent
8bb4d7befcdf
Changes
2
Hide whitespace changes
Inline
Side-by-side
GUI/BCB/USeriesControlUnit.cpp
View file @
d96e9cc6
...
...
@@ -563,8 +563,32 @@ void __fastcall TUSeriesControlForm::Edit4Exit(TObject *Sender)
if
(
StringGrid2
->
Row
<
1
||
(
StringGrid2
->
Row
==
1
&&
StringGrid2
->
Cells
[
0
][
1
]
==
""
))
return
;
WatchList
[
StrToInt
(
StringGrid2
->
Cells
[
0
][
StringGrid2
->
Row
])].
YShift
=
StrToFloat
(
Edit4
->
Text
);
int
index
=-
1
;
try
{
index
=
StrToInt
(
StringGrid2
->
Cells
[
0
][
StringGrid2
->
Row
]);
}
catch
(
EConvertError
&
)
{
return
;
}
if
(
index
<
0
)
return
;
double
yshift
=
0.0
;
try
{
yshift
=
StrToFloat
(
Edit4
->
Text
);
}
catch
(
EConvertError
&
)
{
return
;
}
WatchList
[
index
].
YShift
=
yshift
;
SeriesChanged
=
true
;
}
//---------------------------------------------------------------------------
...
...
GUI/BCB/USeriesControlUnit.dfm
View file @
d96e9cc6
...
...
@@ -31,7 +31,6 @@ object USeriesControlForm: TUSeriesControlForm
Align = alClient
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 367
object Panel4: TPanel
Left = 0
Top = 0
...
...
@@ -44,7 +43,6 @@ object USeriesControlForm: TUSeriesControlForm
Align = alClient
BevelOuter = bvNone
TabOrder = 0
ExplicitWidth = 367
object Panel5: TPanel
Left = 298
Top = 0
...
...
@@ -57,7 +55,6 @@ object USeriesControlForm: TUSeriesControlForm
Align = alRight
BevelOuter = bvNone
TabOrder = 0
ExplicitLeft = 295
object Button1: TButton
Left = 12
Top = 16
...
...
@@ -181,7 +178,6 @@ object USeriesControlForm: TUSeriesControlForm
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
ExplicitLeft = 1
object GroupBox2: TGroupBox
Left = 13
Top = 0
...
...
@@ -411,7 +407,6 @@ object USeriesControlForm: TUSeriesControlForm
Align = alRight
BevelOuter = bvNone
TabOrder = 1
ExplicitLeft = 367
object Panel6: TPanel
Left = 0
Top = 225
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment