Commit ecc88919 by Michael Brachmann

fix

parent de3be6aa
...@@ -78,7 +78,7 @@ var ...@@ -78,7 +78,7 @@ var
procedure OnDeviceUser(AUsername, AAgency: string); procedure OnDeviceUser(AUsername, AAgency: string);
var var
passkeyHandler: TJSEventHandler; passkeyHandler: TJSRawEventHandler;
begin begin
FAutoUsername := AUsername; FAutoUsername := AUsername;
FAutoAgency := AAgency; FAutoAgency := AAgency;
...@@ -111,7 +111,7 @@ var ...@@ -111,7 +111,7 @@ var
} }
end; end;
passkeyHandler := procedure(Event: TJSEvent) passkeyHandler := procedure
var var
onBeginOK: TOnBeginSuccess; onBeginOK: TOnBeginSuccess;
onBeginErr: TOnLoginError; onBeginErr: TOnLoginError;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment