TSCARBitmap.AlphaBlend

From SCAR Divi Manual
Jump to: navigation, search

Definition

Member of TSCARBitmap, read/write, default False.
property TSCARBitmap.AlphaBlend: Boolean;

Availability

SCAR Divi 3.35 > Current

Description

When this property is set to true, the methods that affect the bitmap's alpha channel will be usable and it will be possible to do alpha-blended drawing of this bitmap.

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