Index: VerpakkingsDefinitie/UI/GevondenProductenScherm.pas =================================================================== diff -u -r594 -r595 --- VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 594) +++ VerpakkingsDefinitie/UI/GevondenProductenScherm.pas (.../GevondenProductenScherm.pas) (revision 595) @@ -21,6 +21,7 @@ FProductSubject: TSubject; FSubjectObserver: TSubjectObserver; FProductsAgent: TProductsAgent; + procedure UpdateGui(Sender: TObject); public Constructor Create(AOwner: TComponent; Navigator: INavigator; ApplicationContext: TApplicationContext; @@ -55,12 +56,12 @@ procedure TFormGevondenProducten.ListViewProductenSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin - if (Selected = false) or (Item = nil) or (Item.Data = nil) then + if Selected = false then exit; - // Product selectie registreren. Observatie uitzetten want dit scherm zet de selectie, reageert er niet op. + + // Product selectie registreren.Observatie uitzetten want dit scherm zet de selectie, reageert er niet op. self.FSubjectObserver.Enabled := false; ApplicationContext.ProductsContext.GeselecteerdProduct := Item.Data; - ApplicationContext.ProductsContext.NotifyChanged(); { TODO : Vervangen door notify changed in setter } self.FSubjectObserver.Enabled := True; self.Navigator.NavigeerNaar(NAVTOONPRODUCT); @@ -86,10 +87,7 @@ Data := Product; end; end; - ListViewProducten.Items.EndUpdate; - - // Bij opnieuw inladen is de selectie verloren gegaan. - self.ApplicationContext.ProductVerpakkingContext.Reset(); + ListViewProducten.Items.EndUpdate(); end; end.