创建位图问题(8bit)

hujunyi

  ABmp := TBitmap.Create;
  ABmp.PixelFormat := pf8bit;
  ABmp.Width := 318;
  ABmp.Height := 577;
  for I := 0 to ABmp.Width - 1 do
    for J := 0 to ABmp.Height - 1 do
      begin
        CurColor.blue := 255;
        CurColor.green := CurColor.blue;
        CurColor.red := CurColor.blue;
        ABmp.Canvas.Colors[I, J] := CurColor;
      end;     
  ABmp.SaveToFile('Test.bmp');
结果图片是全黑的。
请问哪里出错了，谢谢！

hujunyi

用图片查看工具看创建的位图Test.bmp，显示是24位，而不是我需要的8位，请问错在哪，谢谢！

jixian

CurColor.blue := 255;   //这里赋值为255, 后面只有跟着都是255了
CurColor.green := CurColor.blue;
CurColor.red := CurColor.blue;

hujunyi

8位图，255表示最亮，RGB都是255，表示灰度白色，这应该没错吧