Index: AAPClient/UI/DnaCodeScherm.pas
===================================================================
diff -u -r217 -r225
--- AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 217)
+++ AAPClient/UI/DnaCodeScherm.pas	(.../DnaCodeScherm.pas)	(revision 225)
@@ -13,24 +13,24 @@
     lblScancode: TLabel;
     edtDnaCode: TEdit;
     lblHuidigePalletData: TLabel;
-    lblLaatstGescand: TLabel;
     lblLaatstGescandData: TLabel;
     lblAantalGescand: TLabel;
     lblTotaalAantal: TLabel;
     lblSlash: TLabel;
     imgDirecteLevering: TImage;
-    lblHuidigePallet: TLabel;
     lblScanPallet: TLabel;
-    lblToelevering: TLabel;
-    imgInfo: TImage;
     imgWegwerpPallet: TImage;
+    btnInfo: TButton;
+    imgToelevering: TImage;
+    imgPallet: TImage;
+    imgLaatstGescand: TImage;
     procedure FormShow(Sender: TObject);
     procedure actPalletExecute(Sender: TObject);
     procedure actHomeExecute(Sender: TObject);
     procedure actAfrondenExecute(Sender: TObject);
     procedure edtDnaCodeKeyPress(Sender: TObject; var Key: Char);
     procedure FormCreate(Sender: TObject);
-    procedure imgInfoClick(Sender: TObject);
+    procedure btnInfoClick(Sender: TObject);
   private
     fImagesScherm: TImagesScherm;
     procedure MeldDnaCodeAf();
@@ -40,6 +40,7 @@
     function BepaalAantalLadesOpHuidigePallet: integer;
     function BepaalDirecteLevering: boolean;
     procedure PalletBijwerken(Status: DnaCodeStatus; IsDirecteLevering: boolean);
+    procedure ZetIcoontjesBovenaan;
   public
   end;
 
@@ -120,6 +121,17 @@
   end;
 end;
 
+procedure TfmDnaCodeScherm.btnInfoClick(Sender: TObject);
+begin
+  inherited;
+  if UiContext.Toelevering = '' then
+    Self.ModalResult := mrDnaCode
+  else begin
+    UiContext.InfoLogSchermToonGescand := true;
+    Self.ModalResult := mrInfoLog;
+  end;
+end;
+
 procedure TfmDnaCodeScherm.actAfrondenExecute(Sender: TObject);
 var
   fWaarschuwingModalResult: TModalResult;
@@ -171,29 +183,21 @@
   lblToeleveringData.Caption := UiContext.Toelevering;
   lblAantalGescand.Caption := '';
   lblTotaalAantal.Caption := '';
-  imgInfo.Visible := false;
-  fImagesScherm.ilAlgemeen64.GetIcon(1, imgInfo.Picture.Icon);
+  btnInfo.Visible := false;
+  fImagesScherm.ilAlgemeen64.GetIcon(8, imgToelevering.Picture.Icon);
+  fImagesScherm.ilAlgemeen64.GetIcon(9, imgPallet.Picture.Icon);
+  fImagesScherm.ilAlgemeen64.GetIcon(10, imgLaatstGescand.Picture.Icon);
   if not (UiContext.Toelevering = '') then
     ToeleveringDataOphalen()
   else begin
     imgDirecteLevering.Visible := false;
     imgWegwerpPallet.Visible := false;
   end;
+  ZetIcoontjesBovenaan;
 
   inherited;
 end;
 
-procedure TfmDnaCodeScherm.imgInfoClick(Sender: TObject);
-begin
-  inherited;
-  if UiContext.Toelevering = '' then
-    Self.ModalResult := mrDnaCode
-  else begin
-    UiContext.InfoLogSchermToonGescand := true;
-    Self.ModalResult := mrInfoLog;
-  end;
-end;
-
 procedure TfmDnaCodeScherm.MeldDnaCodeAf;
 var
   Response: DnaCodeAfmeldenResponse;
@@ -209,10 +213,10 @@
     case strtoint(List[0]) of
        200:  begin
                UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
-               lblToeleveringData.Caption := UiContext.Toelevering;
                lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
                lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-               imgInfo.Visible := true;
+               btnInfo.Visible := true;
+               ZetIcoontjesBovenaan;
                VerwerkMogelijkePopups(Response.DnaCodes[0]);
                Self.ModalResult := mrDnaCode;
              end;
@@ -258,10 +262,10 @@
       ToonPopupScherm(Response.Header.Omschrijving, 'Probeer opnieuw')
     end else begin
       UiContext.Toelevering := Response.DnaCodes[0].Toelevering;
-      lblToeleveringData.Caption := UiContext.Toelevering;
       lblAantalGescand.Caption := IntToStr(Response.AantalReedsGescand);
       lblTotaalAantal.Caption := IntToStr(Response.AantalInToelevering);
-      imgInfo.Visible := true;
+      btnInfo.Visible := true;
+      ZetIcoontjesBovenaan;
       VerwerkMogelijkePopups(Response.DnaCodes[0]);
       Self.ModalResult := mrDnaCode;
     end;
@@ -291,6 +295,32 @@
   end;
 end;
 
+procedure TfmDnaCodeScherm.ZetIcoontjesBovenaan;
+begin
+  if UiContext.Pallet = '' then begin
+     lblHuidigePalletData.Caption := '';
+     imgPallet.Visible := false;
+  end else begin
+     lblHuidigePalletData.Caption := UiContext.Pallet;
+     imgPallet.Visible := true;
+  end;
+  if UiContext.Toelevering = '' then begin
+     lblToeleveringData.Caption := '';
+     imgToelevering.Visible := false;
+  end else begin
+     lblToeleveringData.Caption := UiContext.Toelevering;
+     imgToelevering.Visible := true;
+  end;
+  if UiContext.LaatsteDnaCode = '' then begin
+     lblLaatstGescandData.Caption := '';
+     imgLaatstGescand.Visible := false;
+  end else begin
+     lblLaatstGescandData.Caption := UiContext.LaatsteDnaCode;
+     imgLaatstGescand.Visible := true;
+  end;
+
+end;
+
 procedure TfmDnaCodeScherm.ZetToeleveringStatus(Status: DnaCodeStatus);
 var
   Response: ToeleveringBijwerkenResponse;