TColor-u HTML Color-a çervirmək

[Ʌüsal]

Foma 1 ədəd Dialogs menyusundan ColorDialog komponenti əlavə edin.1 ədəd Button və 1 ədəd Editbox və ya Label əlavə edə bilərsiniz.

 

Button 1-ə klik edin və kodu yazın.

 

function ColorToHtml(DColor:TColor):string;

var

tmpRGB : TColorRef;

begin

tmpRGB := ColorToRGB(DColor);

Result:=Format(\'2x%.2x%.2x%.2x\',

[GetRValue(tmpRGB),

GetGValue(tmpRGB),

GetBValue(tmpRGB)]);

end; {function ColorToHtml}

 

begin

if ColorDialog1.Execute then

Edit1.text:=ColorToHtml(ColorDialog1.Color);

 

4.jpg

[Rauf-SDTK]

Tesekkurler.

[nurik111]

cox sagol