Index: VerpakkingsDefinitie/UI/ProductMetaScherm.pas
===================================================================
diff -u -r607 -r608
--- VerpakkingsDefinitie/UI/ProductMetaScherm.pas	(.../ProductMetaScherm.pas)	(revision 607)
+++ VerpakkingsDefinitie/UI/ProductMetaScherm.pas	(.../ProductMetaScherm.pas)	(revision 608)
@@ -15,18 +15,21 @@
     GroupBox1: TGroupBox;
     GroupBox2: TGroupBox;
     ListViewMetas: TListView;
-    Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure Button1Click(Sender: TObject);
+    procedure ComboBoxGroepChange(Sender: TObject);
+    procedure ListViewMetasClick(Sender: TObject);
+    procedure ListViewMetasSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
   private
     FNavigator: INavigator;
     FApplicationContext: TApplicationContext;
     FProductsAgent: TProductsAgent;
     procedure ToonGroepen();
+    procedure ToonMetaDatas();
     procedure VerwerkProductAgentCall();
   public
     Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext;
-      ProductsAgent: TProductsAgent);
+      ProductsAgent: TProductsAgent); reintroduce;
   end;
 
 implementation
@@ -74,6 +77,42 @@
   end;
 end;
 
+procedure TFormVerpakkingMeta.ComboBoxGroepChange(Sender: TObject);
+begin
+  if ComboBoxGroep.ItemIndex < 0 then
+    exit;
+
+  // Productgroep geselecteerd, meta data's inladen.
+  FProductsAgent.LaadProductVerpakkingMetas(ComboBoxGroep.Items[ComboBoxGroep.ItemIndex], FApplicationContext.UserContext,
+    FApplicationContext.ProductVerpakkingMetaContext);
+  VerwerkProductAgentCall();
+
+  ToonMetaDatas();
+end;
+
+procedure TFormVerpakkingMeta.ToonMetaDatas();
+var
+  Meta: TProductVerpakkingMeta;
+begin
+  ListViewMetas.Items.BeginUpdate;
+  ListViewMetas.Items.clear();
+  for Meta in FApplicationContext.ProductVerpakkingMetaContext.Metas do
+  begin
+    with ListViewMetas.Items.Add do
+    begin
+      Caption := Meta.Name;
+      Data := Meta;
+    end;
+  end;
+  ListViewMetas.Items.EndUpdate;
+end;
+
+procedure TFormVerpakkingMeta.ListViewMetasSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean);
+begin
+  // Registreer binnen agent
+
+end;
+
 procedure TFormVerpakkingMeta.VerwerkProductAgentCall();
 var
   ErrorMessage: string;