paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 17:03:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed initialization section of modules

Browse Source 
git-svn-id: trunk@30307 -
This commit is contained in:
michael 2011-04-16 10:04:34 +00:00
parent 05717d484a
commit dea61d3287
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpweb/reglazwebextra.pp
View File

@ -160,6 +160,7 @@ function TFileDescWebProviderDataModule.GetImplementationSource(const Filename,
SourceName, ResourceName: string): string;
begin
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
Result:=Result+'Initialization'+sLineBreak;
Result:=Result+' RegisterHTTPModule(''T'+ResourceName+''',T'+ResourceName+');'+LineEnding;
end;
@ -218,6 +219,8 @@ begin
Free;
end;
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if RM or RH then
Result:=Result+'Initialization'+sLineBreak;
If RM then
Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding;
If RH then
@ -278,6 +281,8 @@ begin
Free;
end;
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if RM or RH then
Result:=Result+'Initialization'+sLineBreak;
If RM then
Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding;
If RH then