|
|
|
|
خوش آمدید. در این سایت می توانید ابزارهای دلفی و نرم افزارها را دریافت کنید. |
|
|
|
|
چگونه می توان رنگ نوع RGB را به Gray تبدیل کرد؟ Function RGBtoGray(Color:TColor):TColor;
Var
Target:Byte;
begin
Target:=Round((0.30 * GetRValue(Color))+
(0.59 * GetGValue(Color))+
(0.11 * GetBValue(Color)));
Result:=RGB(Target,target,target);
end;
|
|
|
آخرين به روز رسانی:
آمار بازدید:
|
