Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas
===================================================================
diff -u -r597 -r598
--- VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 597)
+++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas	(.../ProductDetailScherm.pas)	(revision 598)
@@ -43,7 +43,6 @@
     procedure UpdateGuiVerpakkingen(Sender: TObject);
     procedure LaadProductVerpakkingen(GeselecteerdProduct: TProductInformatie);
     procedure UpdateVerpakkingControlsEnableStatus();
-    procedure UpdateGuiProductAanwezigheid(Aanwezig: Boolean);
   public
     Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
       ProductsContextSubject: TSubject; VerpakkingContextSubject: TSubject; ProductsAgent: TProductsAgent);
@@ -90,7 +89,7 @@
   GeselecteerdProduct := ApplicationContext.ProductsContext.GeselecteerdProduct;
   if GeselecteerdProduct = nil then
   begin
-    UpdateGuiProductAanwezigheid(False);
+    TUtil.ToonLabelOverScherm(self, LabelGeenData, GEEN_DATA_CAPTION, False);
     exit;
   end;
 
@@ -102,7 +101,7 @@
   LabelProductNaam.Caption := GeselecteerdProduct.Kol1;
   LabelProductNummer.Caption := intToStr(GeselecteerdProduct.ProductNr);
 
-  UpdateGuiProductAanwezigheid(True);
+  TUtil.ToonLabelOverScherm(self, LabelGeenData, GEEN_DATA_CAPTION, true);
 
   // Verpakkingen opzoeken horende bij dit geselecteerde product
   LaadProductVerpakkingen(GeselecteerdProduct);
@@ -140,7 +139,7 @@
       FVerpakkingenContextSubjectObserver.Enabled := False;
       ApplicationContext.ProductVerpakkingContext.GeselecteerdeVerpakking :=
         TProductVerpakking(ListViewVerpakkingen.Selected.Data);
-      FVerpakkingenContextSubjectObserver.Enabled := True;
+      FVerpakkingenContextSubjectObserver.Enabled := true;
     end;
 
     Navigator.NavigeerNaar(NAVTOONPRODUCTVERPAKKING);
@@ -163,8 +162,8 @@
       // Caption := IntToStr(Product.ProductNr); // Deze casting geeft geen access violation
       Caption := intToStr(ProductVerpakking.CutOrder);
       SubItems.Add(ProductVerpakking.MetaCaptionDisplay);
-      SubItems.Add(intToStr(ProductVerpakking.Breedte) + ' x ' + intToStr(ProductVerpakking.Diepte) + ' x ' +
-          intToStr(ProductVerpakking.Hoogte));
+      SubItems.Add(ProductVerpakking.BreedteDisplay + ' x ' + ProductVerpakking.DiepteDisplay + ' x ' +
+          ProductVerpakking.HoogteDisplay);
       SubItems.Add(ProductVerpakking.Aantal);
       SubItems.Add(ProductVerpakking.MaxCombinAantal);
       SubItems.Add(ProductVerpakking.DeelVanCaption);
@@ -200,47 +199,4 @@
   ButtonVerwijder.Enabled := VerpakkingAanwezigEnGeselecteerd;
 end;
 
-procedure TFormProductDetail.UpdateGuiProductAanwezigheid(Aanwezig: Boolean);
-var
-  I: Integer;
-begin
-  if Aanwezig then
-  begin
-    // Skip update als alles al zichtbaar staat.
-    if Assigned(LabelGeenData) = False then
-      exit;
-
-    // Wel resultaten, toon alles.
-    for I := 0 to self.ControlCount - 1 do
-      if Assigned(self.Controls[I]) then
-        self.Controls[I].Visible := True;
-
-    LabelGeenData.Visible := False;
-    FreeAndNil(LabelGeenData);
-  end
-  else
-  begin
-    // Skip update als melding al getoond wordt en alles onzichtbaar staat.
-    if Assigned(LabelGeenData) then
-      exit;
-
-    // Geen resultaten, verberg kinderen, toon melding (label) en stop.
-    for I := 0 to self.ControlCount - 1 do
-      if Assigned(self.Controls[I]) then
-        self.Controls[I].Visible := False;
-    // Label tonen
-    LabelGeenData := TLabel.Create(self);
-    with LabelGeenData do
-    begin
-      Parent := self;
-      Caption := GEEN_DATA_CAPTION;
-      Font.Size := 15;
-      // Centreren: https://stackoverflow.com/questions/18545937/make-a-component-appear-in-the-middle-of-form-no-matter-what-screen-resolution
-      Left := (self.Width - Width) div 2;
-      Top := (self.Height - Height) div 2;
-      Anchors := []; // Relatief tegenover parent
-    end;
-  end
-end;
-
 end.