ListViewItem Transpatent, как?

[daemon.init]

XE7

У самого ListView есть свойство Transpatent у Item'ов не нашёл.

Думал чз

ListView.Items.Item[0].Objects.TextObject.Opacity

но видно не то что нужно. Это да для текста.

 

Потом открыл FMX.ListView в нём есть процедура

procedure TCustomListView.DrawItemsFill ...

в ней при отрисовке на Canvas заменил цвет FBrush.Color на цвет плюс альфа канал например $30FFFFFF работает или цвет или альфа в чёрный цвет, прозрачности нет.

Если есть у компонента прозрачность, то как у итемов включить?

Изменено 28 июля, 2015 пользователем daemon.init

[krapotkin]

тут от примененного стиля зависит

я наоборот, долго мучился, чтобы  сделать непрозрачным фон у ListBox

[daemon.init]

тут от примененного стиля зависит

я наоборот, долго мучился, чтобы  сделать непрозрачным фон у ListBox

Transparent компонента есть а у Item'ов нет, если у них только через стили то и для компонента можно бы было там поменять, странно это всё

[xenon54]

У стиля листвью есть объект "itembackground" : TColorObject. Выставляете у него свойство "Color" в нужное вам значение с альфа каналом (как пример $11FF0000) и будет вам счастье. 

Изменено 28 июля, 2015 пользователем xenon54

[haword]

я сделал с помощью хелпера, ну вернее с инета спер и под 10 версию приспособил. 

 

добавляем хелпер

 

  TListViewHelper = class helper for TListViewBase

    procedure SetItemStyleFillAltColour(Colour : TAlphaColor);

    procedure SetBackgroundItemStyleColor(Colour : TAlphaColor);

    procedure SetBackgroundStyleColor(Colour : TAlphaColor);

    procedure SetSelectionStyleColor(Colour : TAlphaColor);

  end;

 

процедуры

 

procedure TListViewHelper.SetBackgroundItemStyleColor(Colour: TAlphaColor);

begin

  TListViewBase(self).FItemStyleFillColor := Colour;

end;

 

procedure TListViewHelper.SetBackgroundStyleColor(Colour: TAlphaColor);

begin

  TListViewBase(self).FBackgroundStyleColor := Colour;

end;

 

procedure TListViewHelper.SetItemStyleFillAltColour(Colour: TAlphaColor);

begin

  TListViewBase(self).FItemStyleFillAltColor := Colour;

end;

 

procedure TListViewHelper.SetSelectionStyleColor(Colour: TAlphaColor);

begin

  TListViewBase(self).FSelectionStyleColor := Colour;

end;

 

вызов

 

если в OnCreate формы

 

    ВашЛистВью.ApplyStyleLookup; // загружаем стиль

    ВашЛистВью.SetBackgroundItemStyleColor($20ffffff); // устанавливаем цвет, первые два байта альфаканал остальные цвет. можно так TAlphaColors.red

 

Изменено 25 сентября, 2015 пользователем haword

[Rusland]

haword, не могли бы вы выложить целиком весь unit?
 
У меня не получается
 

Вроде компилируется, но цвет не меняется

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  LsvAlarms.SetBackgroundItemStyleColor(TAlphaColors.red); 
end;

Оказывается все работает, просто сначала надо заполнить ListView и лишь затем вызывать эту процедуру

Изменено 4 марта, 2016 пользователем Rusland