{------------------------------------------------------------------------------}
{ Copyright : © Copyright 1996 by Y. Rochat }
{ Date de creation : 14/12/1995 }
{ Last Update : 23/01/1996 }
{ Version Number : 1.10 }
{ Langage Programmation : DELPHI 1.01 }
{------------------------------------------------------------------------------}
{ YRNAG.PAS : A NagScreen COMPONENT for DELPHI that allow you to }
{ easily implement a Nag screen for your projects. }
{ When invoked by a call to the ShowNag method, it will}
{ display your shareware information in a TMemo box for}
{ WaitTime seconds. This information must be written in}
{ a text file called 'comments.txt' and located in the }
{ main directory of your project as the file 'icon.bmp'}
{ which is the icon of your application. }
{ }
{ You can invoke the Nag's Screen through the main }
{ form's OnCreate or OnShow event handlers. }
{ }
{ HOW TO USE IT : 1) Put a TYRNagScreen (by ex. MyNag) in your main Delphi form}
{ 2) Make a call to MyNag.ShowNag to invoke the Nag's Screen }
{------------------------------------------------------------------------------}
{ IMPORTANT }
{ }
{ You can use this code as is and you are FREE to copy/distribute provided that}
{ this notice is not modified and included in the distrubution pack. }
{ I'll be more than happy to hear from you for your comments about a real-life }
{ use of this code. Please send your comments to " rochat@dma.epfl.ch " with }
{ subject field starting with the words 'TYRNAG'. }
{------------------------------------------------------------------------------}
{:DISCLAIMER: }
{------------ }
{ THIS SOURCE CODE IS DELIVERED AS IS. THERE IS NO REASON TO THINK THAT IT }
{ SHOULD NOT WORK AS CLAIMED. BUT JUST IN CASE, LET ME DISCLAIM THAT YVES }
{ ROCHAT CAN NOT BE HELD LIABLE IF YOU LOOSE TIME OR MONEY USING THIS CODE. }
{------------------------------------------------------------------------------}
(
geocities.com/siliconvalley/park) (
geocities.com/siliconvalley)