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.
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! :-)