CalcParameterInfo.cs

using LegalLab.Converters;
using LegalLab.Models.Design;
using System;
using System.Threading.Tasks;
using System.Windows.Controls;
using Waher.Networking.XMPP.Contracts;
using Waher.Script;
 
namespace LegalLab.Models.Legal.Items.Parameters
{
    public class CalcParameterInfo : ParameterInfo
    {
        private CalcParameter calcParameter;
        private readonly TextBox textBox;
 
        public CalcParameterInfo(Contract Contract, CalcParameter Parameter, TextBox Control, DesignModel DesignModel, 
            Property<ParameterInfo[]> Parameters)
            : base(Contract, Parameter, Control, DesignModel, Parameters)
        {
            this.calcParameter = Parameter;
            this.textBox = Control;
        }
 
        public override async Task<bool> ValidateParameter(Variables Variables)
        {
            bool Result = await this.calcParameter.IsParameterValid(Variables, this.designModel?.Network.Legal.Contracts);
 
            this.ErrorReason = this.Parameter.ErrorReason;
            this.ErrorText = this.Parameter.ErrorText;
 
            if (Result)
            {
                object Value = this.Parameter.ObjectValue;
 
                this.@value.Value = Value;
                this.textBox.Text = MoneyToString.ToString(Value);
            }
 
            return Result;
        }
 
        public override object Value
        {
            get => this.@value.Value;
            set => this.@value.Value = value;
        }
 
        public override void SetValue(string Value)
        {
            throw new InvalidOperationException("Read-only parameter.");
        }
 
        public override void ContractUpdated(Contract Contract)
        {
            base.ContractUpdated(Contract);
            this.calcParameter = this.Parameter as CalcParameter;
        }
    }
}