+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكل فى قيم rgb الخاصه بالالوان (/showthread.php?tid=4012)
مشكل فى قيم rgb الخاصه بالالوان - abdeslem1982 - 20-03-2012
السلام عليكم
هل يمكن ان تكون قيم rgb للالوان اصغر من 0 ان كان نعم كبف ذلك و القيمه التى يمكن ان ياخذها احد الالوان هى من 0 الى 255
وجدت هذا المثال و لم افهم لمذا اخذ حالة الالوان التى تكون قيمتها اقل من الصفر فى حين ان اصغر
قيمه يمكن ان ياخذها احد الالوان ازرق او احمر او الاخضر هى صفر
كود :
Procedure Tform1.Eclaircir;
var
x, y : integer; // colonnes, lignes
Row : Prgbarray; // pointeur scanline
R,G,B : integer; // les 3 couleurs
begin
For y := 0 to bmp1.height-1 do // attention au -1
begin
row := Bmp1.scanline[y]; // scanline
for x := 0 to bmp1.width-1 do // attention au -1
begin
R := (Row[x].rgbTred * 10) div 100;
G := (Row[x].rgbTgreen * 10) div 100;
B := (Row[x].rgbTblue * 10) div 100;
if R > 255 then R := 255 else if R < 0 then R := 0;
if G > 255 then G := 255 else if G < 0 then G := 0;
if B > 255 then B := 255 else if B < 0 then B := 0;
row[x].rgbtred := R;
row[x].rgbtgreen := G;
row[x].rgbtblue := B;
end;
end;
end;كود :
http://bardou.pagesperso-orange.fr/michel/graphisme/Graphi4.htmمشكل فى قيم rgb الخاصه بالالوان - kachwahed - 21-03-2012
وعليكم السلام ورحمة الله وبركاته
لم أفهم/لا أعرف، انظر هنا يمكن تجد شيئا مفيدا:
كود :
http://www.efg2.com/Lab/Graphics/Colors/index.html