是否可以使用TImage和GDIPlus打开图像并保持完全透明

Question

我可以在带有GDIPlus的TImage中显示一个32位图像，该图像具有部分（蒙版）透明度但是alpha值为0或255且两者之间没有值。我试过加载PngImage，32位位图和图标都产生相同的...蒙版透明度但不是完全透明。

是否有其他方法可让TImage显示完全透明的GDI +图形，如所需结果图像所示？

开放后的GDI Plus

期望的结果

procedure TFormMain.Open1Click ( Sender: TObject );
// Load a GDIPlus Bitmap into TImage
var
  GPBitmap: TGPBitmap;
  iHBitmap: HBITMAP;
  iStatus: TStatus;
const
  TRANS_COLOR = clBlack;
begin

  if OpenPictureDialog1.Execute then
  begin

    FilePath := OpenPictureDialog1.FileName;
    begin

      GPBitmap := TGpBitmap.Create ( FilePath );
      try

        iStatus := GPBitmap.GetHBITMAP ( aclBlack, iHBitmap );
        // As best as I can determine from the internet, the GetHBitmap which is needed to assign a GPbitmap to TImage
        // does not hold an alphachannel, so loaded images alpha are either 0 or 255, but drawing with alphachannel values does work.
        if iStatus = Ok then
        begin

          Image1.Picture.Bitmap.Handle := iHBitmap;
          Image1.Picture.Bitmap.TransparentColor := Image1.Picture.Bitmap.Canvas.Pixels [ 0, Image1.Picture.Bitmap.Height - 1 ];
          StatusBar1.Panels [ 0 ].Text := FileCtrl.MinimizeName ( ExtractFileDir ( FilePath ), Canvas, 200 ); // Folder
          StatusBar1.Panels [ 1 ].Text := FileCtrl.MinimizeName ( ExtractFileName ( FilePath ), Canvas, 75 ); // Filename
          StatusBar1.Panels [ 2 ].Text := 'Width: ' + IntegerToString ( Image1.Picture.Bitmap.Width ); // Width
          StatusBar1.Panels [ 3 ].Text := 'Height: ' + IntegerToString ( Image1.Picture.Bitmap.Height ); // Height
          StatusBar1.Panels [ 4 ].Text := BitDepthToColorString ( GetPixelFormatSize ( GPBitmap.GetPixelFormat ) ); // Bitdepth

          Image1.Refresh;

        end;

      finally
        GPBitmap.Free;
      end;

    end;

  end;

end;

Answer 1

您需要做的是选择一种背景颜色，该颜色将与传输图像时绘制的表面混合。即而不是

iStatus := GPBitmap.GetHBITMAP ( aclBlack, iHBitmap );

使用

iStatus := GPBitmap.GetHBITMAP(ColorRefToARGB(ColorToRGB(clBtnFace)), iHBitmap);

如果图像是默认的彩色表格。

此时您已经知道图像没有Alpha通道，但已使用合适的颜色展平。 “TBitmap”的Transparent..属性对部分透明度没有帮助。如果您设置Transparent的{​​{1}}属性，当您将其放在不同颜色的背景上时，它仍然就像您问题的第一个图像，可能具有更好的边缘颜色。无论如何，如果你使用它，不要忘记将'TransparentColor'设置为'clBtnFace'而不是'clBlack'。