Assert check that a DynControlEngine Implementation Unit is used and …

…the default engine is assigned
project-jedi · Jan 25, 2012 · fa9c397 · fa9c397
1 parent ac90f13
commit fa9c397
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/jvcl/run/JvDynControlEngine.pas b/jvcl/run/JvDynControlEngine.pas
@@ -970,6 +970,7 @@ procedure SetDefaultDynControlEngine(AEngine: TJvDynControlEngine);
 
 function DefaultDynControlEngine: TJvDynControlEngine;
 begin
+  Assert(Assigned(GlobalDefaultDynControlEngine),'JvDynControlEngine: DefaultDynControlEngine not definded');
   Result := GlobalDefaultDynControlEngine;
 end;
 

diff --git a/jvcl/run/JvDynControlEngineDB.pas b/jvcl/run/JvDynControlEngineDB.pas
@@ -587,6 +587,7 @@ procedure SetDefaultDynControlEngineDB(AEngine: TJvDynControlEngineDB);
 
 function DefaultDynControlEngineDB: TJvDynControlEngineDB;
 begin
+  Assert(Assigned(GlobalDefaultDynControlEngineDB),'JvDynControlEngineDB: DefaultDynControlEngineDB not definded');
   Result := GlobalDefaultDynControlEngineDB;
 end;