改变颜色的TAniIndicator

Question

在德尔福10.2东京我使用TAniIndicator，直到数据库加载。

默认情况下，气泡的颜色为黑色。我想将其更改为白色而不创建Style。我还没有找到任何财产。

有什么方法可以改变它吗？ 谢谢。

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;