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

tvplanit: Fix typo when saving 2nd website specification of contact

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5178 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-18 09:50:12 +00:00
parent 2308c5a890
commit 9b1bdfb9c9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2212,7 +2212,7 @@ end;
procedure TVpContact.SetWebsite2(Value: String); procedure TVpContact.SetWebsite2(Value: String);
begin begin
if Value <> FWebsite1 then begin if Value <> FWebsite2 then begin
FWebsite2 := Value; FWebsite2 := Value;
Changed := true; Changed := true;
end; end;
@ -2229,7 +2229,7 @@ end;
procedure TVpContact.SetWebsiteType2(Value: Integer); procedure TVpContact.SetWebsiteType2(Value: Integer);
begin begin
if Value <> FWebsiteType2 then begin if Value <> FWebsiteType2 then begin
FWebsiteType1 := Value; FWebsiteType2 := Value;
Changed := true; Changed := true;
end; end;
end; end;