TSCARBitmap.AlphaBlend
From SCAR Divi Manual
Revision as of 01:49, 4 November 2012 by Freddy (talk | contribs) (Created page with "==Definition== Member of TSCARBitmap, read/write, default False.<source lang="scar" lines="false"> property TSCARBitmap.AlphaBlend: Boolean; </source> ==Availability== SC...")
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.