Imports Inventor
Imports System.IO
Imports System.Windows.Forms
Imports System.Text.RegularExpressions
Imports System.Net
Sub Main()
    Dim doc As Document = ThisApplication.ActiveDocument
    Dim allParams As Parameters
    Try
        allParams = doc.ComponentDefinition.Parameters
    Catch ex As Exception
        MessageBox.Show("Документ не содержит параметров.", "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return
    End Try

    ' Определение пути к файлу настроек в уникальной папке
    Dim appDataPath As String = System.IO.Path.Combine(System.Environment.GetFolderPath(System.Environment.SpecialFolder.ApplicationData), "Autodesk", "Inventor", "iLogic")
    Dim settingsDir As String = System.IO.Path.Combine(appDataPath, "Parwindow") ' Уникальная папка для настроек
    Dim settingsFilePath As String = System.IO.Path.Combine(settingsDir, "Settings.txt") ' Файл настроек в уникальной папке

    ' Инициализация настроек
    Dim settings As New Dictionary(Of String, String)()
    ' Чтение настроек из файла
    If System.IO.File.Exists(settingsFilePath) Then
        Try
            Dim lines() As String = System.IO.File.ReadAllLines(settingsFilePath)
            For Each line As String In lines
                If Not String.IsNullOrWhiteSpace(Line) AndAlso Line.Contains("=") Then
                    Dim parts() As String = Line.Split(New Char() {"="c}, 2)
                    Dim key As String = parts(0).Trim()
                    Dim value As String = parts(1).Trim()
                    settings(key) = value
                End If
            Next
        Catch ex As Exception
            ' Если возникла ошибка при чтении файла, используем стандартные настройки
        End Try
    End If

    ' Получение настроек из словаря или установка значений по умолчанию
    Dim isDarkTheme As Boolean = If(settings.ContainsKey("Theme") AndAlso settings("Theme").ToLower() = "dark", True, False)
    Dim currentLanguage As String = If(settings.ContainsKey("Language"), settings("Language").ToLower(), "en")

    ' Чтение настроек сортировки
    Dim currentSortColumn As String = ""
    If settings.ContainsKey("SortColumn") Then
        currentSortColumn = settings("SortColumn")
    End If

    Dim sortAscending As Boolean = True
    If settings.ContainsKey("SortAscending") Then
        Boolean.TryParse(settings("SortAscending"), sortAscending)
    End If

    ' Настройки положения и размера окна
    Dim windowLeft As Integer = 0
    Dim windowTop As Integer = 0
    Dim windowWidth As Integer = 475
    Dim windowHeight As Integer = 420
    If settings.ContainsKey("WindowLeft") Then Integer.TryParse(settings("WindowLeft"), windowLeft)
    If settings.ContainsKey("WindowTop") Then Integer.TryParse(settings("WindowTop"), windowTop)
    If settings.ContainsKey("WindowWidth") Then Integer.TryParse(settings("WindowWidth"), windowWidth)
    If settings.ContainsKey("WindowHeight") Then Integer.TryParse(settings("WindowHeight"), windowHeight)

    ' Создание формы
    Dim resultForm As New Form()
    resultForm.Text = If(currentLanguage = "en", "Parameters", "Параметры")
    resultForm.Width = windowWidth
    resultForm.Height = windowHeight
    resultForm.StartPosition = FormStartPosition.CenterScreen
    resultForm.FormBorderStyle = FormBorderStyle.Sizable
    resultForm.MaximizeBox = False
    resultForm.MinimizeBox = False

    ' Установка положения окна, если настройки существуют
    If windowLeft <> 0 OrElse windowTop <> 0 Then
        resultForm.StartPosition = FormStartPosition.Manual
        resultForm.Left = windowLeft
        resultForm.Top = windowTop
    End If

    ' Обработчик для ограничения минимальных размеров окна
    AddHandler resultForm.SizeChanged, Sub(sender As Object, E As EventArgs)
                                           ' Проверяем ширину и высоту, и если они меньше минимальных значений, восстанавливаем их
                                           If resultForm.Width < 475 Then resultForm.Width = 475
                                           If resultForm.Height < 420 Then resultForm.Height = 420
                                       End Sub

    Dim webBrowser As New WebBrowser()
    webBrowser.Dock = DockStyle.Fill
    webBrowser.IsWebBrowserContextMenuEnabled = False
    webBrowser.AllowWebBrowserDrop = False
    webBrowser.ScrollBarsEnabled = False
    webBrowser.ScriptErrorsSuppressed = True
    resultForm.Controls.Add(webBrowser)

    ' Создание экземпляра ScriptInterface с передачей настроек сортировки
    Dim scriptInterface As New ScriptInterface(doc, allParams, resultForm, webBrowser, isDarkTheme, currentLanguage, settingsFilePath, settings, currentSortColumn, sortAscending)

    AddHandler webBrowser.DocumentCompleted, AddressOf scriptInterface.WebBrowser_DocumentCompleted

    webBrowser.DocumentText = scriptInterface.GenerateHtml()

    AddHandler resultForm.KeyDown, Sub(sender As Object, e As KeyEventArgs)
                                       If e.KeyCode = Keys.Escape OrElse e.KeyCode = Keys.Oem3 Then
                                           resultForm.Close()
                                       End If
                                   End Sub
    resultForm.KeyPreview = True

    AddHandler webBrowser.PreviewKeyDown, Sub(sender As Object, e As PreviewKeyDownEventArgs)
                                              If e.KeyCode = Keys.Escape OrElse e.KeyCode = Keys.Oem3 Then
                                                  resultForm.Close()
                                              End If
                                          End Sub

    ' Обработчик события закрытия окна для сохранения положения
    AddHandler resultForm.FormClosing, AddressOf scriptInterface.SaveWindowPosition

    resultForm.ShowDialog()
End Sub

<System.Runtime.InteropServices.ComVisible(True)>
Public Class ScriptInterface
    Private doc As Document
    Private allParams As Parameters
    Private resultForm As Form
    Private webBrowser As webBrowser
    Private isDarkTheme As Boolean
    Private currentLanguage As String
    Private settingsFilePath As String
    Private settings As Dictionary(Of String, String)
    Private translations As Dictionary(Of String, Dictionary(Of String, String))

    ' Хранение текущего состояния сортировки
    Private currentSortColumn As String = ""
    Private sortAscending As Boolean = True

    Public Sub New(doc As Document, params As Parameters, Form As Form, browser As webBrowser, isDarkTheme As Boolean, currentLanguage As String, settingsFilePath As String, settings As Dictionary(Of String, String), currentSortColumn As String, sortAscending As Boolean)
    Me.doc = doc
    Me.allParams = params
    Me.resultForm = Form
    Me.webBrowser = browser
    Me.isDarkTheme = isDarkTheme
    Me.currentLanguage = currentLanguage
    Me.settingsFilePath = settingsFilePath
    Me.settings = settings
    Me.currentSortColumn = currentSortColumn
    Me.sortAscending = sortAscending
    InitializeTranslations()
	End Sub


    Private Function SplitName(name As String) As Tuple(Of String, Integer)
        Dim match As Match = Regex.Match(name, "^(.*?)(\d+)$")
        If match.Success Then
            Dim prefix As String = match.Groups(1).Value
            Dim number As Integer = Integer.Parse(match.Groups(2).Value)
            Return Tuple.Create(prefix, number)
        Else
            ' Если нет числовой части, считаем префикс равным всему имени, а число 0
            Return Tuple.Create(name, 0)
        End If
    End Function

    Private Sub InitializeTranslations()
        translations = New Dictionary(Of String, Dictionary(Of String, String))()
        Dim ru As New Dictionary(Of String, String) From {
            {"Parameters", "Параметры"},
            {"Error", "Ошибка"},
            {"AddParameter", "Добавить параметр"},
            {"ParameterName", "Обозначение"},
            {"Value", "Значение"},
            {"Description", "Описание"},
            {"Save", "Сохранить"},
            {"Theme", "Тема"},
            {"Language", "Язык"},
            {"StandardParameters", "Переименованные стандартные параметры"},
            {"UserParameters", "Пользовательские параметры"},
            {"NoStandardParams", "Нет переименованных стандартных параметров."},
            {"NoUserParams", "Нет пользовательских параметров."},
            {"AddParamPlaceholderName", "Имя"},
            {"AddParamPlaceholderValue", "Значение"},
            {"AddParamPlaceholderDescription", "Описание"},
            {"AddParamTitle", "Добавить параметр"},
            {"SaveSuccess", "Свойства успешно сохранены."},
            {"SaveThemeError", "Не удалось сохранить настройки темы: "},
            {"SaveLanguageError", "Не удалось сохранить настройки языка: "},
            {"CopySuccess", "Скопировано!"},
            {"ToggleThemeTitle", "Переключить тему"},
            {"ToggleLanguageTitle", "Сменить язык"},
            {"CopyButtonTitle", "Скопировать имя параметра"},
            {"AddButtonTitle", "Добавить параметр"},
            {"SaveButtonTitle", "Сохранить"}
        }
        Dim en As New Dictionary(Of String, String) From {
            {"Parameters", "Parameters"},
            {"Error", "Error"},
            {"AddParameter", "Add Parameter"},
            {"ParameterName", "Part Number"},
            {"Value", "Value"},
            {"Description", "Description"},
            {"Save", "Save"},
            {"Theme", "Theme"},
            {"Language", "Language"},
            {"StandardParameters", "Renamed Standard Parameters"},
            {"UserParameters", "User Parameters"},
            {"NoStandardParams", "No renamed standard parameters."},
            {"NoUserParams", "No user parameters."},
            {"AddParamPlaceholderName", "Name"},
            {"AddParamPlaceholderValue", "Value"},
            {"AddParamPlaceholderDescription", "Description"},
            {"AddParamTitle", "Add Parameter"},
            {"SaveSuccess", "Properties saved successfully."},
            {"SaveThemeError", "Failed to save theme settings: "},
            {"SaveLanguageError", "Failed to save language settings: "},
            {"CopySuccess", "Copied!"},
            {"ToggleThemeTitle", "Toggle Theme"},
            {"ToggleLanguageTitle", "Change Language"},
            {"CopyButtonTitle", "Copy Parameter Name"},
            {"AddButtonTitle", "Add Parameter"},
            {"SaveButtonTitle", "Save"}
        }
        translations.Add("ru", ru)
        translations.Add("en", en)
    End Sub

    Private Function Translate(key As String) As String
        Dim lang As String = If(currentLanguage = "en", "en", "ru")
        If translations.ContainsKey(lang) AndAlso translations(lang).ContainsKey(key) Then
            Return translations(lang)(key)
        Else
            Return key
        End If
    End Function

    Private Function ExtractNumber(name As String) As Integer
        Dim match As Match = Regex.Match(name, "\d+")
        If match.Success Then
            Return Integer.Parse(match.Value)
        Else
            Return 0
        End If
    End Function

    Public Sub AddParameter()
        Dim docHtml As HtmlDocument = webBrowser.Document
        Dim paramName As String = docHtml.GetElementById("paramName").GetAttribute("value").Trim()
        Dim paramFormula As String = docHtml.GetElementById("paramFormula").GetAttribute("value").Trim()
        Dim paramDescription As String = docHtml.GetElementById("paramDescription").GetAttribute("value").Trim()

        Dim paramExists As Boolean = False
        Try
            Dim existingParam = allParams.Item(paramName)
            paramExists = True
        Catch ex As Exception
            paramExists = False
        End Try

        If paramExists Then
            MessageBox.Show(Translate("Error") & ": " & Translate("ParameterName") & " '" & paramName & "' " & If(currentLanguage = "en", "already exists.", "уже существует."), Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return
        End If

        Try
            Dim newParam As UserParameter = allParams.UserParameters.AddByExpression(paramName, paramFormula, UnitsTypeEnum.kDefaultDisplayLengthUnits)
            newParam.Comment = paramDescription
            Clipboard.SetText(paramName)
            UpdateParameterList()
        Catch ex As Exception
            MessageBox.Show(Translate("Error") & ": " & Translate("AddParameter") & " - " & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Public Sub UpdateParameterList()
        allParams = doc.ComponentDefinition.Parameters
        webBrowser.DocumentText = GenerateHtml()
        webBrowser.ObjectForScripting = Me
    End Sub

    Public Sub ToggleTheme()
        isDarkTheme = Not isDarkTheme
        UpdateParameterList()
        SaveThemeSetting()
    End Sub

    Public Sub ToggleLanguage()
        currentLanguage = If(currentLanguage = "en", "ru", "en")
        UpdateParameterList()
        SaveLanguageSetting()
    End Sub

Private Sub SaveThemeSetting()
        Try
            settings("Theme") = If(isDarkTheme, "Dark", "Light")
            SaveSettingsToFile()
        Catch ex As Exception
            MessageBox.Show(Translate("SaveThemeError") & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ' Обновленный метод сохранения настроек языка
    Private Sub SaveLanguageSetting()
        Try
            settings("Language") = currentLanguage
            SaveSettingsToFile()
        Catch ex As Exception
            MessageBox.Show(Translate("SaveLanguageError") & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ' Обновленный метод сохранения положения окна
    Public Sub SaveWindowPosition(sender As Object, e As FormClosingEventArgs)
        Try
            settings("WindowLeft") = resultForm.Left.ToString()
            settings("WindowTop") = resultForm.Top.ToString()
            settings("WindowWidth") = resultForm.Width.ToString()
            settings("WindowHeight") = resultForm.Height.ToString()
            SaveSettingsToFile()
        Catch ex As Exception
            MessageBox.Show("Не удалось сохранить положение окна: " & ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ' Метод для сохранения всех настроек в файл
    Private Sub SaveSettingsToFile()
        Try
            Dim settingsDir As String = System.IO.Path.GetDirectoryName(settingsFilePath)
            If Not System.IO.Directory.Exists(settingsDir) Then
                System.IO.Directory.CreateDirectory(settingsDir)
            End If

            Dim lines As New List(Of String)()
            For Each kvp As KeyValuePair(Of String, String) In settings
                lines.Add(kvp.Key & "=" & kvp.Value)
            Next

            System.IO.File.WriteAllLines(settingsFilePath, lines)
        Catch ex As Exception
            MessageBox.Show("Ошибка при сохранении настроек: " & ex.Message, "Ошибка", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
	
    Public Sub SaveDocumentProperties(partNumber As String, description As String)
        Try
            Dim designTrackingProps As PropertySet = doc.PropertySets.Item("Design Tracking Properties")
            Dim partNumberProp As [Property] = Nothing
            Try
                partNumberProp = designTrackingProps.Item("Part Number")
            Catch ex As Exception
                MessageBox.Show(Translate("Error") & ": 'Part Number' " & If(currentLanguage = "en", "not found.", "не найдено."), Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            End Try

            Dim descriptionProp As [Property] = Nothing
            Try
                descriptionProp = designTrackingProps.Item("Description")
            Catch ex As Exception
                MessageBox.Show(Translate("Error") & ": 'Description' " & If(currentLanguage = "en", "not found.", "не найдено."), Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            End Try

            If String.IsNullOrWhiteSpace(partNumber) Then
                partNumberProp.Value = ""
            Else
                partNumberProp.Value = partNumber
            End If

            If String.IsNullOrWhiteSpace(description) Then
                descriptionProp.Value = ""
            Else
                descriptionProp.Value = description
            End If

            doc.Save()
            UpdateParameterList()
            MessageBox.Show(Translate("SaveSuccess"), If(currentLanguage = "en", "Success", "Успех"), MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(Translate("Error") & ": " & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Public Sub UpdateParameter(paramName As String, newValue As String)
        Try
            Dim param As Parameter = allParams.Item(paramName)
            If TypeOf param Is UserParameter Then
                Dim userParam As UserParameter = CType(param, UserParameter)
                userParam.Expression = newValue
            ElseIf TypeOf param Is ModelParameter Then
                Dim modelParam As ModelParameter = CType(param, ModelParameter)
                modelParam.Expression = newValue
            End If
            doc.Save()
            UpdateParameterList()
        Catch ex As Exception
            MessageBox.Show(Translate("Error") & ": " & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Public Sub UpdateParameterName(oldName As String, newName As String)
        Try
            Try
                Dim existingParam = allParams.Item(newName)
                MessageBox.Show(Translate("Error") & ": " & Translate("ParameterName") & " '" & newName & "' " & If(currentLanguage = "en", "already exists.", "уже существует."), Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return
            Catch ex As Exception
            End Try

            Dim param As Parameter = allParams.Item(oldName)
            param.Name = newName
            doc.Save()
            UpdateParameterList()
        Catch ex As Exception
            MessageBox.Show(Translate("Error") & ": " & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    Public Function GenerateHtml() As String
        Dim partNumber As String = ""
        Dim description As String = ""

        Try
            Dim designTrackingProps As PropertySet = doc.PropertySets.Item("Design Tracking Properties")
            Dim partNumberProp As [Property] = designTrackingProps.Item("Part Number")
            Dim descriptionProp As [Property] = designTrackingProps.Item("Description")
            partNumber = partNumberProp.Value.ToString()
            description = descriptionProp.Value.ToString()
        Catch ex As Exception
            partNumber = ""
            description = ""
        End Try

        Dim partNumberEncoded As String = WebUtility.HtmlEncode(partNumber)
        Dim descriptionEncoded As String = WebUtility.HtmlEncode(description)

        Dim standardParams As New List(Of Parameter)()
        Dim userParams As New List(Of Parameter)()

        For Each param As Parameter In allParams.UserParameters
            userParams.Add(param)
        Next

        Dim defaultParamPattern As New Regex("^d\d+$", RegexOptions.IgnoreCase)

        For Each param As ModelParameter In allParams.ModelParameters
            If Not defaultParamPattern.IsMatch(param.Name) Then
                standardParams.Add(param)
            End If
        Next

        ' Сортировка параметров
        standardParams = SortParameters(standardParams)
        userParams = SortParameters(userParams)

        Dim htmlOutput As New System.Text.StringBuilder()
        htmlOutput.AppendLine("<!DOCTYPE html>")
        htmlOutput.AppendLine("<html>")
        htmlOutput.AppendLine("<head>")
        htmlOutput.AppendLine("<meta http-equiv='X-UA-Compatible' content='IE=11' />")
        htmlOutput.AppendLine("<meta charset='UTF-8'>")
        htmlOutput.AppendLine("<script>")
        ' JavaScript функции
        htmlOutput.AppendLine("var currentSortColumn = '" & currentSortColumn & "';")
        htmlOutput.AppendLine("var sortAscending = " & If(sortAscending, "true", "false") & ";")
        htmlOutput.AppendLine("function copyToClipboard(text, btn) {")
        htmlOutput.AppendLine("    var tempInput = document.createElement('input');")
        htmlOutput.AppendLine("    tempInput.style.position = 'absolute';")
        htmlOutput.AppendLine("    tempInput.style.left = '-1000px';")
        htmlOutput.AppendLine("    tempInput.value = text;")
        htmlOutput.AppendLine("    document.body.appendChild(tempInput);")
        htmlOutput.AppendLine("    tempInput.select();")
        htmlOutput.AppendLine("    document.execCommand('copy');")
        htmlOutput.AppendLine("    document.body.removeChild(tempInput);")
        htmlOutput.AppendLine("    btn.style.color = '#45a049';")
        htmlOutput.AppendLine("    setTimeout(function() { btn.style.color = ''; }, 1500);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("function toggleTheme() {")
        htmlOutput.AppendLine("    window.external.ToggleTheme();")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("function toggleLanguage() {")
        htmlOutput.AppendLine("    window.external.ToggleLanguage();")
        htmlOutput.AppendLine("    var langButton = document.querySelector('.language-toggle-button');")
        htmlOutput.AppendLine("    if (langButton.innerText === 'EN') {")
        htmlOutput.AppendLine("        langButton.innerText = 'RU';")
        htmlOutput.AppendLine("    } else {")
        htmlOutput.AppendLine("        langButton.innerText = 'EN';")
        htmlOutput.AppendLine("    }")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("function saveProperties() {")
        htmlOutput.AppendLine("    var partNumber = document.getElementById('partNumber').value;")
        htmlOutput.AppendLine("    var description = document.getElementById('description').value;")
        htmlOutput.AppendLine("    window.external.SaveDocumentProperties(partNumber, description);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("function makeEditable(cell, paramName, field) {")
        htmlOutput.AppendLine("    if (cell.querySelector('input')) return;")
        htmlOutput.AppendLine("    var currentValue = cell.innerText.trim();")
        htmlOutput.AppendLine("    if(field === 'value') {")
        htmlOutput.AppendLine("        currentValue = currentValue.replace(' mm', '');")
        htmlOutput.AppendLine("    }")
        htmlOutput.AppendLine("    var input = document.createElement('input');")
        htmlOutput.AppendLine("    input.type = 'text';")
        htmlOutput.AppendLine("    input.value = currentValue;")
        htmlOutput.AppendLine("    input.style.width = '100%';")
        htmlOutput.AppendLine("    input.style.boxSizing = 'border-box';")
        htmlOutput.AppendLine("    cell.innerHTML = '';")
        htmlOutput.AppendLine("    cell.appendChild(input);")
        htmlOutput.AppendLine("    input.focus();")
        htmlOutput.AppendLine("    input.onblur = function() {")
        htmlOutput.AppendLine("        var newValue = this.value.trim();")
        htmlOutput.AppendLine("        if (newValue !== currentValue) {")
        htmlOutput.AppendLine("            if (field === 'value') {")
        htmlOutput.AppendLine("                window.external.UpdateParameter(paramName, newValue);")
        htmlOutput.AppendLine("            } else if (field === 'description') {")
        htmlOutput.AppendLine("                window.external.UpdateParameterDescription(paramName, newValue);")
        htmlOutput.AppendLine("            } else if (field === 'name') {")
        htmlOutput.AppendLine("                window.external.UpdateParameterName(paramName, newValue);")
        htmlOutput.AppendLine("            }")
        htmlOutput.AppendLine("        } else {")
        htmlOutput.AppendLine("            if (field === 'value') {")
        htmlOutput.AppendLine("                cell.innerText = newValue + ' mm';")
        htmlOutput.AppendLine("            } else {")
        htmlOutput.AppendLine("                cell.innerText = newValue || '-';")
        htmlOutput.AppendLine("            }")
        htmlOutput.AppendLine("        }")
        htmlOutput.AppendLine("    };")
        htmlOutput.AppendLine("    input.onkeypress = function(e) {")
        htmlOutput.AppendLine("        if (e.key === 'Enter') {")
        htmlOutput.AppendLine("            this.blur();")
        htmlOutput.AppendLine("        }")
        htmlOutput.AppendLine("    };")
        htmlOutput.AppendLine("}")
        ' Функции сортировки
        htmlOutput.AppendLine("function sortTable(column) {")
        htmlOutput.AppendLine("    if (currentSortColumn === column) {")
        htmlOutput.AppendLine("        sortAscending = !sortAscending;")
        htmlOutput.AppendLine("    } else {")
        htmlOutput.AppendLine("        currentSortColumn = column;")
        htmlOutput.AppendLine("        sortAscending = true;")
        htmlOutput.AppendLine("    }")
        htmlOutput.AppendLine("    window.external.SortParameters(currentSortColumn, sortAscending);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("</script>")
        htmlOutput.AppendLine("<style>")
        Dim backgroundColor As String = If(isDarkTheme, "#3b4453", "#ffffff")
        Dim textColor As String = If(isDarkTheme, "#d0d0d0", "#000000")
        Dim headerColor As String = If(isDarkTheme, "#222933", "#f0f0f0")
        Dim borderColor As String = If(isDarkTheme, "#3e3e40", "#dddddd")
        Dim highlightColor As String = If(isDarkTheme, "#444", "#f9f9f9")
        Dim buttonBackgroundColor As String = If(isDarkTheme, "#007acc", "#4CAF50")
        Dim buttonHoverColor As String = If(isDarkTheme, "#005f9e", "#45a049")
        Dim inputBackgroundColor As String = If(isDarkTheme, "#222933", "#ffffff")
        Dim inputTextColor As String = If(isDarkTheme, "#d0d0d0", "#000000")
        Dim inputBorderColor As String = If(isDarkTheme, "#555", "#cccccc")
        Dim linkColor As String = If(isDarkTheme, "#569cd6", "#2d2d30")
        Dim labelColor As String = If(isDarkTheme, "#a0a0a0", "#666666")
        Dim semiTransparentBorderColor As String = If(isDarkTheme, "rgba(34, 41, 51, 0.5)", "rgba(221,221,221,0.5)")

        ' Общие стили
        htmlOutput.AppendLine("html, body {")
        htmlOutput.AppendLine("    height: 100%;")
        htmlOutput.AppendLine("    margin: 0;")
        htmlOutput.AppendLine("    padding: 0;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("body {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    flex-direction: column;")
        htmlOutput.AppendLine("    font-family: 'Segoe UI', Tahoma, Geneva, Verdana, sans-serif;")
        htmlOutput.AppendLine("    font-size: 12px;")
        htmlOutput.AppendLine("    background-color: " & backgroundColor & ";")
        htmlOutput.AppendLine("    color: " & textColor & ";")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".content {")
        htmlOutput.AppendLine("    flex: 1 1 auto;")
        htmlOutput.AppendLine("    overflow-y: auto;")
        htmlOutput.AppendLine("    padding: 10px;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".footer, .header {")
        htmlOutput.AppendLine("    flex-shrink: 0;")
        htmlOutput.AppendLine("    padding: 8px 10px;")
        htmlOutput.AppendLine("    background-color: " & backgroundColor & ";")
        htmlOutput.AppendLine("    box-shadow: 0 1px 3px rgba(0,0,0,0.1);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".header {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    justify-content: space-between;")
        htmlOutput.AppendLine("    align-items: flex-end;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".theme-toggle-button, .language-toggle-button, .doc-properties .save-button, form.add-param button {")
        htmlOutput.AppendLine("    padding: 4px 8px;")
        htmlOutput.AppendLine("    font-size: 12px;")
        htmlOutput.AppendLine("    background-color: " & buttonBackgroundColor & ";")
        htmlOutput.AppendLine("    color: white;")
        htmlOutput.AppendLine("    border: none;")
        htmlOutput.AppendLine("    cursor: pointer;")
        htmlOutput.AppendLine("    border-radius: 3px;")
        htmlOutput.AppendLine("    transition: background-color 0.3s ease;")
        htmlOutput.AppendLine("    height: 24px;")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: center;")
        htmlOutput.AppendLine("    justify-content: center;")
        htmlOutput.AppendLine("    margin-left: 5px;") ' Добавлено расстояние между кнопками
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".theme-toggle-button:hover, .language-toggle-button:hover, .doc-properties .save-button:hover, form.add-param button:hover {")
        htmlOutput.AppendLine("    background-color: " & buttonHoverColor & ";")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".doc-properties {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: flex-end;")
        htmlOutput.AppendLine("    flex-grow: 1;")
        htmlOutput.AppendLine("    gap: 10px;") ' Увеличенный отступ между элементами
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".doc-properties div {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    flex-direction: column;")
        htmlOutput.AppendLine("    margin-right: 10px;") ' Добавлен отступ справа для каждого блока
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".doc-properties label {")
        htmlOutput.AppendLine("    margin-bottom: 2px;")
        htmlOutput.AppendLine("    font-size: 10px;")
        htmlOutput.AppendLine("    color: " & labelColor & ";")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".doc-properties input, form.add-param input {")
        htmlOutput.AppendLine("    padding: 4px 6px;")
        htmlOutput.AppendLine("    font-size: 12px;")
        htmlOutput.AppendLine("    height: 24px;")
        htmlOutput.AppendLine("    width: 150px;")
        htmlOutput.AppendLine("    box-sizing: border-box;")
        htmlOutput.AppendLine("    background-color: " & inputBackgroundColor & ";")
        htmlOutput.AppendLine("    color: " & inputTextColor & ";")
        htmlOutput.AppendLine("    border: 1px solid " & inputBorderColor & ";")
        htmlOutput.AppendLine("    border-radius: 3px;")
        htmlOutput.AppendLine("    transition: border-color 0.3s ease, box-shadow 0.3s ease;")
        htmlOutput.AppendLine("    margin-top: 2px;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".doc-properties input:focus, form.add-param input:focus {")
        htmlOutput.AppendLine("    outline: none;")
        htmlOutput.AppendLine("    border-color: " & buttonBackgroundColor & ";")
        htmlOutput.AppendLine("    box-shadow: 0 0 0 2px rgba(76, 175, 80, 0.2);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".header-buttons {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: flex-end;")
        htmlOutput.AppendLine("    gap: 5px;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("table {")
        htmlOutput.AppendLine("    width: 100%;")
        htmlOutput.AppendLine("    border-collapse: separate;")
        htmlOutput.AppendLine("    border-spacing: 0;")
        htmlOutput.AppendLine("    margin-bottom: 10px;")
        htmlOutput.AppendLine("    background-color: " & backgroundColor & ";")
        htmlOutput.AppendLine("    border-radius: 4px;")
        htmlOutput.AppendLine("    overflow: hidden;")
        htmlOutput.AppendLine("    box-shadow: 0 1px 3px rgba(0,0,0,0.1);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("th, td {")
        htmlOutput.AppendLine("    padding: 4px 8px;")
        htmlOutput.AppendLine("    font-size: 12px;")
        htmlOutput.AppendLine("    border-bottom: 1px solid " & borderColor & ";")
        htmlOutput.AppendLine("    line-height: 1.2;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("th {")
        htmlOutput.AppendLine("    background-color: " & headerColor & ";")
        htmlOutput.AppendLine("    color: " & textColor & ";")
        htmlOutput.AppendLine("    font-weight: 600;")
        htmlOutput.AppendLine("    text-transform: uppercase;")
        htmlOutput.AppendLine("    letter-spacing: 0.5px;")
        htmlOutput.AppendLine("    cursor: pointer;")
        htmlOutput.AppendLine("    position: relative;")
        htmlOutput.AppendLine("}")
        ' Стиль для стрелок сортировки
        htmlOutput.AppendLine(".sort-arrow {")
        htmlOutput.AppendLine("    width: 0;")
        htmlOutput.AppendLine("    height: 0;")
        htmlOutput.AppendLine("    border-left: 4px solid transparent;")
        htmlOutput.AppendLine("    border-right: 4px solid transparent;")
        htmlOutput.AppendLine("    position: absolute;")
        htmlOutput.AppendLine("    right: 8px;")
        htmlOutput.AppendLine("    top: 50%;")
        htmlOutput.AppendLine("    transform: translateY(-50%);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".asc::after {")
        htmlOutput.AppendLine("    content: '';")
        htmlOutput.AppendLine("    border-bottom: 6px solid " & textColor & ";")
        htmlOutput.AppendLine("    border-left: 4px solid transparent;")
        htmlOutput.AppendLine("    border-right: 4px solid transparent;")
        htmlOutput.AppendLine("    position: absolute;")
        htmlOutput.AppendLine("    right: 8px;")
        htmlOutput.AppendLine("    top: 50%;")
        htmlOutput.AppendLine("    transform: translateY(-50%);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine(".desc::after {")
        htmlOutput.AppendLine("    content: '';")
        htmlOutput.AppendLine("    border-top: 6px solid " & textColor & ";")
        htmlOutput.AppendLine("    border-left: 4px solid transparent;")
        htmlOutput.AppendLine("    border-right: 4px solid transparent;")
        htmlOutput.AppendLine("    position: absolute;")
        htmlOutput.AppendLine("    right: 8px;")
        htmlOutput.AppendLine("    top: 50%;")
        htmlOutput.AppendLine("    transform: translateY(-50%);")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("td.name {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: center;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("td.name button.copy-button, button.copy-button {")
        htmlOutput.AppendLine("    background: none;")
        htmlOutput.AppendLine("    border: none;")
        htmlOutput.AppendLine("    cursor: pointer;")
        htmlOutput.AppendLine("    font-size: 14px;")
        htmlOutput.AppendLine("    color: " & linkColor & ";")
        htmlOutput.AppendLine("    width: 20px;")
        htmlOutput.AppendLine("    height: 20px;")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: center;")
        htmlOutput.AppendLine("    justify-content: center;")
        htmlOutput.AppendLine("    margin-right: 5px;")
        htmlOutput.AppendLine("    transition: color 0.3s ease;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("td.name button.copy-button:hover, button.copy-button:hover {")
        htmlOutput.AppendLine("    color: " & buttonBackgroundColor & ";")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("tr:hover {")
        htmlOutput.AppendLine("    background-color: " & highlightColor & ";")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("form.add-param {")
        htmlOutput.AppendLine("    display: flex;")
        htmlOutput.AppendLine("    align-items: center;")
        htmlOutput.AppendLine("    flex-wrap: wrap;")
        htmlOutput.AppendLine("    gap: 10px;") ' Увеличенный отступ между элементами формы
        htmlOutput.AppendLine("}")

        htmlOutput.AppendLine("form.add-param input {")
        htmlOutput.AppendLine("    flex: 1;")
        htmlOutput.AppendLine("    margin-right: 5px;")
        htmlOutput.AppendLine("    min-width: 120px;") ' Минимальная ширина для каждого поля
        htmlOutput.AppendLine("    max-width: 200px;") ' Максимальная ширина для каждого поля
        htmlOutput.AppendLine("}")

        htmlOutput.AppendLine("form.add-param button {")
        htmlOutput.AppendLine("    flex: 0 0 auto;") ' Кнопка не растягивается
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("h2 {")
        htmlOutput.AppendLine("    font-size: 13px;")
        htmlOutput.AppendLine("    margin: 6px 0;")
        htmlOutput.AppendLine("    color: " & buttonBackgroundColor & ";")
        htmlOutput.AppendLine("    line-height: 1;")
        htmlOutput.AppendLine("}")
        htmlOutput.AppendLine("</style>")
        htmlOutput.AppendLine("</head>")
        htmlOutput.AppendLine("<body>")

        ' Шапка формы
        htmlOutput.AppendLine("<div class='header'>")
        htmlOutput.AppendLine("    <div class='doc-properties'>")
        htmlOutput.AppendLine("        <div>")
        htmlOutput.AppendLine("            <label for='partNumber'>" & Translate("ParameterName") & ":</label>")
        htmlOutput.AppendLine("            <input type='text' id='partNumber' value='" & partNumberEncoded & "'>")
        htmlOutput.AppendLine("        </div>")
        htmlOutput.AppendLine("        <div>")
        htmlOutput.AppendLine("            <label for='description'>" & Translate("Description") & ":</label>")
        htmlOutput.AppendLine("            <input type='text' id='description' value='" & descriptionEncoded & "'>")
        htmlOutput.AppendLine("        </div>")
        htmlOutput.AppendLine("        <button class='save-button' onclick='saveProperties()' title='" & Translate("SaveButtonTitle") & "'>&#128190;</button>")
        htmlOutput.AppendLine("    </div>")
        htmlOutput.AppendLine("    <div class='header-buttons'>")
        htmlOutput.AppendLine("        <button class='theme-toggle-button' onclick='toggleTheme()' title='" & Translate("ToggleThemeTitle") & "'>&#127763;</button>")
        htmlOutput.AppendLine("        <button class='language-toggle-button' onclick='toggleLanguage()' title='" & Translate("ToggleLanguageTitle") & "'>" & If(currentLanguage = "en", "EN", "RU") & "</button>")
        htmlOutput.AppendLine("    </div>")
        htmlOutput.AppendLine("</div>")

        ' Основное содержимое таблицы
        htmlOutput.AppendLine("<div class='content'>")
        htmlOutput.AppendLine("<table id='paramTable'>")
        htmlOutput.AppendLine("<tr>")
        htmlOutput.AppendLine("    <th onclick='sortTable(""name"")'>" & Translate("ParameterName") & " <span class='sort-arrow " & GetSortArrowClass("name") & "'></span></th>")
        htmlOutput.AppendLine("    <th onclick='sortTable(""value"")'>" & Translate("Value") & " (mm) <span class='sort-arrow " & GetSortArrowClass("value") & "'></span></th>")
        htmlOutput.AppendLine("    <th onclick='sortTable(""description"")'>" & Translate("Description") & " <span class='sort-arrow " & GetSortArrowClass("description") & "'></span></th>")
        htmlOutput.AppendLine("</tr>")
        htmlOutput.AppendLine("<tr><td colspan='3'><h2>" & Translate("StandardParameters") & "</h2></td></tr>")

        If standardParams.Count > 0 Then
            For Each param As Parameter In standardParams
                Try
                    Dim numericValue As Double = param.Value
                    Dim valueInMM As String = (numericValue * 10).ToString("F2", System.Globalization.CultureInfo.InvariantCulture)
                    Dim paramNameEncoded As String = WebUtility.HtmlEncode(param.Name)
                    Dim descriptionParam As String = If(String.IsNullOrEmpty(param.Comment), "-", WebUtility.HtmlEncode(param.Comment))

                    htmlOutput.AppendLine("<tr>")
                    ' Вставка кнопки копирования внутри ячейки имени параметра
                    htmlOutput.AppendLine("    <td class='name'><button class='copy-button' onclick='copyToClipboard(""" & paramNameEncoded & """, this)' title='" & Translate("CopyButtonTitle") & "'>&#x1F4CB;</button><span ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""name"")'>" & paramNameEncoded & "</span></td>")
                    htmlOutput.AppendLine("    <td class='value' ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""value"")'>" & valueInMM & " mm</td>")
                    htmlOutput.AppendLine("    <td class='description' ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""description"")'>" & descriptionParam & "</td>")
                    htmlOutput.AppendLine("</tr>")
                Catch ex As Exception
                    htmlOutput.AppendLine("<tr>")
                    htmlOutput.AppendLine("    <td class='name'>" & param.Name & "</td>")
                    htmlOutput.AppendLine("    <td class='value'>" & Translate("Error") & ": " & ex.Message & "</td>")
                    htmlOutput.AppendLine("    <td class='description'>-</td>")
                    htmlOutput.AppendLine("</tr>")
                End Try
            Next
        Else
            htmlOutput.AppendLine("<tr><td colspan='3' style='text-align:center;'>" & Translate("NoStandardParams") & "</td></tr>")
        End If

        htmlOutput.AppendLine("<tr><td colspan='3'>&nbsp;</td></tr>")
        htmlOutput.AppendLine("<tr><td colspan='3'><h2>" & Translate("UserParameters") & "</h2></td></tr>")

        If userParams.Count > 0 Then
            For Each param As Parameter In userParams
                Try
                    Dim numericValue As Double = param.Value
                    Dim valueInMM As String = (numericValue * 10).ToString("F2", System.Globalization.CultureInfo.InvariantCulture)
                    Dim paramNameEncoded As String = WebUtility.HtmlEncode(param.Name)
                    Dim descriptionParam As String = If(String.IsNullOrEmpty(param.Comment), "-", WebUtility.HtmlEncode(param.Comment))

                    htmlOutput.AppendLine("<tr>")
                    ' Вставка кнопки копирования внутри ячейки имени параметра
                    htmlOutput.AppendLine("    <td class='name'><button class='copy-button' onclick='copyToClipboard(""" & paramNameEncoded & """, this)' title='" & Translate("CopyButtonTitle") & "'>&#x1F4CB;</button><span ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""name"")'>" & paramNameEncoded & "</span></td>")
                    htmlOutput.AppendLine("    <td class='value' ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""value"")'>" & valueInMM & " mm</td>")
                    htmlOutput.AppendLine("    <td class='description' ondblclick='makeEditable(this, """ & paramNameEncoded & """, ""description"")'>" & descriptionParam & "</td>")
                    htmlOutput.AppendLine("</tr>")
                Catch ex As Exception
                    htmlOutput.AppendLine("<tr>")
                    htmlOutput.AppendLine("    <td class='name'>" & param.Name & "</td>")
                    htmlOutput.AppendLine("    <td class='value'>" & Translate("Error") & ": " & ex.Message & "</td>")
                    htmlOutput.AppendLine("    <td class='description'>-</td>")
                    htmlOutput.AppendLine("</tr>")
                End Try
            Next
        Else
            htmlOutput.AppendLine("<tr><td colspan='3' style='text-align:center;'>" & Translate("NoUserParams") & "</td></tr>")
        End If

        htmlOutput.AppendLine("</table>")
        htmlOutput.AppendLine("</div>")

        ' Футер формы с добавлением параметра
        htmlOutput.AppendLine("<div class='footer'>")
        htmlOutput.AppendLine("    <h2>" & Translate("AddParamTitle") & "</h2>")
        htmlOutput.AppendLine("    <form class='add-param'>")
        htmlOutput.AppendLine("        <input type='text' id='paramName' placeholder='" & Translate("AddParamPlaceholderName") & "' required>")
        htmlOutput.AppendLine("        <input type='text' id='paramFormula' placeholder='" & Translate("AddParamPlaceholderValue") & "' required>")
        htmlOutput.AppendLine("        <input type='text' id='paramDescription' placeholder='" & Translate("AddParamPlaceholderDescription") & "'>")
        htmlOutput.AppendLine("        <button type='button' onclick='window.external.AddParameter()' title='" & Translate("AddButtonTitle") & "'>&#10133;</button>")
        htmlOutput.AppendLine("    </form>")
        htmlOutput.AppendLine("</div>")

        htmlOutput.AppendLine("</body></html>")
        Return htmlOutput.ToString()
    End Function

    ' Метод для получения класса стрелки сортировки
    Private Function GetSortArrowClass(column As String) As String
        If column = currentSortColumn Then
            Return If(sortAscending, "asc", "desc")
        Else
            Return ""
        End If
    End Function

' Метод для сортировки параметров с учетом числовых частей в имени
Private Function NaturalSort(x As String, y As String) As Integer
    ' Используем регулярное выражение для разделения строки на части (буквы и цифры)
    Dim regex As New Regex("(\d+|\D+)")
    
    ' Разделяем обе строки на части
    Dim xParts As MatchCollection = regex.Matches(x)
    Dim yParts As MatchCollection = regex.Matches(y)
    
    ' Определяем минимальное количество частей для сравнения
    Dim minParts As Integer = Math.Min(xParts.Count, yParts.Count)

    ' Сравниваем части строк поочередно
    For i As Integer = 0 To minParts - 1
        Dim xPart As String = xParts(i).Value
        Dim yPart As String = yParts(i).Value

        ' Попробуем сначала сравнить числовые части, если они присутствуют
        Dim xNum, yNum As Integer
        If Integer.TryParse(xPart, xNum) AndAlso Integer.TryParse(yPart, yNum) Then
            ' Если обе части числовые, сравниваем их как числа
            Dim comparison As Integer = xNum.CompareTo(yNum)
            If comparison <> 0 Then
                Return comparison
            End If
        Else
            ' Если это не числа, сравниваем как строки
            Dim comparison As Integer = String.Compare(xPart, yPart)
            If comparison <> 0 Then
                Return comparison
            End If
        End If
    Next

    ' Если все части совпадают, сравниваем по количеству частей
    Return xParts.Count.CompareTo(yParts.Count)
End Function

' Метод для извлечения числового значения из строки, например "10 mm" -> 10
Private Function ExtractNumericValue(value As String) As Double
    Dim regex As New Regex("(\d+(\.\d+)?)")
    Dim match As Match = regex.Match(value)
    
    ' Если число найдено, возвращаем его, иначе возвращаем 0
    If match.Success Then
        Return Double.Parse(match.Value, System.Globalization.CultureInfo.InvariantCulture)
    Else
        Return 0
    End If
End Function

' Метод для сортировки параметров с учетом числовых частей в имени и значении
Private Function SortParameters(paramsList As List(Of Parameter)) As List(Of Parameter)
    If String.IsNullOrEmpty(currentSortColumn) Then
        Return paramsList
    End If

    Select Case currentSortColumn
        Case "name"
            If sortAscending Then
                paramsList.Sort(Function(x, y) NaturalSort(x.Name, y.Name))
            Else
                paramsList.Sort(Function(x, y) NaturalSort(y.Name, x.Name))
            End If
        Case "value"
            If sortAscending Then
                paramsList.Sort(Function(x, y) x.Value.CompareTo(y.Value))
            Else
                paramsList.Sort(Function(x, y) y.Value.CompareTo(x.Value))
            End If
        Case "description"
            If sortAscending Then
                paramsList.Sort(Function(x, y)
                                    ' Сравниваем описания
                                    Dim comparison As Integer = String.Compare(x.Comment, y.Comment)
                                    ' Если описания одинаковые, сортируем по значению
                                    If comparison = 0 Then
                                        Return x.Value.CompareTo(y.Value)
                                    Else
                                        Return comparison
                                    End If
                                End Function)
            Else
                paramsList.Sort(Function(x, y)
                                    Dim comparison As Integer = String.Compare(y.Comment, x.Comment)
                                    If comparison = 0 Then
                                        Return y.Value.CompareTo(x.Value)
                                    Else
                                        Return comparison
                                    End If
                                End Function)
            End If
    End Select

    Return paramsList
End Function

Public Sub WebBrowser_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
        Try
            webBrowser.ObjectForScripting = Me
        Catch ex As Exception
        End Try
    End Sub

    Public Sub UpdateParameterDescription(paramName As String, newDescription As String)
        Try
            Dim param As Parameter = allParams.Item(paramName)
            param.Comment = newDescription
            doc.Save()
            UpdateParameterList()
        Catch ex As Exception
            MessageBox.Show(Translate("Error") & ": " & ex.Message, Translate("Error"), MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

    ' Метод для сортировки параметров из JavaScript
    Public Sub SortParameters(Column As String, Ascending As Boolean)
    currentSortColumn = Column
    sortAscending = Ascending
    UpdateParameterList()
    ' Сохранение настроек сортировки
    settings("SortColumn") = currentSortColumn
    settings("SortAscending") = sortAscending.ToString()
    SaveSettingsToFile()
	End Sub
End Class