پیدا کردن معادل کد رنگ در دلفی

[Fastdesign]

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

تو دلفی برخی رنگ ها مثلا رنگ هایی که در تصویر زیر وجود داره نیست ! به نظر شما می تونیم کد رنگ رو پیدا کنیم و ازش تو دلفی استفاده کنیم ؟

مثلا این رنگ ها :
96239

در ضمن کد رنگ ها رو از کجا پیدا کنیم و یک نمونه کد برای مثلا Color یک TEdite هم بزارید .

با تشکر

[Fastdesign]

دوستان خودم یک نرم افزار برای پیدا کردن کد رنگ گیر آوردم اینجا می زارم شاید برای همه مفید باشه .
96240

موفق و پیروز باشید

[Emdad2001]

دوستان خودم یک نرم افزار برای پیدا کردن کد رنگ گیر آوردم اینجا می زارم شاید برای همه مفید باشه .
96240

موفق و پیروز باشید

ممنون نرم افزار خوبی هستش ولی فتوشاپ این کارو نمی کرد ؟!!

[Ananas]

عجب! برنامه ی جالبیست. البته خود دلفی هم بعد از انتخاب رنگ از توی color browser اون رو داخل کادر پراپرتی به Hex تبدیل می کنه و می تونید اون رو کپی کنید. با تمام این احوال شما می تونید قادیر red green blue رنگتون رو داشته باشید و به hex تبدیل کنید. هر کانال رنگ رو از 0 تا 255 حساب کنید بعد: رنگ قرمز + رنگ سبز شیف به چپ 8 تا + رنگ آبی شیفت به چپ 16 تا = یک عدد از نوع TColor یا Cardinal که 32 بیتی بدون علامت هست. مثال :

var
r, g, b : Byte;
begin
r := 100;
g := 210;
b := 255;
Edit1.Color := r +
g shl 8 +
b shl 16; // 0x(00_B_G_R)
end;

[Felony]

عجب! برنامه ی جالبیست. آورین. البته خود دلفی هم بعد از انتخاب رنگ از توی color browser اون رو داخل کادر پراپرتی به Hex تبدیل می کنه و می تونید اون رو کپی کنید. با تمام این احوال شما می تونید قادیر red green blue رنگتون رو داشته باشید و به hex تبدیل کنید. هر کانال رنگ رو از 0 تا 255 حساب کنید بعد: رنگ قرمز + رنگ سبز شیف به چپ 8 تا + رنگ آبی شیفت به چپ 16 تا = یک عدد از نوع TColor یا Cardinal که 32 بیتی بدون علامت هست. مثال :

var
r, g, b : Byte;
begin
r := 100;
g := 210;
b := 255;
Edit1.Color := r +
g shl 8 +
b shl 16; // 0x(00_B_G_R)
end;

تابع RGB همین کار رو انجام میده :


Form1.Color:= RGB(155,120,0);