diff options
Diffstat (limited to 'plugins/Actman/iac_contact.pas')
-rw-r--r-- | plugins/Actman/iac_contact.pas | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/plugins/Actman/iac_contact.pas b/plugins/Actman/iac_contact.pas index ffcfd47bd5..bf19f02020 100644 --- a/plugins/Actman/iac_contact.pas +++ b/plugins/Actman/iac_contact.pas @@ -27,7 +27,7 @@ type contact:TMCONTACT;
public
constructor Create(uid:dword);
-// function Clone:tBaseAction; override;
+
function DoAction(var WorkData:tWorkData):LRESULT; override;
procedure Save(node:pointer;fmt:integer); override;
procedure Load(node:pointer;fmt:integer); override;
@@ -41,15 +41,6 @@ begin contact:=0;
end;
-{
-function tContactAction.Clone:tBaseAction;
-begin
- result:=tContactAction.Create(0);
- Duplicate(result);
-
- tContactAction(result).contact:=contact;
-end;
-}
//----- Object realization -----
@@ -82,14 +73,6 @@ begin case fmt of
0: if (flags and ACF_GETACTIVE)=0 then
contact:=LoadContact(DBBranch,node);
-
- 1: begin
- contact:=ImportContact(HXML(node));
- if StrToInt(xmlGetAttrValue(HXML(node),ioKeepOnly))=1 then
- flags:=flags or ACF_KEEPONLY;
- if StrToInt(xmlGetAttrValue(HXML(node),ioWindow))=1 then
- flags:=flags or ACF_GETACTIVE;
- end;
end;
end;
|