CustomHyperlinkStyle: Boolean;
Свойство CustomHyperlinkStyle определяет использование пользовательского стиля гиперссылки.
Свойство актуально, если ITerm.IsHyperlink содержит значение True.
Если свойство содержит значение True, к стилю гиперссылки будут применены пользовательские настройки терма, например, цвет.
Если свойство содержит значение False, гиперссылка будет оформлена стандартным образом.
Для выполнения примера предполагается наличие формы, расположенных на ней двух кнопок с наименованиями «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 := "Text example";
// Настраиваем терм в виде гиперссылки
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, после чего цвет терма сбросится и будет убрано подчеркивание.
См. также: