ITerm.CustomHyperlinkStyle

Синтаксис Fore

CustomHyperlinkStyle: Boolean;

Синтаксис Fore.NET

CustomHyperlinkStyle: Boolean;

Описание

Свойство CustomHyperlinkStyle определяет использование пользовательского стиля гиперссылки.

Комментарии

Свойство актуально, если ITerm.IsHyperlink содержит значение True.

Если свойство содержит значение True, к стилю гиперссылки будут применены пользовательские настройки терма, например, цвет.

Если свойство содержит значение False, гиперссылка будет оформлена стандартным образом.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенных на ней двух кнопок с наименованиями «Button1» и «Button2» и компонента TermEdit с наименованием «TermEdit1». Подключите системную сборку Drawing.

    Terms: ITermList;
    Term: ITerm;    

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        color1 : IGxColor;
        color2 : IGxColor;
        color3 : IGxColor;
    Begin
        Terms := TermEdit1.Terms;
        Term := Terms.Item(0);
        Term.Text := "Prognoz";
        // Настраиваем терм в виде гиперссылки
        Term.IsHyperlink := True;
        // Будем использовать пользовательский стиль гиперссылки терма
        Term.CustomHyperlinkStyle := True;
        // Задаем терму подчеркивание
        Term.Underlined := True;
        // Создаем цвета
        color1 := New GxColor.CreateRGB( 170,40,200);
        color2 := New GxColor.CreateRGB( 120,40,200);
        color3 := New GxColor.CreateRGB( 70,40,200);
        // Задаем цвета для двух символов терма, начиная с первого
        Term.SetTextColor(color1,0,2);
        // Задаем цвета для двух символов терма, начиная с третьего
        Term.SetTextColor(color2,2,2);
        // Задаем цвета для двух символов терма, начиная с пятого
        Term.SetTextColor(color3,4,2);
    End Sub Button1OnClick;

    Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Clr : IGxColor;
    Begin
        // Передаем в наименование кнопки цвет первого символа терма
        Clr := Term.GetTextColor(0);
        Button2.text := Clr.R.ToString + ", " + Clr.G.ToString + ", " + Clr.B.ToString;
        // Обнуляем цветовую настройку терма
        Term.ResetTextColor;
        // Убираем подчеркивание
        Term.Underlined := False;
    End Sub Button2OnClick;

После выполнения примера при нажатии на первую кнопку терм будет отображаться как гиперссылка с пользовательским стилем: подчеркнутый с градиентной расцветкой. При нажатии на вторую кнопку текст на кнопке будет изменен на цвет первого символа терма в формате RGB, после чего цвет терма сбросится и будет убрано подчеркивание.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.

Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Forms;

Var
Terms: ITermList;
Term: ITerm;
…
    Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
    Var
        color1 : GxColor;
        color2 : GxColor;
        color3 : GxColor;
    Begin
        Terms := TermEditNet1.Terms;
        Term := Terms.Item[0];
        Term.Text := "Prognoz";
        // Настраиваем терм в виде гиперссылки
        Term.IsHyperlink := True;
        // Будем использовать собственный стиль для терма
        Term.CustomHyperlinkStyle := True;
        // Задаем терму подчеркивание
        Term.Underlined := True;
        // Создаем цвета
        color1 := New GxColorClass_2();
        color2 := New GxColorClass_2();
        color3 := New GxColorClass_2();
        color1.CreateRGB( 170,40,200);
        color2.CreateRGB( 120,40,200);
        color3.CreateRGB( 70,40,200);
        // Задаем цвета для двух символов терма, начиная с первого
        Term.SetTextColor(color1,0,2);
        // Задаем цвета для двух символов терма, начиная с третьего
        Term.SetTextColor(color2,2,2);
        // Задаем цвета для двух символов терма, начиная с пятого
        Term.SetTextColor(color3,4,2);
    End Sub button1_Click;

    Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
    Var
        Clr : IGxColor;
    Begin
        // Передаем в наименование кнопки цвет первого символа терма
        Clr := Term.GetTextColor(3);
        Button2.text := Clr.R.ToString() + ", " + Clr.G.ToString() + ", " + Clr.B.ToString();
        // Обнуляем цветовую настройку терма
        Term.ResetTextColor();
        //Убираем подчеркивание
        Term.Underlined := False;
    End Sub button2_Click;

См. также:

ITerm