GraphicObjectControlPanelModeEditors.vb

Imports DWSIM.ExtensionMethods
Imports DWSIM.Interfaces
Imports DWSIM.SharedClasses
Imports System.Linq
Imports System.Windows.Forms

Public Class GraphicObjectControlPanelModeEditors

    Public Shared Sub SetInputDelegate(gobj As IGraphicObject, myObj As ISimulationObject)

        gobj.ControlPanelModeEditorDisplayDelegate = Sub()
                                                         Dim f As New FormTextBoxInput
                                                         Dim SelectedObject = myObj?.GetFlowsheet.SimulationObjects.Values.Where(Function(x2) x2.Name = myObj.SelectedObjectID).FirstOrDefault
                                                         If Not SelectedObject Is Nothing Then
                                                             Dim currentvalue = SystemsOfUnits.Converter.ConvertFromSI(myObj.SelectedPropertyUnits, SelectedObject.GetPropertyValue(myObj.SelectedProperty))
                                                             f.TextBox1.Text = currentvalue.ToString(myObj?.GetFlowsheet.FlowsheetOptions.NumberFormat)
                                                             f.Text = SelectedObject.GraphicObject.Tag + "/" + myObj?.GetFlowsheet.GetTranslatedString(myObj.SelectedProperty)
                                                             AddHandler f.TextBox1.KeyDown,
                                                             Sub(s, e)
                                                                 If e.KeyCode = Keys.Enter Then
                                                                     Try
                                                                         SelectedObject.SetPropertyValue(myObj.SelectedProperty, f.TextBox1.Text.ToDoubleFromCurrent().ConvertToSI(myObj.SelectedPropertyUnits))
                                                                         f.Close()
                                                                     Catch ex As Exception
                                                                         MessageBox.Show("Error", ex.Message, MessageBoxButtons.OK, MessageBoxIcon.Error)
                                                                     End Try
                                                                 End If
                                                             End Sub
                                                             f.StartPosition = FormStartPosition.Manual
                                                             f.Location = Cursor.Position
                                                             f.ShowDialog()
                                                         End If
                                                     End Sub


    End Sub

    Public Shared Sub SetPIDDelegate(gobj As IGraphicObject, myObj As ISimulationObject)

        gobj.ControlPanelModeEditorDisplayDelegate = Sub()
                                                         Dim f As New FormPIDCPEditor With {.PID = myObj}
                                                         f.StartPosition = FormStartPosition.Manual
                                                         f.Location = Cursor.Position
                                                         f.ShowDialog()
                                                     End Sub

    End Sub

End Class