نیاز به پروسیجر برای Radial Gradient (شیب رنگ شعاعی)

[mbshareat]

سلام و خدا قوت
من برای ترسیم Radial Gradient نیاز به یک پروسیجر ساده و سریع دارم که یه پارامتر از نوع TRect و رنگ مرکز و لبه خارج بهش بدم و برام شیب رنگ شعاعی ترسیم کنه. تو اینترنت هم دنبالش گستم ولی چیز بدرد بخوری پیدا نکردم. یه کامپوننت قشنگ پیدا کردم ولی می خوام تو کامپوننتم از این پروسیجر استفاه کنم و در هر صورت کد Graient خیلی بیشتر به دردم میخوره. کسی چنین کدی سراغ نداره؟
(اینجاست که جای Delphi_Cat و طرفداران بخش گرافیک خالیه!)

[mbshareat]

سلام
من از اینجا (http://www.bvbcode.com/code/bowscrth-1618983) یه یونیت پیدا کردم و کمی دستکاریش کردم که رنگ آمیزی ناحیه بیضی هم داشته باشه. اگه خواستین بردارین:
85402
این هم نحوه استفاده:

Uses
TypInfo;
procedure TForm1.Button1Click(Sender: TObject);
Var
I:Byte;
R:TRect;
begin
R:=Rect(1000,200,200,300);
For I:=0 To 12 do
Begin
RbsGradientFill(Canvas,TGradientFillType(I),clBlue ,clRed,Rect(100,200,200,300),True);
ShowMessage(GetEnumName(TypeInfo(TGradientFillType ),I));
End;
end;