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ć?
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ć?
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
Bardzo dziękuję!!!