+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : سؤال حول DlgColor (/showthread.php?tid=4249)
سؤال حول DlgColor - M_Mori2010 - 09-06-2012
السلآم عليكم ورحمة الله وبركاته..
ماهي طريقة جلب اسم اللون المختار من DlgColor وكتابة اسمه او رقمه في Edit ؟؟
وجزاكم الله كل خير
سؤال حول DlgColor - King SofT - 09-06-2012
وعليكم السلام ورحمة الله
كود :
if ColorDialog1.Execute then
Label1.Caption:=ColorToString(ColorDialog1.Color);بالتوفيق
سؤال حول DlgColor - M_Mori2010 - 10-06-2012
شكرا اخي جزاك الله كل خير لكن هل من طريقة لأظهار الرقم الخاص باللون بصيغة Html ؟
سؤال حول DlgColor - King SofT - 10-06-2012
وعليكم السلام اخي
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;
بالتوفيق