You've already forked lazarus-ccr
7285408764
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7316 8e941d3f-bd1b-0410-a28a-d453659cc2b4
35 lines
941 B
Plaintext
35 lines
941 B
Plaintext
SplashAbout component for Lazarus
|
|
minesadorada@charcodelvalle.com
|
|
============================
|
|
|
|
Installation
|
|
========
|
|
Make a new folder 'splashabout' in your lazarus/components folder
|
|
Copy the contents of the zip file into it
|
|
In Lazarus, choose the menu 'Package/Install/Uninstall Packages'
|
|
From the right-hand column, select 'splashabout 1.0' and click 'Install selection'
|
|
|
|
Lazarus will ask you whether to 'recompile the IDE' - answer 'yes'
|
|
|
|
When all is done, click the 'Additional' component palette to see the SplashAbout component.
|
|
|
|
Use
|
|
===
|
|
Add the component to your form (SplashAbout1)
|
|
|
|
To show a splash screen:
|
|
In the FormCreate event, use this code:
|
|
procedure TForm1.FormCreate(Sender: TObject);
|
|
begin
|
|
SplashAbout1.ShowSplash;
|
|
end;
|
|
|
|
To show the 'About' dialog, use this code:
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
SplashAbout1.ShowAbout;
|
|
end;
|
|
|
|
Tweaking
|
|
=======
|
|
See the 'testapp' example project to experiment |