但是,当其句柄引用时,具有(PixelFormat = pf32bit)和(AlphaFormat = afDefined)(表现为其他目的的alpha混合)的TBitmap实例不会被识别为用于创建图标或光标的有效alpha混合位图.

目前,我必须使用描述的API调用(see)创建TBitmap的完整副本,以使CreateIconIndirect接受位图处理作为alpha混合.我该如何克服这种笨拙？

procedure TForm1.Button1Click(Sender: TObject);
const
  crAlpha = TCursor(-25);
var
  Bmp: TBitmap;
  Px: PRGBQuad;
  X,Y: Integer;

  BmpMask: TBitmap;
  II: TIconInfo;
  AlphaCursor: HCURSOR;
begin
  Bmp := TBitmap.Create;
  Bmp.PixelFormat := pf32bit;
  Bmp.Canvas.Brush.Color := clWhite;
  Bmp.SetSize(32,32);
  Bmp.Canvas.Font.Style := [fsBold];
  Bmp.Canvas.Font.Color := clRed;
  Bmp.Canvas.textout(1,10,'alpha');

  for Y := 0 to (Bmp.Height - 1) do
  begin
    Px := Bmp.ScanLine[Y];
    for X := 0 to (Bmp.Width - 1) do begin
      if DWORD(Px^) = DWORD(clWhite) then
        Px.rgbReserved := $00
      else
        Px.rgbReserved := $FF;
      Inc(Px);
    end;
  end;

  BmpMask := TBitmap.Create;
  BmpMask.SetSize(Bmp.Width,Bmp.Height);

  II.fIcon := False;
  II.xHotspot := 32;
  II.yHotspot := 32;
  II.hbmMask := BmpMask.Handle;
  II.hbmColor := Bmp.Handle;

  AlphaCursor := CreateIconIndirect(II);
  Win32Check(AlphaCursor <> 0);
  BmpMask.Free;
  Bmp.AlphaFormat := afDefined;  // AlphaBlend below,premultiply channels
  Canvas.Draw(0,Bmp);        // test draw
  Bmp.Free;

  Screen.Cursors[crAlpha] := AlphaCursor;
  Cursor := crAlpha;

end;

 (顶部’alpha’是测试绘图,另一个是光标)

像这样

public
  { Public declarations }
   BitMap     : TBitmap;
 end;

我有一个声明为公共的Tbitmap,我像这样创建onFormCreate

procedure TForm1.FormCreate(Sender: TObject);
      begin
      BitMap     := TBitMap.Create;
      end;

然后我像这样在位图上绘制一些东西

procedure TForm1.DrawOnPainBox;
        begin
         If BitMap.Width  <> PaintBox1.Width  then BitMap.Width  := PaintBox1.Width;
         If BitMap.Height <> PaintBox1.Height then BitMap.Height := PaintBox1.Height;
         BitMap.Canvas.Rectangle(0,random(PaintBox1.Width ),random(PaintBox1.Height));
         PaintBox1.Canvas.Draw(0,BitMap);
        end;

with PaintBox1.Canvas.Draw(0,BitMap);我们可以在一个paintBox中显示Bitmap中的内容但是相反的方法是什么？

如何将一个paintBox的内容分配/复制到位图？

`BitMap:=PaintBox1.Canvas.Brush.Bitmap;`

这编译,但如果我这样做,再次调用过程TForm1.DrawOnPainBox;我得到访问违规和调试器显示位图和PaintBox1.Canvas.Brush.Bitmap即使在paintBox上绘制了一些行

Bitmap.Width := PaintBox1.Width;
Bitmap.Height := PaintBox1.Height;
BitBlt(Bitmap.Canvas.Handle,Bitmap.Width,Bitmap.Height,PaintBox1.Canvas.Handle,SRCcopY);

注意：在较新版本的Delphi中,您可以使用Bitmap.SetSize而不是Bitmap.Width和Bitmap.Height.

然后我将值设置为红色,只是发现它显示为蓝色.

知道为什么吗？

这是一段代码摘录：

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,varBitmap);
end;

似乎TColor与内存中的内容不同,但这没有任何意义.

欢迎任何建议.