سؤال حول DlgColor

[M_Mori2010]

السلآم عليكم ورحمة الله وبركاته..

ماهي طريقة جلب اسم اللون المختار من DlgColor وكتابة اسمه او رقمه في Edit ؟؟

وجزاكم الله كل خير

[King SofT]

وعليكم السلام ورحمة الله

كود :

if ColorDialog1.Execute then Label1.Caption:=ColorToString(ColorDialog1.Color);

بالتوفيق

[M_Mori2010]

شكرا اخي جزاك الله كل خير لكن هل من طريقة لأظهار الرقم الخاص باللون بصيغة Html ؟

[King SofT]

وعليكم السلام اخي

PHP كود :

function ColortoHtml(col:Tcolor):String;
var
    tmpRGB : TColorRef;
  begin
    tmpRGB := ColorToRGB(col) ;
    Result:=Format('#%.2x%.2x%.2x',
                   [GetRValue(tmpRGB),
                    GetGValue(tmpRGB),
                    GetBValue(tmpRGB)]) ;
  end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
   Label1.Caption:=ColorToHtml(ColorDialog1.Color) ;
end; 


بالتوفيق