Скачать: CL | DM;

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. Но хотелось бы обойтись малой кровью :) В любом случае спасибо.

---

← →
pasha_golub ©   (2004-04-27 17:21) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.038 c