TSCARBitmap.TranspColor
From SCAR Divi Manual
Revision as of 11:35, 26 October 2012 by Freddy (talk | contribs) (Created page with "==Definition== Member of TSCARBitmap, read/write, default -1.<source lang="scar" lines="false"> property TSCARBitmap.TransColor: Integer; </source> ==Availability== SCAR ...")
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.