[Delphi] Jak napisać procedurkę rysującą gradien

0

Jak napisać procedurkę rysującą gradient między dwoma kolorami (Przejście koloru żółtego do fioletu) ?

Próbowałem coś zrobić z przykładem gradientu z faq, ale wychodzi mi tylko między czarnym, a wybranym kolorem.
Czy ktoś potrafi to napisać?

0

function Gradient(a, b: TColor; x: Byte): TColor;
begin
Result := RGB(
(GetRValue(a)x+GetRValue(b)(255-x)) div 255,
(GetGValue(a)x+GetGValue(b)(255-x)) div 255,
(GetBValue(a)x+GetBValue(b)(255-x)) div 255);
end;

--
Jest jeszcze jeden błąd ... :)
--------Oficjalny kanał----------
Service for programmers w IRC:
Kanał: #4programmers
Serwer: warszawa.ircnet.pl
Sieć: POLNet
Port: 6667

0

Bardzo dziękuję!!!

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