Commit ecc88919 by Michael Brachmann

fix

parent de3be6aa
......@@ -78,7 +78,7 @@ var
procedure OnDeviceUser(AUsername, AAgency: string);
var
passkeyHandler: TJSEventHandler;
passkeyHandler: TJSRawEventHandler;
begin
FAutoUsername := AUsername;
FAutoAgency := AAgency;
......@@ -111,7 +111,7 @@ var
}
end;
passkeyHandler := procedure(Event: TJSEvent)
passkeyHandler := procedure
var
onBeginOK: TOnBeginSuccess;
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