pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Make TVpControlLink.Attach and .Detach public.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8361 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-07-21 22:13:41 +00:00
parent 02a881fd02
commit c5ac251a79
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/source/vpbaseds.pas
View File

@ -416,8 +416,6 @@ type
FCityStateZipFormat: String; FCityStateZipFormat: String;
protected{private} protected{private}
DependentList: TList; DependentList: TList;
procedure Attach (Sender : TComponent);
procedure Detach (Sender : TComponent);
procedure ReleaseDependents; procedure ReleaseDependents;
procedure SetCityStateZipFormat(const Value: String); procedure SetCityStateZipFormat(const Value: String);
procedure SetDataStore (const Value : TVpCustomDataStore); procedure SetDataStore (const Value : TVpCustomDataStore);
@ -427,6 +425,8 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure Attach(Sender: TComponent);
procedure Detach(Sender: TComponent);
function GetDependentList : TList; function GetDependentList : TList;
procedure LoadLocalizationInfo (const FileName : string); procedure LoadLocalizationInfo (const FileName : string);
procedure Notify (Sender: TComponent; NotificationType: TVpNotificationType; const Value: Variant); procedure Notify (Sender: TComponent; NotificationType: TVpNotificationType; const Value: Variant);