استخدام ملايين الالوان بدلفي
#1
السلام عليكم ورحمه الله وبركاته
كنت اسأل علي حرية استخدام الالوان وان الالوان قليله و غير انيقه في في الدلفي
فهل يمكن استخدام الوان 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 منه و تستخدمها
الرد


الردود في هذا الموضوع
استخدام ملايين الالوان بدلفي - بواسطة m_m_saad - 21-07-2010, 07:20 AM
استخدام ملايين الالوان بدلفي - بواسطة الحويطي - 08-04-2013, 08:41 PM
استخدام ملايين الالوان بدلفي - بواسطة musvc - 22-07-2010, 09:14 AM

التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف