Unit Uhwfont

Classes

TUhwFont - ----------------------------------------------------------------------------
TUhwPal - ----------------------------------------------------------------------------
TUHWstrukt -

Functions

LoadPal - -----------------------------------------------------------------------------
MakeBlackPalette - v1+
MakeFromToPalette - ----------------------------------------------------------------------------

-----------------------------------------------------------------------------
MakeWhitePalette -
Register - ===========================================================} {================ TUHWFONT =================================} {===========================================================
SavePal - -----------------------------------------------------------------------------

Types

obr
obrwsk
T255
TAlignmentY
TPal768
TUhwChar

Constants

Variables


Functions


function LoadPal (var f:file;var p1:TPal768) : boolean;

-----------------------------------------------------------------------------

function MakeBlackPalette:TPal768;

v1+

function MakeFromToPalette(a1,a2:TColor):TPal768;

----------------------------------------------------------------------------

-----------------------------------------------------------------------------


function MakeWhitePalette:TPal768;


procedure Register;

===========================================================} {================ TUHWFONT =================================} {===========================================================

function SavePal (var f:file;var p1:TPal768) : boolean;

-----------------------------------------------------------------------------

Types


obr=array[1..65535] of byte;
TUHWFONT COMPONENT v0.3 (c) 1996,1998 UHO Łukasz Knasiecki. UHO uhouho@geocities.com http://friko4.onet.pl/ko/uho/ Part of UHO FREEWARE PROGRAM - you've got full source - you've got no limits for using and changing this even in commercial apps - you've got no feedback from me This component lets you to use bitmap fonts with 256 colours. Now You can use in Windows Smooth, Coloured etc. Fonts. INSTALL: Just register UhwReg file Code is quite dirty but it's no time to clean. Just try to go trough it. Look Methods/Properties Info in UhwFont.TXT and UhwFont.HLP files Have Fun and Don't Worry about Bugs. Easy.
obrwsk=^obr

T255 = record
i : byte;
d : array[1..255] of word;
end;

TAlignmentY = (taTopJustify, taBottomJustify, taCenterY);

TPal768=array[0..255] of TColor;

TUhwChar = record
wsk : word;
xx : byte;
yy : byte;
ydown : byte;
end;

Constants


Variables