============================================================
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=
[email protected]
COMMENTS, SUGESTIONS, PLEASE SEND EMAIL
THANK YOU!!!!!!!!!!!!!
Fred.
* I am sorry! Im not speak english!