Unit PGGlyph

================================================================================ Glyph Engine - Used to create glyphs without binding drawing to a component. ================================================================================ Classes: Name Purpose TPGGlyphEngine Creates a button in the caption bar of a form. Associated Files: None History: Version Date(d/m/y) Programmer Comments 1.0 14/12/96 Brad Parks Creation. Credits: TExplorerButton Component version 2.1 (c)1996 Fabrice Deville fdev@tornado.be http://www.tornado.be/~fdev/ procedure PGDrawTransparentBitmap(Canvas: TCanvas; bmp: TBitmap; xStart, yStart: Integer; cTransparentColor: LongInt); ================================================================================ Copyright © 1996, The Programmers' Guild. All Rights Reserved ================================================================================

Classes

TPGGlyph -
TPGGlyphEngine -

Functions

PGAssert - Helper Routines
PGCenter -
PGDrawTransparentBitmap - Create a monochrome version of the bitmap.
PGError -
PGMax -
PGMin -
Register -

Types

TPGGlyphState
TPGGlyphStyle

Constants

Variables


Functions


procedure PGAssert(const Condition: Boolean; const Msg: string);

Helper Routines

function PGCenter(ABreadth, ADistance: Integer): Integer;


procedure PGDrawTransparentBitmap(Canvas: TCanvas; bmp: TBitmap; xStart, yStart: Integer; cTransparentColor: LongInt);

Create a monochrome version of the bitmap.

procedure PGError(const Msg: string);


function PGMax(X, Y: Integer): Integer;


function PGMin(X, Y: Integer): Integer;


procedure Register;


Types


TPGGlyphState = (gsUp, gsDisabled, gsDown);

TPGGlyphStyle = TButtonStyle

Constants


Variables