Index: AAPClient/ProScanMain.pas
===================================================================
diff -u -r219 -r240
--- AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 219)
+++ AAPClient/ProScanMain.pas	(.../ProScanMain.pas)	(revision 240)
@@ -4,26 +4,21 @@
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
-  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList, UiContext, Vcl.AppEvnts;
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ActnList, UiContext, Vcl.AppEvnts,
+  Vcl.ComCtrls, Vcl.ExtCtrls;
 
 type
   TfmProScanHoofdscherm = class(TForm)
+    pcMain: TPageControl;
     procedure FormCreate(Sender: TObject);
     procedure FormActivate(Sender: TObject);
   private
     fUiContext: TUiContext;
     fHuidigScherm: TForm;
-    fLoginScherm2: TForm;
-    fHomeScherm: TForm;
-    fPalletScherm: TForm;
-    fBestaandePalletScherm: TForm;
-    fDnaCodeScherm: TForm;
-    fInfoLogScherm: TForm;
-    fHernoemPalletScherm: TForm;
-    fDnaCodeReedsGescandScherm: TForm;
     procedure HuidigeGebruikerAfmelden;
   public
     property UiContext: TUiContext read fUiContext;
+    procedure NavigeerNaar(mr: TModalResult);
   end;
 
 var
@@ -39,52 +34,63 @@
 {$R *.dfm}
 
 procedure TfmProScanHoofdscherm.FormActivate(Sender: TObject);
-var
-  fModalResult: TModalResult;
 begin
-  fModalResult := mrNone;
-
-  while fModalResult <> mrAbort do begin
-    (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
-    fModalResult := fHuidigScherm.ShowModal;
-    fUiContext := (fHuidigScherm as TfmDrieKnoppenScherm).UiContext;
-    fHuidigScherm.Free;
-
-    case fModalResult of
-      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(Self);
-      mrHome                : fHuidigScherm := TfmHomeScherm.Create(Self);
-      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(Self);
-      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(Self);
-      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(Self);
-      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(Self);
-      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(Self);
-      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(Self);
-    end;
-  end;
-
-  HuidigeGebruikerAfmelden;
-  Application.Terminate;
+  NavigeerNaar(mrLogin);
 end;
 
 procedure TfmProScanHoofdscherm.FormCreate(Sender: TObject);
 begin
   fUiContext := TUiContext.Create();
   fUiContext.ImagesScherm := TImagesScherm.Create(self);
-  {fLoginScherm2 := TfmLoginScherm2.Create(Self);
-  fHomeScherm := TfmHomeScherm.Create(Self);
-  fPalletScherm := TfmPalletScherm.Create(Self);
-  fBestaandePalletScherm := TfmBestaandePalletScherm.Create(Self);
-  fDnaCodeScherm := TfmDnaCodeScherm.Create(Self);
-  fInfoLogScherm := TfmInfoLogScherm.Create(Self);
-  fHernoemPalletScherm := TfmHernoemPalletScherm.Create(Self);
-  fDnaCodeReedsGescandScherm := TfmDnaCodeReedsGescandScherm.Create(Self);
-                                                     }
-  fHuidigScherm := TfmLoginScherm2.Create(Self);
+
+  if ParamStr(1)='displaymode=desktop' then begin
+    Self.BorderStyle := bsSingle;
+    Self.ClientHeight := 640;
+    Self.ClientWidth := 480;
+  end;
 end;
 
 procedure TfmProScanHoofdscherm.HuidigeGebruikerAfmelden;
 begin
   TAgent.Create(UiContext).GebruikerAfmelden();
 end;
 
+procedure TfmProScanHoofdscherm.NavigeerNaar(mr: TModalResult);
+var
+  TabSheet: TTabSheet;
+  pnlMain: TPanel;
+begin
+
+  if pcMain.PageCount > 0 then
+    pcMain.Pages[0].Free;
+  TabSheet := TTabSheet.Create(pcMain);
+  TabSheet.TabVisible := false;
+  TabSheet.PageControl := pcMain;
+  pcMain.ActivePageIndex := 0;
+
+  if mr = mrAbort then begin
+    HuidigeGebruikerAfmelden;
+    Application.Terminate;
+  end else begin
+    case mr of
+      mrLogin               : fHuidigScherm := TfmLoginScherm2.Create(TabSheet);
+      mrHome                : fHuidigScherm := TfmHomeScherm.Create(TabSheet);
+      mrPallet              : fHuidigScherm := TfmPalletScherm.Create(TabSheet);
+      mrHernoemPallet       : fHuidigScherm := TfmHernoemPalletScherm.Create(TabSheet);
+      mrBestaandePallet     : fHuidigScherm := TfmBestaandePalletScherm.Create(TabSheet);
+      mrDnaCode             : fHuidigScherm := TfmDnaCodeScherm.Create(TabSheet);
+      mrInfoLog             : fHuidigScherm := TfmInfoLogScherm.Create(TabSheet);
+      mrDnaCodeReedsGescand : fHuidigScherm := TfmDnaCodeReedsGescandScherm.Create(TabSheet);
+    end;
+
+    pnlMain := TPanel.Create(Self);
+    pnlMain.Parent := Self;
+    pnlMain.Align := alClient;
+
+    fHuidigScherm.Parent := pnlMain;
+    (fHuidigScherm as TfmDrieKnoppenScherm).UiContext := fUiContext;
+    fHuidigScherm.Show;
+  end;
+end;
+
 end.