+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : تمارين دلفي وحلول (https://delphi4arab.net/forum/forumdisplay.php?fid=16)
+--- الموضوع : [تمرين] : عمل محاكاة للدالة rgb (/showthread.php?tid=5172)
[تمرين] : عمل محاكاة للدالة rgb - محمد عبد العزيز - 05-05-2013
الحل كان بفرض استبدال كل الدوال
غير ذلك التعديل...
كود :
function GetBValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.b;
end;
function GetGValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.g;
end;
function GetRValueX(RGB:Cardinal):Byte;
begin
Coulor.color:=rgb;
result:=Coulor.r;
end;[تمرين] : عمل محاكاة للدالة rgb - ALmuhhnad - 06-05-2013
شكراً لك اخي المبرمج smp3 ... ننتظر تحديات آخر ... شيقة مثل هذا التحدي
[تمرين] : عمل محاكاة للدالة rgb - SMP3 - 06-05-2013
almuhhnad كتب :شكراً لك اخي المبرمج smp3 ... ننتظر تحديات آخر ... شيقة مثل هذا التحدي
لم لا تضع لنا أنت التحدي ؟