Форум: "Основная";
Текущий архив: 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.022 c