التحكم فى جودة صورة

[Goblin]

[COLOR="RoyalBlue"]بسم الله الرحمن الرحيم

قبل سؤالي, احب ان اهنئ جميع الاعضاء الكرام بمناسبة استكمال الدورة.

سؤالي عن كيفية التحكم فى جودة الصورة, تحويلها الي ابيض و اسود "GrayScale", التقليل من جودتها الي 8bit او اقل.[/COLOR]

[Goblin]

عموما, وجدت هذا الكود لعكس الوان صورة:

كود :

InvertRect(Image1.Canvas.Handle,Image1.ClientRect); Image1.Invalidate;

و اجابة سؤالي بعد بعض البحث:

كود :

Image1.Picture.Bitmap.PixelFormat := TPixelFormat([color=Blue][B]2[/B][/color]);

[AL-MOB4RM3G]

شكرا لك اخ جوبلين على وضع الجواب بعد السؤآل,, فهذا يفيدنا كثيرا,, بارك الله فيك

[TF6M]

1- لجلب قيمة لون البيكسل (أمثلة):

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- الأن يمكنك عمل إستثنا إذا كان نسبة اللون في البيكسل عالي ... نقوم بإدراج قيمة لون معين :
في المرفق .

بالتوفيق ,,

[Goblin]

شكرا اخي tf6mehboul, المثال الذي ارفقته يتيح المزيد من التحكم.