//--------------------------------------------------------------------------- #include #pragma hdrstop #include "ProjectConfig.h" #include "DataModule.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma link "Grids_ts" #pragma link "TSDBGrid" #pragma link "TSGrid" #pragma link "AdvGrid" #pragma link "BaseGrid" #pragma link "DBAdvGrd" #pragma link "DBAdvGrid" #pragma link "DBAdvGrd" #pragma link "DBAdvNavigator" #pragma resource "*.dfm" TProjectConfigForm *ProjectConfigForm; //--------------------------------------------------------------------------- __fastcall TProjectConfigForm::TProjectConfigForm(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TProjectConfigForm::CloseBtnClick(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TProjectConfigForm::FormShow(TObject *Sender) { if (!ProjectsQuery->Active) { ProjectsQuery->Open(); } } //---------------------------------------------------------------------------