[cotseec]

Всем доброго
Собственно вопрос, как можно самому перерисовать (или переопределить) стандартный вертикальный ScrollBar класса TListBox (который появляется, если количество Item' ов переваливает за число видимых).
поиск привел к FlatSB_XXXX функциям, но Comctl32.dll versions 6.00 and later do not support flat scroll bars.
что можно предложить еще?

[zmicer]

Может быть, проще использовать TListView? Там вроде бы есть опция FlatScrollBars. Или нужно полностью перерисовывать?

[cotseec]

нужно именно перерисовать, т.е. изменить ширину, форму, цвет и проч.

[zmicer]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
with ListBox1 do
  begin
    InitializeFlatSB(Handle);
    FlatSB_EnableScrollBar(Handle,SB_VERT,ESB_ENABLE_BOTH);
    FlatSB_SetScrollRange(Handle,SB_VERT,0,100,False);
    // меняем параметры
    FlatSB_SetScrollProp(Handle,WSB_PROP_VSTYLE,FSB_REGULAR_MODE,False); // плоский
    FlatSB_SetScrollProp(Handle,WSB_PROP_VBKGCOLOR,clGreen,False); // цвет фона
    FlatSB_SetScrollProp(Handle,WSB_PROP_CXVSCROLL,100,False); // ширина
    FlatSB_ShowScrollBar(Handle,SB_VERT,True);
  end;
end;

[cotseec]

спасибо, но

поиск привел к FlatSB_XXXX функциям, но Comctl32.dll versions 6.00 and later do not support flat scroll bars.
что можно предложить еще?

[angvelem]

Только запрет скрол-бара и собственная отрисовка или поиск компонента где это уже сделали.

[cotseec]

это самое кардинальное решение, думал может будет еще что-то буду рисовать

[angvelem]

Посмотри это.