Win11(22H2)下Delphi VCL设置8位索引像素格式显示异常咨询

问题说明 #

在Windows 11 22H2系统下，使用Delphi 11.3及更早版本的VCL开发时，执行Image1.Picture.Bitmap.PixelFormat := pf8bit;将图像像素格式设为8位索引格式后，图像会出现色彩错乱的异常显示。该问题仅在Win11 22H2环境中触发。

解决办法 #

• 手动创建并绑定调色板
  8位索引位图依赖调色板才能正常显示，Win11 22H2对VCL默认调色板的处理存在兼容问题。可以手动生成符合需求的调色板并关联到位图：

  var
    Pal: HPalette;
    LogPal: TLogPalette;
    I: Integer;
  begin
    // 初始化调色板结构
    LogPal.palVersion := $300;
    LogPal.palNumEntries := 256;
    // 此处生成灰度调色板，可根据需求替换为自定义色彩
    for I := 0 to 255 do
    begin
      LogPal.palPalEntry[I].peRed := I;
      LogPal.palPalEntry[I].peGreen := I;
      LogPal.palPalEntry[I].peBlue := I;
      LogPal.palPalEntry[I].peFlags := 0;
    end;
    // 创建调色板
    Pal := CreatePalette(LogPal);
    try
      Image1.Picture.Bitmap.PixelFormat := pf8bit;
      // 将调色板绑定到位图
      Image1.Picture.Bitmap.Palette := Pal;
    finally
      DeleteObject(Pal);
    end;
  end;
  

• 用Convert方法替代直接设置PixelFormat
  如果是加载外部图像，先以默认格式加载，再用Convert方法转换为8位格式，该方法会自动生成适配图像的调色板，比直接设置属性更可靠：

  begin
    Image1.Picture.LoadFromFile('your_image.bmp');
    // 转换为8位索引格式并自动生成调色板
    Image1.Picture.Bitmap.Convert(pf8bit);
  end;
  

• 升级Delphi版本
  Embarcadero在Delphi 11.4及后续版本中修复了Win11 22H2下的VCL位图兼容问题，直接升级到最新稳定版即可解决该异常。

• 改用GDI+处理位图
  绕过VCL原生位图的兼容问题，用GDI+的能力处理8位索引位图：

  uses
    GDIPAPI, GDIPOBJ;
  var
    Bitmap: TGPBitmap;
    Graphics: TGPGraphics;
  begin
    Bitmap := TGPBitmap.Create('your_image.bmp');
    Graphics := TGPGraphics.Create(Image1.Canvas.Handle);
    try
      // 转换为8位索引格式并绘制到Image控件
      Bitmap.SetPixelFormat(PixelFormat8bppIndexed);
      Graphics.DrawImage(Bitmap, 0, 0, Image1.Width, Image1.Height);
    finally
      Graphics.Free;
      Bitmap.Free;
    end;
  end;
  

内容的提问来源于stack exchange，提问作者user22100372