paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 08:20:19 +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; SourceName, ResourceName: string): string;
begin begin
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); 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; Result:=Result+' RegisterHTTPModule(''T'+ResourceName+''',T'+ResourceName+');'+LineEnding;
end; end;
@ -219,7 +220,7 @@ begin
Free; Free;
end; end;
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if RM or RH then if (GetResourceType = rtRes) and (RM or RH) then
Result:=Result+'Initialization'+sLineBreak; Result:=Result+'Initialization'+sLineBreak;
If RM then If RM then
Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding; Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding;
@ -281,7 +282,7 @@ begin
Free; Free;
end; end;
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName); Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if RM or RH then if (GetResourceType = rtRes) and (RM or RH) then
Result:=Result+'Initialization'+sLineBreak; Result:=Result+'Initialization'+sLineBreak;
If RM then If RM then
Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding; Result:=Result+' RegisterHTTPModule('''+HP+''',T'+ResourceName+');'+LineEnding;