{
Encode full sensor click information into long string...
}
function EncodeClick:String;
begin
 EncodeClick:='@Click'+CRLF
             +'Button='+ClickParams('Button')+CRLF
             +'Sensor='+ClickParams('Sensor')+CRLF
             +'Device='+ClickParams('Device')+CRLF
             +'Window='+ClickParams('Window')+CRLF
             +'Value='+ClickParams('Value')+CRLF
             +'Curve='+ClickParams('Curve')+CRLF
             +'Tag='+ClickParams('Tag')+CRLF
             +'Guard='+ParamStr('Guard')+CRLF
             +'User='+ParamStr('UserName')+CRLF
             +'Host='+ParamStr('HostName')+CRLF
             +'IP='+ParamStr('IPAddress')+CRLF
             +'MAC='+ParamStr('MACAddress')+CRLF;
end;
{
Encode full sensor click information into long string...
}
function ComposeClick(Button:Integer;
         Device,Window,Sensor,Value,Curve,Tag,NewValue:String):String;
begin
 ComposeClick:='@Click'+CRLF
              +'Button='+Str(Button)+CRLF
              +'Sensor='+Sensor+CRLF
              +'Device='+Device+CRLF
              +'Window='+Window+CRLF
              +'Value='+Value+CRLF
              +'Curve='+Curve+CRLF
              +'Tag='+Tag+CRLF
              +'Guard='+ParamStr('Guard')+CRLF
              +'User='+ParamStr('UserName')+CRLF
              +'Host='+ParamStr('HostName')+CRLF
              +'IP='+ParamStr('IPAddress')+CRLF
              +'MAC='+ParamStr('MACAddress')+CRLF
              +'NewValue='+NewValue+CRLF;
end;
{
Encode simulated click...
}
function SimulateClick(aClickTag:Integer):String;
var s:String;
begin
 s:='@Click'+CRLF;
 s:=s+'Button='+ClickParams('Button')+CRLF;
 s:=s+'Sensor='+ClickParams('Sensor')+CRLF;
 s:=s+'Device='+ClickParams('Device')+CRLF;
 s:=s+'Window='+ClickParams('Window')+CRLF;
 if TypeTag(aClickTag)=1 then s:=s+'Value='+Str(iGetTag(aClickTag))+CRLF else
 if TypeTag(aClickTag)=2 then s:=s+'Value='+Str(rGetTag(aClickTag))+CRLF else
 if TypeTag(aClickTag)=3 then s:=s+'Value='+sGetTag(aClickTag)+CRLF else s:=s+'Value='+CRLF;
 s:=s+'Curve='+ClickParams('Curve')+CRLF;
 s:=s+'Tag='+NameTag(aClickTag)+CRLF;
 s:=s+'Guard='+ParamStr('Guard')+CRLF;
 s:=s+'User='+ParamStr('UserName')+CRLF;
 s:=s+'Host='+ParamStr('HostName')+CRLF;
 s:=s+'IP='+ParamStr('IPAddress')+CRLF;
 s:=s+'MAC='+ParamStr('MACAddress')+CRLF;
 SimulateClick:=s;
 s:='';
end;

