C# 将 delphi TColor 转换为颜色（十六进制）

Question

这些数字存储在数据库中。它们源自 Delphi 代码。尽管我认为他们遵循某种标准。我试过Color.FromArgb(255);

但我知道第一个是红色（在 delphi 方面），而在 ASP.NET 中它认为它是蓝色的Color [A=0, R=0, G=0, B=255]

无论如何我都希望将这些数字转换为十六进制。 IE。 #000000 , #FFFF99 等等

任何人都知道如何将这些整数（见数据库图片）转换为十六进制。

Answer 1

看起来这些数字是 Delphi TColor values 的 base-10 表示。

Delphi 本身似乎提供了一些辅助函数（例如GetRValue）来提取各自的读取、绿色和蓝色值。您必须自己在 c# 中编写类似的东西。

拥有这些值，您可以将它们组合成一个十六进制字符串。

string.Format("#{0:X2}{1:X2}{2:X2}", redComponent, greenComponent, blueComponent);

简单地将整数值转换为十六进制字符串，无论是否填充，很可能不会做正确的事情。

UPDATE 正如评论者 James L. 指出的那样，组件的顺序实际上对于/在 delphi 中是不同的。要生成类似TColor 的值，顺序必须是：

string.Format("#{0:X2}{1:X2}{2:X2}", blueComponent, greenComponent, redComponent);

Answer 2

当不是来自调色板或特殊颜色时，Delphi 颜色 (TColor) 是 XXBBGGRR。

有关格式的更多详细信息（以及其他特殊情况），请参阅this article。 Christian.K 所指的The article 还包含一些特殊情况的详细信息。

标准颜色

要转换为标准颜色，您应该使用类似：

var color = Color.FromArgb(0xFF, c & 0xFF, (c >> 8) & 0xFF, (c >> 16) & 0xFF);

要转换为十六进制：

string ColorToHex(Color color)
{
    return string.Format("#{0:X2}{1:X2}{2:X2}",
        color.R, color.G, color.B);
}

系统颜色

对于系统颜色（数据库中的负值），它们只是被0x80000000 屏蔽的窗口常量。

感谢David Heffernan 提供信息。

示例代码

Color DelphiColorToColor(uint delphiColor)
{
    switch((delphiColor >> 24) & 0xFF)
    {
        case 0x01: // Indexed
        case 0xFF: // Error
            return Color.Transparent;

        case 0x80: // System
            return Color.FromKnownColor((KnownColor)(delphiColor & 0xFFFFFF));

        default:
            var r = (int)(delphiColor & 0xFF);
            var g = (int)((delphiColor >> 8) & 0xFF);
            var b = (int)((delphiColor >> 16) & 0xFF);
            return Color.FromArgb(r, g, b);
    }
}

void Main()
{
    unchecked
    {
        Console.WriteLine(DelphiColorToColor((uint)(-2147483646)));
        Console.WriteLine(DelphiColorToColor(
                (uint)KnownColor.ActiveCaption | 0x80000000
            ));
        Console.WriteLine(DelphiColorToColor(0x00FF8000));
    }
}