20-03-2012, 02:50 PM
السلام عليكم
هل يمكن ان تكون قيم rgb للالوان اصغر من 0 ان كان نعم كبف ذلك و القيمه التى يمكن ان ياخذها احد الالوان هى من 0 الى 255
وجدت هذا المثال و لم افهم لمذا اخذ حالة الالوان التى تكون قيمتها اقل من الصفر فى حين ان اصغر
قيمه يمكن ان ياخذها احد الالوان ازرق او احمر او الاخضر هى صفر
وهذا الوقع الذى اخذت منه المثال
هل يمكن ان تكون قيم 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