paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpweb: fix Cannot register components without unit (weblaz package failed to register some trunk only components), issue #28055

Browse Source 
git-svn-id: trunk@49434 -
This commit is contained in:
jesus 2015-06-24 16:41:10 +00:00
parent f12c7c2fa3
commit 6b2412959f
2 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
components/fpweb/weblaz.lpk
View File

@ -21,7 +21,7 @@
<Description Value="Web functionality for Lazarus"/> <Description Value="Web functionality for Lazarus"/>
<License Value="LGPL with static linking exception, see Copying.fcl in FCL"/> <License Value="LGPL with static linking exception, see Copying.fcl in FCL"/>
<Version Major="1"/> <Version Major="1"/>
<Files Count="61"> <Files Count="64">
<Item1> <Item1>
<Filename Value="custcgi.pp"/> <Filename Value="custcgi.pp"/>
<Type Value="Virtual Unit"/> <Type Value="Virtual Unit"/>
@ -292,6 +292,24 @@
<Type Value="Virtual Unit"/> <Type Value="Virtual Unit"/>
<UnitName Value="iniwebsession"/> <UnitName Value="iniwebsession"/>
</Item61> </Item61>
<Item62>
<Filename Value="fphttpwebclient.pp"/>
<Type Value="Virtual Unit"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="fphttpwebclient"/>
</Item62>
<Item63>
<Filename Value="fpoauth2.pp"/>
<Type Value="Virtual Unit"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="fpoauth2"/>
</Item63>
<Item64>
<Filename Value="fpoauth2ini.pp"/>
<Type Value="Virtual Unit"/>
<AddToUsesPkgSection Value="False"/>
<UnitName Value="fpoauth2ini"/>
</Item64>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

19
components/fpweb/weblazideintf.pp
View File

@ -281,6 +281,20 @@ begin
end; end;
{$IFDEF VER3_1}
procedure RegisterTFPHTTPWebClient;
begin
RegisterComponents(fpWebTab,[TFPHTTPWebClient]);
end;
procedure RegisterTOAuth2Handler;
begin
RegisterComponents(fpWebTab,[TOAuth2Handler]);
end;
procedure RegisterTFPOAuth2IniStore;
begin
RegisterComponents(fpWebTab,[TFPOAuth2IniStore]);
end;
{$ENDIF}
Procedure RegisterComponents; Procedure RegisterComponents;
@ -288,7 +302,10 @@ begin
RegisterUnit('fphtml',@RegisterHTMLComponents); RegisterUnit('fphtml',@RegisterHTMLComponents);
RegisterUnit('fpdatasetform',@RegisterdatasetComponents); RegisterUnit('fpdatasetform',@RegisterdatasetComponents);
{$IFDEF VER3_1} {$IFDEF VER3_1}
classes.RegisterComponents(fpWebTab,[TFPHTTPWebClient,TOAuth2Handler,TFPOAuth2IniStore]); RegisterUnit('fphttpwebclient',@RegisterTFPHTTPWebClient);
RegisterUnit('fpoauth2',@RegisterTOAuth2Handler);
RegisterUnit('fpoauth2ini',@RegisterTFPOAuth2IniStore);
//classes.RegisterComponents(fpWebTab,[TFPHTTPWebClient,TOAuth2Handler,TFPOAuth2IniStore]);
{$ENDIF} {$ENDIF}
end; end;