改變顏色的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;