paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bugfix - forward declaration of TAboutBox added

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3518 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
gbamber 2014-09-03 11:11:54 +00:00
parent 7b4c45732b
commit 1235455ce1
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/aboutcomponent/aboutcomponentunit.pas
View File

@ -36,7 +36,7 @@ const
type
TLicenseType = (abNone, abGPL, abLGPL, abMIT, abModifiedGPL, abProprietry);
tAboutBox=Class; // Forward declaration
// Do Search/Replace to change all instances of TAboutComonent
// to TAbout<yourcomponentname>
TAboutComponent = class(TComponent)

3
components/aboutcomponent/readme.txt
View File

@ -7,8 +7,9 @@ Copy the files aboutcomponentunit.pas and license.lrs to your component director
2 ) In the pas file rename the Unit to match (1)
3 ) Open the renamed pas file and do Search/Replace to change all instances of "TAboutComponent" to TAbout<yourcomponentname>
4 ) In the line TAboutComponent = Class(TComponent), change the ancestor to your component's ancestor (if it's not TComponent)
5 ) Add the edited pas file to your component's package
5 ) Add the edited aboutcomponentunit.pas file to your component's package
6 ) In your component's class declaration, change it's ancestor to TAbout<yourcomponentname> (from step 3)
7 ) Add the edited aboutcomponentunit to the uses list in the implementation section of your component .pas file
7 ) Compile, install and see the new clickable 'About' property in your component!
Configuring the About property dialog