E-Mail Me 
 

LinkExchange Member


--------------------------------------------------------------------------------
 TSmiley 
Download SMILEY32.ZIP (12954 bytes) 

This is the homepage of the 32-bit version of the now world-famous TSmiley component. TSmiley has been demo-ed all over the world. This newest version virtually doubles -- even triples -- the usefulness of the original 16-bit TSmiley. This version adds a couple of new faces and an OnMoodChange event, as well as making some changes internal workings of the component. 

Read the article I wrote for Delphi Magazine about the 16-bit version of TSmiley. Here is a copy of the original press release. 

This version is a 32-bit version, and will run just fine in Delphi 2 or Delphi 3. To install it, unzip all the files (except perhaps for the help file) into a directory on your Delphi path, and then install SMILEY.PAS as you would any normal component. 



--------------------------------------------------------------------------------
TSmiley illustrates a number of techniques for component building, including -- 
Windows message handling
Adding programmer defined events
Handling resources in a component
Overriding inherited events
Enumerated properties
A basic property editor
Basic run time typing information




--------------------------------------------------------------------------------
TSmiley works pretty simply -- 
You can call the Toggle method, which changes the Face to the next value of the TMood type. You can set the value directly -- Smiley1.Mood := smOutCold; 

At design time, you can set the mood with the property editor, either by double clicking on the property in the Object Inspector or clicking on the ... button. Clicking on Smiley at runtime causes him to wink at you. 



--------------------------------------------------------------------------------
Please feel free to use TSmiley as you please under the following conditions -- 
Don't change TSmiley. I release it as freeware, but I claim a copyright on and reserve all rights to TSmiley. Please do let me know of any bugs or problems. If you have any enhancement suggestions, I'm all ears. I'd love to get more and interesting faces!
Please credit me if you use TSmiley for commercial purposes. I'm only a little vain, I know! 
If you use TSmiley in a commercial product and sell more that ten million copies, you owe me $100,000 in royalties per copy for each copy of your application sold above ten million. Not a bad deal! :-)



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

[Home] [Shareware] [About Me] [Delphi] [Movies] [Favorites] 
[Books] [Links] [Other Stuff]
--------------------------------------------------------------------------------
 
If you have any questions or comments about this web page please send mail to: nhodges@icss.net
Copyright © 1997 by Nick Hodges -- All Rights Reserved.
Nothing here should be construed as any endorsement by the US Navy of anything for anything.
This homepage is entirely the personal expression of Nick Hodges.