From c5ac251a79fcf7cd96f5d3b105eb7a6087a2e9f4 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 21 Jul 2022 22:13:41 +0000
Subject: [PATCH] TvPlanIt: Make TVpControlLink.Attach and .Detach public.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8361 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpbaseds.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/tvplanit/source/vpbaseds.pas b/components/tvplanit/source/vpbaseds.pas
index 1b68ce037..ef9902c8b 100644
--- a/components/tvplanit/source/vpbaseds.pas
+++ b/components/tvplanit/source/vpbaseds.pas
@@ -416,8 +416,6 @@ type
     FCityStateZipFormat: String;
   protected{private}
     DependentList: TList;
-    procedure Attach (Sender : TComponent);
-    procedure Detach (Sender : TComponent);
     procedure ReleaseDependents;
     procedure SetCityStateZipFormat(const Value: String);
     procedure SetDataStore (const Value : TVpCustomDataStore);
@@ -425,8 +423,10 @@ type
     procedure SetLocalizationFile (const v : string);
     procedure SetPrinter (const v : TVpPrinter);
   public
-    constructor Create (AOwner: TComponent); override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure Attach(Sender: TComponent);
+    procedure Detach(Sender: TComponent);
     function GetDependentList : TList;
     procedure LoadLocalizationInfo (const FileName : string);
     procedure Notify (Sender: TComponent; NotificationType: TVpNotificationType; const Value: Variant);