[Delphi] Zmiana kolorów ScrollBar'ów

0

Powie mi ktoś, jak mam zmienić kolory ScrollBar'ów. Niektóre komponenty mają te opcję, a drugie nie!! Koniecznie chcę, żeby w moim programie były niebieskie!! Najlepiej proszę o info, jak to zrobić z pomocą kilku linijek dla całego programu na raz :)

0

jesli nie ma mozliwosci zmiany koloru btnface trackbar1 to mozna uzyc cos innego :) np. ustawiasz na forme:
Panel1:
Height=25;
Width=200;
i na ten panel1 wstaw:
Speedbutton1:
Height=25;
Width=25;
na Panelu1 speedbutton1 bedzie miał Left=0 tj. trackbar.pos=0;
teraz wpisz procedure do:

i jeszcze zmienne:
var
pos : boolean;
p : TPoint;

procedure TForm1.SpeedButton1MouseDown;
begin
pos := true;
end;

procedure TForm1.SpeedButton1MouseMove;
begin
GetCursorPos(p);
if pos=true then
begin
Form1.SpeedButton1.Left:=(p.x)-310;
end;
end;

procedure TForm1.SpeedButton1MouseUp;
begin
pos := False;
end;

speedbutton1. bedzie jako suwak w trackbar (czyli panel1)
u mnie wszystko dziła git !!!
jesli masz jeszcze jakies pytania wal smiało e-maila masz na dole i nr GG :) [browar] [browar] [browar]
aha jeszcze trzeba tam dac okreslony punkt suwania tego speedbutton1
pogłów sie troszke nad tym hehe

Pozdrawiam!!!

0

Adasko, jemu chodzilo o SCROLLbar, nie o TRACKbar [niewinnosc]

0

Wejdź na http://www.torry.net i tam poszukaj. Jeżeli chodzi o samego scrollbar'a to jest taki FatScrollBar :-)

1 użytkowników online, w tym zalogowanych: 0, gości: 1