Delphi TBitmap - 为什么像素和扫描线不同？

在使用 32 位 TBitmap 时，我从 Canvas.Pixels 切换到 ScanLine。

然后我将值设置为红色，却发现它显示为蓝色。

知道为什么吗？

这是一段代码摘录:

procedure TForm1.FormPaint(Sender: TObject);
var
  varBitmap: TBitmap;
  pLock: PIntegerArray;
  iColor: integer;
begin
  varBitmap := TBitmap.Create;
  varBitmap.PixelFormat := pf32bit;
  varBitmap.Width := 800;
  varBitmap.Height := 600;

  // Set Pixels to Red
  varBitmap.Canvas.Pixels[0, 0] := $0000FF;

  // Shows $FF0000 (blue)
  pLock := varBitmap.ScanLine[0];
  iColor := pLock[0];
  ShowMessageFmt('%x', [iColor]);

  // Set ScanLine to Red
  pLock[0] := $0000FF;

  // Displays a blue pixel
  Canvas.Draw(0, 0, varBitmap);
end;

似乎不知何故 TColor 与内存中的不同，但这没有意义。

欢迎任何建议。 ;)

最佳答案

32 位像素数据采用 $AARRGGBB 格式。您正在设置蓝色组件，而不是红色组件。使用 $FF0000 而不是 $0000FF 。或者更好的是，使用 RGB() 函数。

关于Delphi TBitmap - 为什么像素和扫描线不同？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/22291162/