RGB

[Harry]

سلام .
چه جوری میشه مقدار Red,Green,Blue رنگ فعلی فرم را در سه متغیز ذخیره کرد؟
ممنون.

[Farhad.B.S]

برای استخراج مقادیر قرمز و سبز و آبی ، میتونید از این تابع استفاده کنید :



Function GetRGB(cColor: Longint; out Red : Integer;out Green : Integer; out Blue : Integer) : String;
begin
Red := cColor And 255;
Green := round(((cColor And 65280) / 256));
Blue := round(((cColor And 16711680) / 65536));
GetRGB := 'RGB (' + inttostr(Red) + ',' + inttostr(Green) + ',' + inttostr(Blue) + ')';
end;


مثلا :



var r,g,b : longint;
begin
ShowMessage(GetRGB(Form1.Color,r,g,b));

[hr110]

با سلام
GetRValue(cl)
برای گرفتن رنگ قرمز رنگ cl استفاده میشود.

موفق باشید