30-04-2013, 10:41 AM
يبدو انها تعليمة واحدة فقط !
a or b = a + b
a and b= a * b
كود :
function MakeRGB(r,g,b : byte):COLORREF;
begin
result := (b * $ffff) + (g * $ff) + r;
end;a or b = a + b
a and b= a * b