ايجاد افکت اسپری
بوسيله اين تابع شما مي توانيد قلمي ساخته که روي عکس را به صورت اسپري رنگ آميزي کند.
تابع Spray داراي 5 آرگومان است:
تابع Spray داراي 5 آرگومان است:
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor);
Canvas در واقع پرده نقاشي تصوير مورد نظرتان را تعيين ميکند، x,y مختصات مرکزي دايره اي که اسپري ميشود را تعيين ميکند، r شعاع دايره اسپري را مشخص مي کند، Color رنگ اسپري را مشخص مي کند.
توجه کنيد عکس انتخابي حتما Bmp باشد. (برای دیدن کد کلیک کنید)
کد ۱۶
+ نوشته شده در دوشنبه دوم مرداد 1385ساعت 4 قبل از ظهر توسط سید شاهرخ نبوی
|