Two different ways of showing transparent bitmaps } { Some small changes were made by Nuno Antunes
DrawTransparent - =================================================================} {This procedure will draw a source bitmap onto a target bitmap,
leaving information from the taget to shine through where the
pixels in the source are of the specified transparent color.
DrawTransparentBitmap - Purpose: Display a transparent bitmap loaded from a file
Author: Michael Vincze (vincze@ti.
procedure DrawTransparent(t: TBitmap; x,y: Integer; s: TBitmap; TrCol: TColor);
=================================================================} {This procedure will draw a source bitmap onto a target bitmap,
leaving information from the taget to shine through where the
pixels in the source are of the specified transparent color.
t = The target bitmap to be drawn onto
x,y = The position on the target where source is drawn
s = The source bitmap
TrCol = The color that will become transparent in the source bmp
NOTE: Don't forget to repaint the target, eg Image1.Invalidate
procedure DrawTransparentBitmap (ahdc: HDC; Image: TBitmap;
xStart, yStart: Word; TrCol: Tcolor);
Purpose: Display a transparent bitmap loaded from a file
Author: Michael Vincze (vincze@ti.com)
Date: 04/20/95
Usage: Create a blank form, named Form1, compile and run.
Limits: This unit has been tested for both 16 and 256 color bitmaps.
It is assumed that the lower left pixel of the bitmap represents
the transparent color.
Notes: If this file is to be used for any purpose please leave
this header intact and give credit to the author if used for
any purpose.
Please contact the author if any improvements are made.
The author stakes no claim for this programs usefullness
or purpose.
Version: 1.00 04/20/95 Initial creation