كيف يمكن تغيير لون صورة Metafile على الشاشة؟

الخاصية Pixels في Canvas

مثال form1.Canvas.Pixels[x,y]:=clBlue;

procedure TForm1.Button1Click(Sender: TObject);
var x,y:integer;
begin
for x:=0 to 800 do
for y:=0 to 600 do
form1.Canvas.Pixels[x,y]:=clBlue;
end;

شكراً لك أخي عروة، لكن هذه الخاصية للصور النقطية Bitmaps وليس Metafile!

أنا أعلم أن طريقة تغيير اللون لل Metafiles ليست سهلة وأعلم أنها تحتاج إلى عمل وجهد كبيرين حتى أن مايكروسوفت تقول ذلك في موقعها. الطريقة تحتاج إلى شخص متمرس في اللغة وأنا لست كذلك ):

جرب طريقتك على أي صورة Metafile وأخبرني بالنتيجة. ولك جزيل الشكر.

على فكرة: طريقتك بطيئة جداً في تنفيذها على صورة بحجم 800 × 600. الأفضل إستخدام طريقة BrushCopy فهي أنسب (على الرغم من أنها هنا للتوافقية فقط). هذا ما تقوله بورلاند في ملف المساعدة:

Copies a portion of a bitmap onto a rectangle on the canvas, replacing one of the colors of the bitmap with the brush of the canvas.

سلام

صحيح ..

هذا الطريقة بطيئة جدا جدا

من اجل السرعة استخدم ScanLine ,.. هنا السرعة !!