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

fpweb/ideintf:

Browse Source 
* Add initialization keyword according to resource type: fix compilation of initial project.
 * Don't add LResources unit to uses section direct since inherited takes care of that.

git-svn-id: trunk@26785 -
This commit is contained in:
blikblum 2010-07-22 20:23:11 +00:00
parent 1cad1a2a99
commit 7018a816fe
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpweb/weblazideintf.pp
View File

@ -376,6 +376,8 @@ function TFileDescWebDataModule.GetImplementationSource(const Filename, SourceNa
begin
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if GetResourceType = rtRes then
Result:=Result+'initialization'+LineEnding;
Result:=Result+' RegisterHTTPModule(''T'+ResourceName+''',T'+ResourceName+');'+LineEnding;
end;
@ -392,7 +394,7 @@ end;
function TFileDescHTMLModule.GetInterfaceUsesSection: string;
begin
Result:=inherited GetInterfaceUsesSection;
Result:=Result+',LResources,HTTPDefs,websession,fpHTTP,htmlwriter,htmlelements,fphtml';
Result:=Result+',HTTPDefs,websession,fpHTTP,htmlwriter,htmlelements,fphtml';
end;
function TFileDescHTMLModule.GetLocalizedName: string;
@ -409,6 +411,8 @@ function TFileDescHTMLModule.GetImplementationSource(const Filename, SourceName,
begin
Result:=Inherited GetImplementationSource(FileName,SourceName,ResourceName);
if GetResourceType = rtRes then
Result:=Result+'initialization'+LineEnding;
Result:=Result+' RegisterHTTPModule(''T'+ResourceName+''',T'+ResourceName+');'+LineEnding;
end;