program SCSNormBase;


{%ToDo 'SCSNormBase.todo'}

uses
  Forms,
  U_MAIN in 'SCSNormBase\U_MAIN.pas' {F_MAIN},
  Unit_DM_SCS in 'SCSNormBase\Unit_DM_SCS.pas' {DM: TDataModule},
  U_ActiveCurrency in 'SCSNormBase\U_ActiveCurrency.pas' {F_ActiveCurrency},
  U_AddComponent in 'SCSNormBase\U_AddComponent.pas' {F_AddComponent},
  U_AddInterface in 'SCSNormBase\U_AddInterface.pas' {F_AddInterface},
  U_Animate in 'SCSNormBase\U_Animate.pas' {F_Animate},
  U_AnswerToQuast in 'SCSNormBase\U_AnswerToQuast.pas' {F_AnswerToQuast},
  U_CanDelete in 'SCSNormBase\U_CanDelete.pas' {F_CanDelete},
  U_CaseForm in 'SCSNormBase\U_CaseForm.pas' {F_CaseForm},
  U_Connect in 'SCSNormBase\U_Connect.pas' {F_Connect},
  U_ImageShow in 'SCSNormBase\U_ImageShow.pas' {F_ImageShow},
  U_InputBox in 'SCSNormBase\U_InputBox.pas' {F_InputBox},
  U_MakeCurrency in 'SCSNormBase\U_MakeCurrency.pas' {F_MakeCurrency},
  U_MakeProperty in 'SCSNormBase\U_MakeProperty.pas' {F_MakeProperty},
  U_NDS in 'SCSNormBase\U_NDS.pas' {F_NDS},
  U_SCSComponent in 'SCSNormBase\U_SCSComponent.pas',
  U_BaseCommon in 'SCSNormBase\U_BaseCommon.pas',
  U_ComponentIcons in 'SCSNormBase\U_ComponentIcons.pas' {F_ComponentIcons},
  U_Norms in 'SCSNormBase\U_Norms.pas' {F_Norms},
  U_MakeNorm in 'SCSNormBase\U_MakeNorm.pas' {F_MakeNorm},
  U_ChoiceConnectSide in 'SCSNormBase\U_ChoiceConnectSide.pas' {F_ChoiceConnectSide},
  U_ResourceReport in 'SCSNormBase\U_ResourceReport.pas' {F_ResourceReport},
  U_BaseSettings in 'SCSNormBase\U_BaseSettings.pas';

//  USCS_Main in 'Main\USCS_Main.pas' {FSCS_Main},
//  U_CAD in 'Main\U_CAD.pas' {F_CAD},
//  U_Projectmanager in 'Main\U_Projectmanager.pas' {F_ProjectManager},
//  U_Navigator in 'Main\U_Navigator.pas' {F_Navigator},
//  TestNormBase in 'SCSNormBase\TestNormBase.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;

  GCreatedDMAIN := false;
  GGDBMode := bkNormBase;
  Application.CreateForm(TF_Main, F_NormBase);
  GGDBMode := bkprojectManager;
  Application.CreateForm(TF_Main, F_ProjMan);
  

  F_ProjMan.FProjectMan := F_ProjMan;
  F_ProjMan.FNormBase := F_NormBase;

  F_NormBase.FProjectMan := F_ProjMan;
  F_NormBase.FNormBase := F_NormBase;


  Application.Run;
end.