Горизонтальная полоса прокрутки в 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);
Также не помогло :(

Посмотрите почему (проверьте код ошибки после выполнения 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.

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

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