Перейти к содержанию
Fire Monkey от А до Я
  • 0

Цвет поля TTextObjectAppearance


Котэ

Вопрос

Добрый день.

Подскажите как подкрасить цвет текста в после 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

Блин пока создам вопрос, найду ответ.

Код надо поправить было.

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;

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

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

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...