Index: VerpakkingsDefinitie/UI/Subscherm.pas =================================================================== diff -u -r552 -r555 --- VerpakkingsDefinitie/UI/Subscherm.pas (.../Subscherm.pas) (revision 552) +++ VerpakkingsDefinitie/UI/Subscherm.pas (.../Subscherm.pas) (revision 555) @@ -17,7 +17,7 @@ FApplicationContext: TApplicationContext; protected property Navigator: TFormMain Read FNavigator write FNavigator; - property ApplicationContextObj: TApplicationContext Read FApplicationContext write FApplicationContext; + property ApplicationContext: TApplicationContext Read FApplicationContext write FApplicationContext; public Constructor Create(AOwner: TComponent; Navigator: TFormMain; ApplicationContext: TApplicationContext); overload; end; @@ -29,7 +29,7 @@ inherited Create(AOwner); Self.Navigator := Navigator; - Self.ApplicationContextObj := ApplicationContext; + Self.ApplicationContext := ApplicationContext; BorderStyle := bsNone; // Subschermen hebben geen border end;