21-07-2010, 07:20 AM
السلام عليكم ورحمه الله وبركاته
كنت اسأل علي حرية استخدام الالوان وان الالوان قليله و غير انيقه في في الدلفي
فهل يمكن استخدام الوان RGB طبعا الوان RGB بامكانك استخدام ملايين الالوان
فهذا هو الكود
يمكنك تغيير اي رقم من 1 الي 255 في الثلاث الالوان فتحصل علي ملايين الالوان
ويمكن الاستعانه ببرنامج الفوتوشوب للتسهيل لانك تختار منه درجه الالوان وتاخد ارقام RGB منه و تستخدمها
كنت اسأل علي حرية استخدام الالوان وان الالوان قليله و غير انيقه في في الدلفي
فهل يمكن استخدام الوان 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 منه و تستخدمها