Unit XParBMP

Two different ways of showing transparent bitmaps } { Some small changes were made by Nuno Antunes

Classes

Functions

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.

Types

Constants

Variables


Functions


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

Types


Constants


Variables