Index: VerpakkingsDefinitie/Main.pas =================================================================== diff -u -r556 -r557 --- VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 556) +++ VerpakkingsDefinitie/Main.pas (.../Main.pas) (revision 557) @@ -7,7 +7,7 @@ Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, - ApplicationContext, UserAgent, ProductAgent; + ApplicationContext, UserAgent, ProductsAgent; const NAVHOME = 0; @@ -22,7 +22,7 @@ private FAppContext: TApplicationContext; FUserAgent: TUserAgent; - FProductAgent: TProductAgent; + FProductAgent: TProductsAgent; procedure FreeControlChildrenRec(AControl: TControl); procedure ConfigureerLayoutGridPanel(GridPanel: TGridPanel); procedure PlaatsControlOpGrid(GridPanel: TGridPanel; Control: TControl; RowI: Integer; ColI: Integer; RowSpan: Integer = 1; @@ -51,7 +51,7 @@ begin FAppContext := TApplicationContext.Create(); FUserAgent := TUserAgent.Create(); - FProductAgent := TProductAgent.Create(); + FProductAgent := TProductsAgent.Create(); { TODO -cMain: Wat doet dit in de originele applicatie?: fUiContext.ImagesScherm := TImagesScherm.Create(self); } { TODO -cMain: Kijken of "VerwerkParamStrings;" nodig is } PanelMain.Parent := Self;