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

Вниз

Горизонтальная полоса прокрутки в ListView.   Найти похожие ветки 

← →
pusrg   (2002-09-16 20:30) [0]

Добрый день, уважаемые мастера!

Каким образом можно убрать в TListView или его потомке (от TCustomListView) горизонтальную полосу прокрутки для любых значений ViewStyle, в частности когда ViewStyle:=vsSmallIcon;

Пытался переопределить стиль в потомке от TCustomListView,
следующим образом:


procedure TLvNotHS.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style and not WS_HSCROLL;
end;


Но ничего не вышло :(

Заранее спасибо.

---

← →
Song   (2002-09-16 22:36) [1]

Попробуйте ES_DISABLENOSCROLL

---

← →
pusrg   (2002-09-17 14:10) [2]

Попробовал, к сожалению это флаг также не помогает.

---

← →
ych_boriss   (2002-09-17 14:30) [3]

Попробуй так (в D6 и W2K прокатило, правда для TMemo ):
SetScrollRange(Your_Control.Handle, SB_HORZ, 0, 0, True);

---

← →
Song   (2002-09-17 14:49) [4]

Ага, ych_boriss (17.09.02 14:30) на мысль натолкнул. Надо использовать ShowScrollBar()

---

← →
pusrg   (2002-09-17 14:59) [5]

К сожалению не помогает, попробовал также ф-цию

ShowScrollBar(ListView.Handle, SB_HORZ, false);

Также не помогло :(

---

← →
Song   (2002-09-17 15:06) [6]

Посмотрите почему (проверьте код ошибки после выполнения ShowScrollBar)

---

← →
REA   (2002-09-17 15:06) [7]

Вот может поможет как то:
LVS_NOSCROLL
Scrolling is disabled. All items must be within the client area. This style is not compatible with the LVS_LIST or LVS_REPORT styles. See Knowledge Base Article Q137520 for further discussion.

---

← →
Ученик   (2002-09-17 15:17) [8]

А так:
ListView1.IconOptions.Arrangement := iaLeft;
ListView1.IconOptions.Arrangement := iaTop;

---

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

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

Наверх

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