| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Горизонтальная полоса прокрутки в ListView. [D5, Win2k]

pusrg ©   (2002-09-16 20:30:00) 

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

Каким образом можно убрать в 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;


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

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

---

Ученик   (2002-09-17 15:17:00) [1]

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

---

Song   (2002-09-17 15:06:00) [2]

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

---

REA   (2002-09-17 15:06:00) [3]

Вот может поможет как то:
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.

---

pusrg   (2002-09-17 14:59:00) [4]

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

ShowScrollBar(ListView.Handle, SB_HORZ, false);

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

---

Song   (2002-09-17 14:49:00) [5]

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

---

ych_boriss   (2002-09-17 14:30:00) [6]

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

---

pusrg   (2002-09-17 14:10:00) [7]

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

---

Song   (2002-09-16 22:36:00) [8]

Попробуйте ES_DISABLENOSCROLL

---

Наверх