File tree Expand file tree Collapse file tree 6 files changed +26
-10
lines changed
Expand file tree Collapse file tree 6 files changed +26
-10
lines changed Original file line number Diff line number Diff line change @@ -40,7 +40,9 @@ interface
4040 (* *
4141 * A TContextMap holds a map of context names and their handlers.
4242 *)
43- TdjContextMap = class (TObjectDictionary<string, TdjWebComponentContextHandler>);
43+ TdjContextMap = class (TObjectDictionary<string, TdjWebComponentContextHandler>)
44+ // pas2dox requires the class declaration to use the end; statement
45+ end ;
4446
4547implementation
4648
Original file line number Diff line number Diff line change @@ -42,7 +42,9 @@ interface
4242 * A subclass of the Indy context class is used for
4343 * future extensions.
4444 *)
45- TdjServerContext = class (TIdServerContext);
45+ TdjServerContext = class (TIdServerContext)
46+ // pas2dox requires the class declaration to use the end; statement
47+ end ;
4648
4749 TdjServerContextClass = class of TdjServerContext;
4850
Original file line number Diff line number Diff line change 2121 a commercial license. Buying such a license is mandatory as soon as you
2222 develop commercial activities involving the Daraja framework without
2323 disclosing the source code of your own applications. These activities
24- include: offering paid services to customers as an ASP, shipping Daraja
24+ include: offering paid services to customers as an ASP, shipping Daraja
2525 with a closed source product.
2626
2727*)
@@ -36,11 +36,17 @@ interface
3636 djWebComponentContextHandler;
3737
3838type
39+ { TdjWebAppContext }
40+
3941 (* *
4042 * Main context handler class.
4143 *)
42- TdjWebAppContext = class (TdjWebComponentContextHandler);
44+ TdjWebAppContext = class (TdjWebComponentContextHandler)
45+ // pas2dox requires the class declaration to use the end; statement
46+ end ;
4347
4448implementation
4549
50+ { TdjWebAppContext }
51+
4652end .
Original file line number Diff line number Diff line change 2121 a commercial license. Buying such a license is mandatory as soon as you
2222 develop commercial activities involving the Daraja framework without
2323 disclosing the source code of your own applications. These activities
24- include: offering paid services to customers as an ASP, shipping Daraja
24+ include: offering paid services to customers as an ASP, shipping Daraja
2525 with a closed source product.
2626
2727*)
@@ -39,7 +39,9 @@ interface
3939 (* *
4040 * Web Component configuration.
4141 *)
42- TdjWebComponentConfig = class (TdjAbstractConfig, IWebComponentConfig);
42+ TdjWebComponentConfig = class (TdjAbstractConfig, IWebComponentConfig)
43+ // pas2dox requires the class declaration to use the end; statement
44+ end ;
4345
4446implementation
4547
Original file line number Diff line number Diff line change @@ -45,7 +45,7 @@ interface
4545 { TdjWebComponentContextHandler }
4646
4747 (* *
48- * Context Handler for Web Components.
48+ * Context Handler for Web Components (and Web Filters) .
4949 *)
5050 TdjWebComponentContextHandler = class (TdjContextHandler)
5151 private
Original file line number Diff line number Diff line change @@ -112,9 +112,13 @@ TdjWebFilterHolder = class(TdjGenericHolder<TdjWebFilter>)
112112
113113 // note Delphi 2009 AVs if it is a TObjectList<>
114114 // see http://stackoverflow.com/questions/289825/why-is-tlist-remove-producing-an-eaccessviolation-error
115- // for a workaround
116- // use TdjWeFilterHolders.Create(TComparer<TdjWebFilterHolder>.Default);
117- TdjWebFilterHolders = class (TObjectList<TdjWebFilterHolder>);
115+ // for a workaround use TdjWeFilterHolders.Create(TComparer<TdjWebFilterHolder>.Default);
116+ (* *
117+ * A generic list of TdjWebFilterHolder objects.
118+ *)
119+ TdjWebFilterHolders = class (TObjectList<TdjWebFilterHolder>)
120+ // pas2dox requires the class declaration to use the end; statement
121+ end ;
118122
119123implementation
120124
You can’t perform that action at this time.
0 commit comments