(*
 Note: This is freeware you may do what you like with it, but not to sell it for
 for a profit. If you have any questions please email me at Hiq2q@aol.com
 also if you want the DCU without the words DEMO on it. Please send check or
 Money order of $9.95 USD, yes that's 9 dollars and 95 cents and a return
 email address so I could email it to you with what version of Delphi you want

 F. Joe Darley
 P.O. Box 11458, 
 Alexandria, VA  22312-1458

 NOTE:
 This unit comes as is and comes with NO warranty there should be no bugs in this
 unit because its an easy addition to the Delphi's messagedlg function. 


 INSTALL INFORMATION:
 1. Copy uhMessage.dcu in the directory of your application that you
    are planing to use.
 2. In the uses clause of your form write uhmessage so your application can use the
    the dcu.
 3. use the methods below to add flavor to your applications.

DESCRIPTION:
Ultra Hype Message dialog box is a add on to Delphi's messagedlg 
function. With this unit you can display very colorfull messages 
with a gradient effect of over 16 million different colors 
and different font styles. You can create mterror, mtconfirmation, 
mtinformation, mtwarning and mtcustom messages. Demo app is included. 
NOTE: THIS UNIT IS DESIGNED TO ADD FLAVOR TO YOUR APPLICATIONS!!! 

Methods:

function uHMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;overload;
function uHMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint;FStyle: TFontStyles): Integer;overload;
function uHMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint;FStyle: TFontStyles;clStart,clEnd:Tcolor): Integer;overload;
function uhMessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;FStyle: TFontStyles;clStart,clEnd:Tcolor): Integer;overload;
function uhMessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;overload;
function uhMessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;FStyle: TFontStyles): Integer;overload;

*)
