No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Convertir un valor de Color al Formato de HTML.

delphi

function GetHTMLColor(cl: TColor; IsBackColor: Boolean): string;
	var rgbColor: TColorRef;
	begin
	  if IsBackColor then
	    Result := 'bg'
	  else
	    Result := '';
	  rgbColor := ColorToRGB(cl);
	  Result := Result + 'color="#' + Format('%.2x%.2x%.2x',
	                                            [GetRValue(rgbColor),
	                                             GetGValue(rgbColor),
	                                             GetBValue(rgbColor)]) + '"';
	end;

Saludos!