27-06-2009, 12:24 PM
1- لجلب قيمة لون البيكسل (أمثلة):
2- مثال لإستخراج نسبة اللون الأخضر حسب تموضع المؤشر على الصورة :
3- الأن يمكنك عمل إستثنا إذا كان نسبة اللون في البيكسل عالي ... نقوم بإدراج قيمة لون معين :
في المرفق .
بالتوفيق ,,
إقتباس :GetRValue = $0000FF
إقتباس :GetYValue = $00FFFF
إقتباس :GetGValue = $008000
2- مثال لإستخراج نسبة اللون الأخضر حسب تموضع المؤشر على الصورة :
كود :
procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Var Gr:DWord;
Begin
Gr:=GetGValue(Image.Canvas.Pixels[X,Y]);
GrLabel.Caption:=Format('<$%x>',[Gr]);
End;3- الأن يمكنك عمل إستثنا إذا كان نسبة اللون في البيكسل عالي ... نقوم بإدراج قيمة لون معين :
في المرفق .
بالتوفيق ,,