diff --git a/components/aboutcomponent/aboutcomponentunit.pas b/components/aboutcomponent/aboutcomponentunit.pas index 178917648..b3e3bd488 100644 --- a/components/aboutcomponent/aboutcomponentunit.pas +++ b/components/aboutcomponent/aboutcomponentunit.pas @@ -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 TAboutComponent = class(TComponent) diff --git a/components/aboutcomponent/readme.txt b/components/aboutcomponent/readme.txt index e9d7afbf2..277224b56 100644 --- a/components/aboutcomponent/readme.txt +++ b/components/aboutcomponent/readme.txt @@ -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 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 (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