============================================================ DAYOFTIPS - 19:44 24/08/97 ------------------------------------------------------------ COMPONENT DESIGN IN DELPHI 2.0 C/S, FOR ONLY DELPHI 2.0 RELEASE 1.00 - 08/24/97 COPYRIGHT ) 1997 FREDERICO TORMINN - BRAZIL RELEASE 1.00 -------------------- It's first release of the component DAYOFTIPS. Is very single and very easy to use. To record information in Register of the Windows 95 automatically. Change headers(four) during execution. To change header's: Write first caracter in TipsList: Caracter '#' for header1 Caracter '$' for header2 Caracter '*' for header3 Caracter '=' for header4 See exemple in project exemple: DayOfTips.dpr or more informations in file Inform.doc. Order the tips is randomic, no sequence. Change bitbtn's captions, headers caption's, save to register. Write one single code on Event 'Activate' of the mainform, to inform the program if have show DayOfTips or not: procedure TForm1.FormActivate(Sender: TObject); begin if SearchRegister then //simple function to read register BtnExecuteClick(Sender);//Execute DayOfTips || end; || || _||_ \ / \/ function TForm1.SearchRegister : Boolean; var Regist: TRegistry; begin try Regist:= TRegistry.Create; Regist.RootKey:= HKEY_CURRENT_USER;//RootKey default of component DayOfTips Regist.OpenKey('Software\DayOfTips', False);//Key in this exemple if Regist.ValueExists('ShowStartup') then //value default of component Result:= Regist.ReadBool('ShowStartup') else Result:= false; finally Regist.Free; end; end; METOD ------------- To call DayOfTips: function Execute: boolean = Procedure TForm1.BtnCallDOT(Sender: TObject); begin DayOfTips1.Execute; end; Code exemple in file zip= DemoDOT.zip. INSTALATION ------------------- Principal file = Dayot10.zip => file to download => DemoDOT.zip => DOTComp.zip => Readme.txt => Inform.doc Subfiles = DemoDOT.zip => single exemple => DayOfTips.dpr => Main.pas => Main.dfm => DayOfTips.res => DOTTips.reg = DOTComp.zip => component files => DayOfTips.dcu => DayOfTips.dcr => FormDayOfTips.dcu => FormDayOfTips.dfm Copy to directory Lib of the Delphi 2 this files: DayOfTips.dcu DayOfTips.dcr FormDayOfTips.dcu FormDayOfTips.dfm In Delphi, select Component, Install, Add, Browse; Select type files = Unit file (*.dcu); Select DayOfTips.dcu; Delphi now, compile the component in folder FT, in Component palette. Open program exemple to see DayOfTips in action, and your possibities COMPONENT ----------------- PROPERTIES: About...................Message about component - no effects BackColorTips...........Color to background tips BtnCloseCaption.........Caption for bitbtn 'Close' BtnNextCaption..........Caption for bitbtn 'Next' Caption.................Caption for DayOfTips Header1.................Caption for header1 of the tips Header2.................Caption for header2 of the tips Header3.................Caption for header3 of the tips Header4.................Caption for header4 of the tips Name....................Name of the component in project SaveRegisterKey.........Key to save information of 'ShowAtStartup' SaveShowAtStatup........Save or not in register ShowAtStartupCaption....Caption for checkbox 'Show this tips in next.. Tag.....................Tag TipsList................The tips (TStringlist) For more informations, see file Inform.doc. MISCELANIOUS -------------------- THIS COMPONENT IS FREEWARE. INSTALATION AND USE FOR YOU RISK ONLY. WARNING======> NO TESTED IN DELPHI 1.0 RELEASE 1.00 - 08/24/97 COPYRIGHT ) 1997 FREDERICO TORMINN - BRAZIL EMAIL= torminn@ldc.com.br COMMENTS, SUGESTIONS, PLEASE SEND EMAIL THANK YOU!!!!!!!!!!!!! Fred. * I am sorry! Im not speak english!