Przejście kolorów

0

Jak zrobić łagodne przejście kolorów od czerwonego do zielonego w 100 krokach.
Chodzi mi, żeby gauge w miarę zbliżania się do 100 zmieniał kolor z czerwonego na zielony.
Jeśli można to też jak wybrać kolory przejścia.--Delphi 6
Pozdrowienia,
Imperior

0

Jak 2 krotnie klikniesz na color tam wybierz kolor np. zielony :))))))))
I kod koloru bedzie np. #0F47823 i tak chyba dodawaj co jedna liczbe #0F47829 itp. wiec może to ma byc tak

0

Najprościej i najlepiej zrobić coś takiego...

procedure TForm1.Button1Click(Sender: TObject);
var
t : Byte;
begin
for t := 0 to 100 do
begin
Gauge1.ForeColor := RGB(255-2t,0+2t,0);
Gauge1.Progress := t;
Sleep(10);
end;
end;

...chyba o to chodziło :-)--Delphi 6
Pozdrawiam All

0

Dzięki dokładnie o to chodziło.--Delphi 6
Pozdrowienia,
Imperior

0

Moze w celach edukacyjnych wymyslicie jak wbudowac te wlasciwosc tworzac komponent ColorGauge?--Pawel

Delphi6

0

Hej.

MCkawa: A jakbym chciał zrobić przejście od koloru [123,56,200] do koloru [32,123,0] to jak to mam zrobić według twojego algorytmu ?? Tzn wytłumacz ogólną zasade tego algorytmu.--Looknijcie na main Page - głópawa troche ale obleci ;-})

0

te trzy liczby to rgb(red,green,blue)
Włącz sobie Painta i naciśnij dwa razy na jakiś kolor i daj niestandardowy.
Na dole będą pola Czerwony , Zielony i Niebieski. Zależnie jakie liczby tam dasz bedziesz mial rozne kolory.

i teraz takie coś, że im większy progres tym mniej czerwonego a więcej zielonego. W ten sposob będzie przejście z czerw. do ziel. Jak pokombinujesz to dopasujesz do swoich potrzeb.--Delphi 6
Pozdrowienia,
Imperior

0

Piasiu:

Ogólną zasade wytłumaczył ci już Imperior.
A przykład który podałeś jest już trudniejszy
bo wielkości przejść pomiędzy kolorami
nie są podzielnikami ilości pętli
(albo ilość pętli nie jest podzielnikiem
wielkości przejścia) - chyba niepotrzebnie zakręciłem :)
Jutro może pomyśle bo dzisiaj już mi się nie chce.

BTW: Kolory w postaci RGB są wykorzystywane w skórkach do Winampa
do określenia kolorów analizatora widma i znajdują się w pliku
viscolor.txt.--Delphi 6
Pozdrawiam All

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