delphi - 改变 TAniIndicator 的颜色

Question

在 Delphi 10.2 Tokyo 中，我使用 TAniIndicator 直到数据库加载完毕。

默认情况下，气泡的颜色是黑色。我想在不创建 Style 的情况下将其更改为 white。我还没有找到任何属性(property)。

有什么办法可以改变吗？

Answer 1

你可以这样做(对于默认样式)，注意你需要改进 ReplaceBlackColor 函数来使气泡完全变白

procedure ReplaceBlackColor(const ABitmap: TBitmap);
var
  I, J: Integer;
  M: TBitmapData;
  C: PAlphaColorRec;
begin
  if ABitmap.Map(TMapAccess.ReadWrite, M) then
  try
    for J := 0 to ABitmap.Height - 1 do
      for I := 0 to ABitmap.Width - 1 do
      begin
        C := @PAlphaColorArray(M.Data)[J * (M.Pitch div 4) + I];
        if C^.Color = TAlphaColorRec.Black then
          C^.Color := TAlphaColorRec.White;
      end;
  finally
    ABitmap.Unmap(M);
  end;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  bla: TBitmapListAnimation;
begin
  bla := AniIndicator1.FindStyleResource('ani') as TBitmapListAnimation;
  ReplaceBlackColor(bla.AnimationBitmap);
end;