Котэ Опубликовано 11 января, 2019 Поделиться Опубликовано 11 января, 2019 Добрый день. Подскажите как подкрасить цвет текста в после TTextObjectAppearance. Проблема в том что цвет строки приходит по сети , от приложения под windows через json типом integer. соответственно в винде он как tcolor а на frx формах он talphacolor пытался делать function TfrmM.ColorToAlphaColor(Value: TColor): TAlphaColor; var CRec: TColorRec; ARec: TAlphaColorRec; begin CRec.Color := Value; ARec.A := CRec.A; ARec.B := CRec.B; ARec.G := CRec.G; ARec.R := CRec.R; Result := ARec.Color; end; Но когда запускаю на смартфоне приложение это поле в listview просто не видно. Цитата Ссылка на комментарий
0 Котэ Опубликовано 11 января, 2019 Автор Поделиться Опубликовано 11 января, 2019 Блин пока создам вопрос, найду ответ. Код надо поправить было. function TfrmM.ColorToAlphaColor(Value: TColor): TAlphaColor; var CRec: TColorRec; ARec: TAlphaColorRec; begin CRec.Color := Value; ARec.A := FF; ARec.B := CRec.B; ARec.G := CRec.G; ARec.R := CRec.R; Result := ARec.Color; end; Ingalime 1 Цитата Ссылка на комментарий
Вопрос
Котэ
Добрый день.
Подскажите как подкрасить цвет текста в после TTextObjectAppearance.
Проблема в том что цвет строки приходит по сети , от приложения под windows через json типом integer.
соответственно в винде он как tcolor а на frx формах он talphacolor
пытался делать
Но когда запускаю на смартфоне приложение это поле в listview просто не видно.
Ссылка на комментарий
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.