Форум: "Основная";
Текущий архив: 2017.03.19;
Скачать: [xml.tar.bz2];

Вниз

Как включить scroollbars у TShellTreeView?   Найти похожие ветки 

← →
Дмитрий Белькевич   (2012-09-26 09:09) [0]

Собственно сабж...

---

← →
Дмитрий Белькевич   (2012-09-26 09:18) [1]

Уточняю, что получается.
Мне нужен TShellTreeView с чекбоксами и со скроллбарами (или хотя бы со скроллингом вверх-вниз).

Скролл работает нормально, когда отключены чекбоксы. Включаю чекбоксы - отключается скролл. Скроллбаров, при этом, вообще никогда нет.

Скролл включаю так:


var
dwStyle: DWord;
begin
dwStyle := GetWindowLong(ShellTreeView1.Handle, GWL_STYLE);
dwStyle := dwStyle or WS_VSCROLL;
SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle);


Чекбоксы так:


dwStyle := GetWindowLong(ShellTreeView1.Handle, GWL_STYLE);
dwStyle := dwStyle or OBM_CHECKBOXES;
SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle);


---

← →
Дмитрий Белькевич   (2012-09-26 09:19) [2]

Да, Delphi 2010, если имеет значение.

---

← →
QAZ2   (2012-09-26 17:18) [3]

мош луче это делоть в переопределеном Create?

---

← →
Edgar_Wine   (2012-09-27 15:11) [4]

Delphi 7. Скроллбары имеются по умолчанию, после куска кода остаются на месте, но не работают.

Попробуйте так:

const TVS_CHECKBOXES = $0100;
var dwStyle: DWord;
begin
dwStyle:=GetWindowLong(ShellTreeView1.Handle, GWL_STYLE);
dwStyle:=dwStyle Or TVS_CHECKBOXES or WS_VSCROLL;
SetWindowLong(ShellTreeView1.Handle, GWL_STYLE, dwStyle);
end;

---

← →
Дмитрий Белькевич   (2012-09-30 11:13) [5]

БI>
> Попробуйте так:


Спасибо, почти идеально работает. Скроллбаров только не видно. Чекбоксы присутствуют, лист скролится.

---

← →
Edgar_Wine   (2012-10-05 11:14) [6]

хмм.. У меня Win7/D7 - и их видно. Может в 2010 каких-то таких property добавили? А компонентов для "скинизирования" случайно не используется?

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2017.03.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.001 c