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

fixed TModuledCGIApplication.CreateForm

Browse Source 
git-svn-id: trunk@6285 -
This commit is contained in:
mattias 2004-11-22 22:03:03 +00:00
parent a6b3815b5f
commit 077dc198ca
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/cgi/cgimodules.pas
View File

@ -50,7 +50,8 @@ Type
TModuledCGIApplication = Class(TCGIApplication)
FMainModule : TCGIDatamodule;
public
Procedure CreateForm(Var AForm : TCGIDatamodule; AClass : TCGIDataModuleClass);
Procedure CreateForm(AClass: TCGIDataModuleClass;
Var Reference: TCGIDataModule);
Procedure DoRun; Override;
Property MainModule : TCGIDatamodule Read FMainModule;
end;
@ -77,12 +78,12 @@ end;
{ TModuledCGIApplication }
procedure TModuledCGIApplication.CreateForm(Var AForm: TCGIDatamodule;
AClass: TCGIDataModuleClass);
procedure TModuledCGIApplication.CreateForm(AClass: TCGIDataModuleClass;
Var Reference: TCGIDataModule);
begin
AForm:=AClass.CreateNew(Self,0);
Reference:=AClass.CreateNew(Self,0);
If FMainModule=Nil then
FMainModule:=AForm;
FMainModule:=Reference;
end;
procedure TModuledCGIApplication.DoRun;