{------------------------------------------------------------------------------} { 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. } {------------------------------------------------------------------------------}