This instance will be upgraded to Heptapod 0.23.2 on 2021-08-05 at 11:00 UTC+2 (a few minutes of down time)

Commit 5416c68f authored by Alexab's avatar Alexab
Browse files

Gui/bcb: minor update.

--HG--
branch : MockCompsTest
parent 8bb4d7befcdf
......@@ -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;
}
//---------------------------------------------------------------------------
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment