Index: VerpakkingsDefinitie/UI/ProductDetailScherm.pas =================================================================== diff -u -r589 -r590 --- VerpakkingsDefinitie/UI/ProductDetailScherm.pas (.../ProductDetailScherm.pas) (revision 589) +++ VerpakkingsDefinitie/UI/ProductDetailScherm.pas (.../ProductDetailScherm.pas) (revision 590) @@ -48,12 +48,9 @@ ButtonMeta: TButton; PanelVerpakkingControls: TPanel; Label3: TLabel; - Button1: TButton; EditVolumeVan: TEdit; Label14: TLabel; - Label15: TLabel; ComboBoxOptiType: TComboBox; - ComboBoxBoxSelect: TComboBox; LabelProductNummer: TLabel; Label17: TLabel; ScrollBoxParameters: TScrollBox; @@ -193,6 +190,8 @@ // Linkerhelft EditMeta.Text := ProductVerpakking.MetaCaptionDisplay; + EditVolumeVan.Text := ProductVerpakking.VolumeVanCaption; + // DeelVan ComboBoxDeelVan.Items.Clear(); // ComboBox vullen en item selecteren. @@ -252,6 +251,10 @@ // Richting LaadEnSelecteerWaardenCheckComboBox(ApplicationContext.UiInstellingenContext.Richtingen, CheckComboBoxRichting, ProductVerpakking.Richtingen, ProductVerpakking.DefaultRichtingen, ApplicationContext.UiInstellingenContext.Richtingen); + + // OptiType + LaadEnSelecteerWaardenComboBox(ApplicationContext.UiInstellingenContext.OptiTypes, ComboBoxOptiType, ProductVerpakking.OptiType, + ProductVerpakking.DefaultOptiType, ApplicationContext.UiInstellingenContext.OptiTypes); end; procedure TFormProductDetail.LaadEnSelecteerWaardenComboBox(Waarden: TDictionary; ComboBox: TComboBox;