Index: AAPClient/UI/DrieKnoppenScherm.pas
===================================================================
diff -u -r148 -r150
--- AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 148)
+++ AAPClient/UI/DrieKnoppenScherm.pas	(.../DrieKnoppenScherm.pas)	(revision 150)
@@ -42,11 +42,12 @@
     procedure imgCentraalOnderClick(Sender: TObject);
     procedure imgRechtsOnderClick(Sender: TObject);
   private
-    fImagesScherm: TImagesScherm;
     fUiContext: TUiContext;
   protected
+    fImagesScherm: TImagesScherm;
     function ComputerName: String;
     function WUserName: String;
+    function FullName: String;
     function ToonPopupScherm(Melding, Actie1: String; Actie2: String = ''; isVraag: boolean = false; ImageIndex1: integer = -1; ImageIndex2: integer = -1): TModalResult;
   public
     property UiContext: TUiContext Read fUiContext Write fUiContext;
@@ -99,6 +100,11 @@
   
 end;
 
+function TfmDrieKnoppenScherm.FullName: String;
+begin
+  Result := ComputerName + ' / ' + WUserName;
+end;
+
 procedure TfmDrieKnoppenScherm.imgLinksOnderClick(Sender: TObject);
 begin
   if btnLinksOnder.Action<>nil then begin