delphi - 增加 TBitmap 的大小或深度

Question

当我通过（例如）增加位图的大小时......

bitmap.Width := bitmap.Width + 30;

...我是否可以控制右侧 30 像素的填充内容，或者我只是假设它们未初始化

同样，如果我PixelFormat从pf24bitto更改pf32bit，我可以控制初始化 alpha 字节的内容吗？

令人尴尬的新手问题，但我的 google-fu 让我失望了。:)

Answer 1

由于文档中没有定义在这种情况下会发生什么，因此您不能依赖任何东西。新像素很可能为 0（黑色），但如果它们对您很重要，您应该明确填充它们：

FUNCTION ExpandBitMap(BMP : TBitMap ; AddW,AddH : Cardinal ; FillColor : TColor = clBlack) : TBitMap;
  VAR
    OrgW,OrgH : Cardinal;

  BEGIN
    OrgW:=BMP.Width; OrgH:=BMP.Height;
    BMP.Width:=OrgW+AddW; BMP.Height:=OrgH+AddH;
    BMP.Canvas.Brush.Color:=FillColor;
    BMP.Canvas.Brush.Style:=bsSolid;
    BMP.Canvas.FillRect(Rect(OrgW,0,BMP.Width,BMP.Height));
    BMP.Canvas.FillRect(Rect(0,OrgH,OrgW,BMP.Height));
    Result:=BMP
  END;

Alpha 通道也是如此——我将把它作为练习留给用户来制作类似的功能:-)。