摘要:
function HtmlToColor(HColor: Integer): Integer;var sColorMsg: string; srValue, sgValue, sbValue: string; irValue, igValue, ibValue: Integer;begin sColorMsg := IntToHex(HColor, 6); srValue := '$' + Copy(sColorMsg, 1, 2); sgValue := '$' + Copy(sColorMsg, 3, 2); sbValue := '$' + 阅读全文