close
دانلود فیلم
ایجاد گرادینت (Gradient) روی فرم دلفی

procedure TForm1.FormPaint
  (Sender: TObject);
var
  Row, Ht: Word ;
begin
  Ht := (ClientHeight + 255) div 256 ;
  for Row := 0 to 255 do
  with Canvas do begin
  Brush.Color := RGB(0, 0, Row) ;
  FillRect(Rect(0, Row * Ht,

  ClientWidth, (Row + 1) * Ht)) ;
  end ;
end;

 

لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید