ScrollBar

← →
KapitAl (2004-04-27 15:14) [0]

Уважаемые мастера,научите как у ScrollBar"а поменять цвет скажем бегунка и полосы. Насколько я понимаю TScrollBar в Delphi является оболочкой над виндовым скролбаром. Возможно кто-то знает сообщение или функцию WinAPI, чтобы переопределить стандартный цвет? Должно же быть что-то такое, ведь при смене тем windows скролбары изменяют свой цвет в соответствии с темой.
Может у кого есть ссылка на компонент, в котором реализован "цветной" скролбар? Заранее благодарен за любую помощь.

← →
pasha_golub © (2004-04-27 15:20) [1]

WM_NCPAINT

← →
KapitAl (2004-04-27 15:27) [2]

> pasha_golub © (27.04.04 15:20) [1]
> WM_NCPAINT

Допустим я его отловил, тогда я буду знать какую область перерисовать:
WM_NCPAINT
hrgn = (HRGN) wParam; // handle of update region
Но как указать цвет?

← →
pasha_golub © (2004-04-27 15:33) [3]

var Canvas: TCanvas; begin Canvas := TCanvas.Create; try Canvas.Handle := GetWindowDC(Mes.WPARAM) //и поехали finally Canvas.Free; end;

← →
KapitAl (2004-04-27 15:45) [4]

> pasha_golub © (27.04.04 15:33) [3]
>
> var Canvas: TCanvas;
> begin
> Canvas := TCanvas.Create;
> .........
> Canvas.Free;
> end;

Т.е. полностью самому реализовать отрисовку? В таком случае более логично создать полностью свой компонент, унаследовавшись скажем от TGraphicControl. Но хотелось бы обойтись малой кровью :) В любом случае спасибо.

KapitAl (27.04.04 15:45) [4]
Малой кровью не обойтись никак, потому как это неклиентская область окна.

ScrollBar Найти похожие ветки