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 :)
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!!!
Adasko, jemu chodzilo o SCROLLbar, nie o TRACKbar [niewinnosc]
Wejdź na http://www.torry.net i tam poszukaj. Jeżeli chodzi o samego scrollbar'a to jest taki FatScrollBar :-)