paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 11:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed case for .lrs files

Browse Source 
git-svn-id: trunk@30309 -
This commit is contained in:
michael 2011-04-16 10:42:18 +00:00
parent ad2cc72723
commit 1761b4f117
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpweb/reglazwebextra.pp
View File

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