mirror of
http://gitlab.expertsoft.com.ua/git/expertcad
synced 2026-01-11 18:25:40 +02:00
59 lines
2.2 KiB
ObjectPascal
59 lines
2.2 KiB
ObjectPascal
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.
|