Index: VerpakkingsDefinitie/UI/GebruikerScherm.pas =================================================================== diff -u -r555 -r556 --- VerpakkingsDefinitie/UI/GebruikerScherm.pas (.../GebruikerScherm.pas) (revision 555) +++ VerpakkingsDefinitie/UI/GebruikerScherm.pas (.../GebruikerScherm.pas) (revision 556) @@ -6,7 +6,7 @@ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, ObserverPattern, - Agent, Main, ApplicationContext, Subscherm; + UserAgent, Main, ApplicationContext, Subscherm; type TFormGebruiker = class(TFormSubscherm) @@ -20,19 +20,19 @@ private FGebruikerSubject: TSubject; FGebruikerSubjectObserver: TSubjectObserver; - FUserAgent: TAgent; + FUserAgent: TUserAgent; procedure UpdateGui(Sender: TObject); public Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; - GebruikerSubject: TSubject; UserAgent: TAgent); + GebruikerSubject: TSubject; UserAgent: TUserAgent); end; implementation {$R *.dfm} constructor TFormGebruiker.Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext; - GebruikerSubject: TSubject; UserAgent: TAgent); + GebruikerSubject: TSubject; UserAgent: TUserAgent); begin inherited Create(AOwner, Navigator, ApplicationContext); self.FGebruikerSubject := GebruikerSubject; @@ -54,14 +54,14 @@ procedure TFormGebruiker.UpdateGui(Sender: TObject); begin // Update with data from ApplicationContext - LabelGebruikersnaam.Caption := self.ApplicationContext.UserServerServiceContext.GebruikersNaam; + LabelGebruikersnaam.Caption := self.ApplicationContext.UserContext.GebruikersNaam; end; // Indrukken van button simuleren op panel: http://www.festra.com/wwwboard/messages/1006.html procedure TFormGebruiker.PanelLogInClick(Sender: TObject); begin try - FUserAgent.GebruikerAfmelden(self.ApplicationContext.UserServerServiceContext); + FUserAgent.GebruikerAfmelden(self.ApplicationContext.UserContext); finally // Als logout mislukt, gewoon naar inlog scherm gaan. De gebruiker kan dan opnieuw inloggen. self.Navigator.NavigeerNaar(Main.NAVLOGIN);