TSCARBitmap.TranspColor

Definition

Member of TSCARBitmap, read/write, default -1.

property TSCARBitmap.TransColor: Integer;

Availability

SCAR Divi 3.35 > Current

Description

Sets the transparent color of the bitmap to the given value. When this field is not -1, bitmap searches will ignore the pixels with the transparent color on the bitmap during the search. If AlphaBlend is set to true, the function will clear the alpha channel and when the assigned value is not -1, it will alpha-blend the pixels on the bitmap with the given color at full transparency.

Example

var
  Bmp, Bmp2: TSCARBitmap;
   
begin
  Bmp := TSCARBitmap.Create('deNoTYBBg+M/wnwCKjwchgsrgip/e+X/5D' +
    'DFausEApHjfjv/LF+HXAlIJBiAGUPGEHjzq4YofPXp04sQJEBe34pPNCv+/3Aa' +
    'qgSiGWoFX8f83h/8/XAaxhUjF/693/D+XR5JikAjdFUPVE60Y6CNTU1MiFcPVA' +
    'wFQJUHFQARUCU0nRKZAEhEAWNcFGw==');      
  Bmp2 := TSCARBitmap.Create('');
  try                 
    Bmp.Resize(100, 100);  
    DebugBitmap(Bmp);  
    Wait(2000);              
    Bmp2.SetSize(100, 100);     
    Bmp2.Clear(clAquamarine);
    Bmp.AlphaBlend := True;
    Bmp.TranspColor := clFuchsia;  
    Bmp.DrawTo(Bmp2, 0, 0);
    DebugBitmap(Bmp2);  
  finally
    Bmp.Free;
    Bmp2.Free;
  end;
end.

See Also

• TSCARBitmap.AlphaBlend