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

added workaround for not working TDataModule.AfterConstruction

Browse Source 
git-svn-id: trunk@5733 -
This commit is contained in:
mattias 2004-08-04 10:35:38 +00:00
parent 649f11360b
commit e6ebce1af3
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1345,7 +1345,7 @@ begin
CreateNew(TheOwner,0);
if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
begin
if not InitResourceComponent(Self, TForm) then begin
if not InitResourceComponent(Self, TDataModule) then begin
raise EResNotFound.CreateFmt(lisLCLResourceSNotFound, [ClassName]);
end;
if OldCreateOrder then DoCreate;

10
lcl/include/application.inc
View File

@ -1124,7 +1124,7 @@ var
ok: boolean;
OldFindGlobalComponent: TFindGlobalComponent;
begin
// Allocate the form instance, without calling the constructor
// Allocate the instance, without calling the constructor
Instance := TComponent(InstanceClass.NewInstance);
// set the Reference before the constructor is called, so that
// events and constructors can refer to it
@ -1152,6 +1152,11 @@ begin
FList.Add(TForm(Instance));
end;
end;
{$IFNDEF AfterConstructionDataModuleNotWorking}
if (Instance is TDataModule) then begin
TDataModule(instance).AfterConstruction;
end;
{$ENDIF}
end;
function TApplication.ExecuteAction(ExeAction: TBasicAction): Boolean;
@ -1181,6 +1186,9 @@ end;
{ =============================================================================
$Log$
Revision 1.83 2004/08/04 10:35:38 mattias
added workaround for not working TDataModule.AfterConstruction
Revision 1.82 2004/07/25 01:04:45 mattias
TXMLPropStorage basically working