استخدام ملايين الالوان بدلفي

[m_m_saad]

السلام عليكم ورحمه الله وبركاته
كنت اسأل علي حرية استخدام الالوان وان الالوان قليله و غير انيقه في في الدلفي
فهل يمكن استخدام الوان RGB طبعا الوان RGB بامكانك استخدام ملايين الالوان

فهذا هو الكود

var
color :tcolor;
r,g,b :integer;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;

form1.color:= rgb (10,200,255);
end;

end.

يمكنك تغيير اي رقم من 1 الي 255 في الثلاث الالوان فتحصل علي ملايين الالوان

ويمكن الاستعانه ببرنامج الفوتوشوب للتسهيل لانك تختار منه درجه الالوان وتاخد ارقام RGB منه و تستخدمها

[musvc]

لماذا استخدمت المتغيرات R و G و B و color من دون استخدامها ؟؟
دالة RGB تقوم بالعمل كله ُ
بخصوص تنقي الألوان يمكنك استخدام برنامج الرسالم المرفق مع نسخة النضام ( لأختصار الوقت فقط ).

سلامي لك

[أبو محمد اللحياني]

قد عملت برنامج بالدلفي لالتقاط الألوان من سطح المكتب وقد كتبه قديماً ونوقش هنا :
http://www.arabteam2000-forum.com/index.php?showtopic=89000

وأضفت إليه الآن إظهار رقم COLORREF لاستخدامه في الدلفي مباشرة

[kachwahed]

بخصوص تنقي الألوان يمكنك استخدام برنامج الرسالم المرفق مع نسخة النضام ( لأختصار الوقت فقط ).
أو مباشرة من دلفي Double click على خاصية Color لأي مكون ثم Custom color... طريقة musvc :)
الأخ أبو محمد مثال جميل :)
ملاحظة صغيرة لاختصار الكود:
Timer1.Enabled := not Timer1.Enabled;
عوضا عن:
if Timer1.Enabled then
begin
Timer1.Enabled := False;
...
بالتوفيق.