Method aSetupExecute

source/main.cpp:731–768

---------------------------------------------------------------------------

}
//---------------------------------------------------------------------------
void __fastcall TMainForm::aSetupExecute(TObject *Sender)
{
  bool se = IsShortcutExist(CSIDL_STARTUP);

  SetupForm = new TSetupForm(this);
  SetupForm->AutoStartCB->Checked = se;

  if( SetupForm->ShowModal() == mrOk )
  {
    if( SetupForm->bUdpRestart )
    {
      UdpServerStop();
      UdpServerStart();
    }
    if( SetupForm->bTcpRestart )
    {
      TcpServerStop();
      TcpServerStart();
    }
    if( SetupForm->AutoStartCB->Checked != se )
    {
      if( se )
        DeleteShortcut(CSIDL_STARTUP);
      else
        CreateShortcut(CSIDL_STARTUP);
    }

    fdb->GetList(SelectFileCB->Items, true);
    int i = SelectFileCB->Items->IndexOfObject((TObject *)FileNumber);
    SelectFileCB->ItemIndex = i;

    LogSG->Invalidate(); // 3D

    MainCfg.Save(MainCfgFile, fdb);
  }
  delete SetupForm;
  SetupForm = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::RedrawProto(void)
{