delphi4arab منتديات دلفي للعرب

نسخة كاملة : كيف ارسم على صورة أنشأتها وقت التنفيذ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

كيف ارسم على صورة أنشأتها وقت التنفيذ
عن طريق ال Canvas الخاصة بال Bitmap
PHP كود :
var
  
bmp: TBitmap;
begin
  bmp 
:= TBitmap.Create;
  
bmp.SetSize(100, 100);
  
bmp.Canvas.Brush.Color := clRed;
  
bmp.Canvas.FillRect(Rect(10, 10, 50, 50));
  
Canvas.Draw(0, 0, bmp);
  
bmp.Free;
end;