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;