[NaumOff]

Баг остается при вызове CollapseAll. AC10.24-10.25, D7.

Прикладываю демку.

[NaumOff]

Мой костыль для удаления скроллбара

Code:

private
FListViewWndProc: TWndMethod;
procedure ListViewWndProc(var Msg: TMessage);

procedure TForm1.ListViewWndProc(var Msg: TMessage);
begin
ShowScrollBar(sListView2.Handle, SB_HORZ, False);
FListViewWndProc(Msg);
end;

[NaumOff]

Проблема с рисованием как то само собой прошла, когда цвет-константу заменил числовым значением. В тестовом проекте так и не смог добиться эффекта, что на скрине выше. Потому сей баг не подтверждаю.

А вот со скроллингом по прежнему непонятно, почему такая реакция на одно и то же событие. Впрочем у стандартного компонента то же поведение, так что это точно не проблема AS.

[NaumOff]

Спасибо, оперативно:).

Первая проблема полностью решена.

По поводу второй. CustomDrawItem теперь работает как надо, но CustomDrawSubItem что-то не то творит.

По поводу скроллбара. Проверил, действительно поведение на стандартном ListView такое же.

Код в любом onShow

Code:

SendMessage(lv1.Handle, WM_VSCROLL, SB_BOTTOM, 0);

прокручивает список ровно на 100 позиций. Если его выполнить в onBtnClick то все нормально.

Не намекнете в чем может быть причина?

[Author]

Posts