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

tvplanit: Fix ini datastore not being connected if AutoConnect=true.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5065 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-08-01 19:41:27 +00:00
parent 670cc99cf1
commit d5fb5a417e
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/source/vpinids.pas
View File

@ -33,6 +33,7 @@ type
procedure Split(const AString: String; AList: TStrings);
function UniqueID(AValue: Integer): Boolean;
procedure Loaded; override;
procedure ReadFromIni;
procedure WriteToIni;
@ -332,6 +333,13 @@ begin
// Nothing to do here...
end;
procedure TVpIniDatastore.Loaded;
begin
inherited;
if not (csDesigning in ComponentState) then
Connected := AutoConnect;
end;
procedure TVpIniDatastore.LoadEvents;
begin
// Nothing to do here...