как стилями/в рантайме создать прозрачную кнопу с градиентным текстом... (будет )
пока смог нарисовать градиентный текст на белом фоне стилем - слой градиента (слой белый (черный текст и MaskToAlphaEffect))
дело осталось за малым - белый фон убрать... но добавление прочих эффектов все портит
object TRectangle
StyleName = 'bt0Gradient'
Align = Center
Fill.Color = claNull
object TRectangle
StyleName = 'Gradient'
Align = Contents
Fill.Kind = Gradient
Fill.Gradient.Points = <
item
Color = xFFF60404
Offset = 0.000000000000000000
end
item
Color = xFF1BFE5A
Offset = 0.354037255048751800
end
item
Color = xFFFEF60D
Offset = 0.642857134342193700
end
item
Color = xFF0035FF
Offset = 1.000000000000000000
end>
Fill.Gradient.StartPosition.Y = 0.500000000000000000
Fill.Gradient.StopPosition.X = 1.000000000000000000
Fill.Gradient.StopPosition.Y = 0.500000000000000000
end
object TRectangle
StyleName = 'white'
Align = Contents
Fill.Color = claWhite
object TText
StyleName = 'text'
Align = Contents
Text = 'TextTextText'
TextSettings.Font.Size = 40.000000000000000000
end
object TMaskToAlphaEffect
StyleName = 'MaskToAlphaEffect1Style'
end
end
end
Вопрос
Slym
как стилями/в рантайме создать прозрачную кнопу с градиентным текстом... (будет )
пока смог нарисовать градиентный текст на белом фоне стилем - слой градиента (слой белый (черный текст и MaskToAlphaEffect))
дело осталось за малым - белый фон убрать... но добавление прочих эффектов все портит
object TRectangle StyleName = 'bt0Gradient' Align = Center Fill.Color = claNull object TRectangle StyleName = 'Gradient' Align = Contents Fill.Kind = Gradient Fill.Gradient.Points = < item Color = xFFF60404 Offset = 0.000000000000000000 end item Color = xFF1BFE5A Offset = 0.354037255048751800 end item Color = xFFFEF60D Offset = 0.642857134342193700 end item Color = xFF0035FF Offset = 1.000000000000000000 end> Fill.Gradient.StartPosition.Y = 0.500000000000000000 Fill.Gradient.StopPosition.X = 1.000000000000000000 Fill.Gradient.StopPosition.Y = 0.500000000000000000 end object TRectangle StyleName = 'white' Align = Contents Fill.Color = claWhite object TText StyleName = 'text' Align = Contents Text = 'TextTextText' TextSettings.Font.Size = 40.000000000000000000 end object TMaskToAlphaEffect StyleName = 'MaskToAlphaEffect1Style' end end endили как управлять применением фильтров?
Изменено пользователем Slym2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.