void __fastcall TfmAlertWindowCustomDraw::Save1Click(TObject *Sender)
{
  AnsiString RTFFilter = "Rich Text Files (*.RTF)|*.RTF";
  TSaveDialog *ASaveDialog = new TSaveDialog(this);
  ASaveDialog->Filter = RTFFilter;
  if (ASaveDialog->Execute())
  {
	ASaveDialog->FileName = ChangeFileExt(ASaveDialog->FileName, '.rtf');
	redtMessageText->Lines->SaveToFile(ASaveDialog->FileName);
  }
  delete ASaveDialog;
}
Exemplo n.º 2
0
//---------------------------------------------------------------------------
//上書き確認メッセージダイアログの表示(復号スレッドオブジェクトから呼ばれる)
//---------------------------------------------------------------------------
int __fastcall TForm1::ShowConfirmOverwriteMassageForm(String MsgText, String &Path)
{

//ボタンをカスタマイズするので上記関数と分けて作成

TButton *btn;
TMsgDlgButtons MsgButtons = (TMsgDlgButtons() << mbYesToAll << mbYes << mbNo << mbCancel);
TForm *dlg = CreateMessageDialog(MsgText, mtConfirmation, MsgButtons, mbCancel);

//ボタン名をそれぞれ書き換える
btn = (TButton *)dlg->FindComponent("YesToAll");   //'全て上書き(&W)'
btn->Caption = LoadResourceString(&Msgexeout::_DIALOG_BUTTON_NAME_OVERWITE_YES_TO_ALL);
btn = (TButton *)dlg->FindComponent("Yes");        //'上書き(&O)'
btn->Caption = LoadResourceString(&Msgexeout::_DIALOG_BUTTON_NAME_OVERWITE_YES);
btn = (TButton *)dlg->FindComponent("No");         //'別名保存(&A)'
btn->Caption = LoadResourceString(&Msgexeout::_DIALOG_BUTTON_NAME_OVERWITE_NO);
btn = (TButton *)dlg->FindComponent("Cancel");     //'キャンセル(&C)'
btn->Caption = LoadResourceString(&Msgexeout::_DIALOG_BUTTON_NAME_OVERWITE_CANCEL);

dlg->Caption = LoadResourceString(&Msgexeout::_MSG_CAPTION_CONFIRMATION);
dlg->ParentWindow = Form1->Handle;

//メッセージダイアログの表示
int ret = dlg->ShowModal();

if (ret == mrNo) { //別名で保存する(いいえ)

	TSaveDialog *dlgsave = new TSaveDialog(dlg);
	//'復号ファイルの保存'
	dlgsave->Title = LoadResourceString(&Msgexeout::_DIALOG_SAVE_AS_FILE_CAPTION);
	dlgsave->InitialDir = ExtractFileDir(ExcludeTrailingPathDelimiter(Path));
	dlgsave->FileName = ExtractFileName(ExcludeTrailingPathDelimiter(Path));
	//'ファイルフォルダー|*'
	dlgsave->Filter = LoadResourceString(&Msgexeout::_DIALOG_SAVE_AS_FILTER);
	//別名保存ダイアログ
	if ( dlgsave->Execute() == true ){
		Path = dlgsave->FileName;
	}
	else{
		//キャンセル
		ret = mrCancel;
	}
	delete dlgsave;
}

delete dlg;
return(ret);

}
void __fastcall TTimelineMainForm::btnSaveClick(TObject *Sender)
{
  TSaveDialog* pSD;
  pSD = new TSaveDialog(this);

    pSD->Filter = "Item files (*.itm) |*.itm| All files (*.*)|*.*";
    pSD->InitialDir = ExtractFilePath(Application->ExeName);
    if( pSD->Execute() )
    {
      TimeLine1->BeginUpdate();
      TimeLine1->SaveToFile(pSD->FileName);
      TimeLine1->EndUpdate();
    }
    delete pSD;

}
Exemplo n.º 4
0
//---------------------------------------------------------------------------
void __fastcall TMemoEditFrm::Save1Click(TObject *Sender)
{
  TSaveDialog* pSD;
  pSD = new TSaveDialog(NULL);


  try
  {
    if( pSD->Execute() )
    {
      reLines->Lines->SaveToFile(pSD->FileName);
    }
  }
  __finally
  {
    delete pSD;
  }

}
Exemplo n.º 5
0
void __fastcall TTMTimeLineMainForm::btnSaveClick(TObject *Sender)
{
  TSaveDialog* pSD;
  pSD = new TSaveDialog(NULL);
  try
  {
    pSD->Filter = "Timeline files|*.tm|All files|*.*";
    pSD->DefaultExt = "TM";
    if( pSD->Execute() )
    {
      JvTimeLine1->OnWriteObject = DoObjectSave;
      JvTimeLine1->SaveToFile(pSD->FileName);
    }
  }
  __finally
  {
    delete pSD;
  }

}
Exemplo n.º 6
0
//---------------------------------------------------------------------------
void __fastcall TRADIOSetDlg::SaveBtnClick(TObject *Sender)
{
	TSaveDialog *pBox = MmttyWd->SaveDialog;
	if( (Font->Charset != SHIFTJIS_CHARSET) ){
		pBox->Title = "Save command file";
		pBox->Filter = "Command files(*.rcm)|*.rcm|";
	}
	else {
		pBox->Title = "コマンド定義ファイルの作成";
		pBox->Filter = "コマンド定義ファイル(*.rcm)|*.rcm|";
	}
	pBox->FileName = "MyRIG.rcm";
	pBox->DefaultExt = "rcm";
	pBox->InitialDir = BgnDir;
	NormalWindow(this);
	if( pBox->Execute() == TRUE ){
		CWaitCursor w;
		TMemIniFile *pIniFile = new TMemIniFile(pBox->FileName);
		pIniFile->WriteString("RADIO", "CmdInit", CmdInit->Text);
		pIniFile->WriteString("RADIO", "CmdRx", CmdRx->Text);
		pIniFile->WriteString("RADIO", "CmdTx", CmdTx->Text);
		pIniFile->WriteString("RADIO", "Cmdxx", Cmdxx->Text);
		pIniFile->WriteInteger("RADIO", "PollType", m_PollType);
		pIniFile->WriteInteger("RADIO", "PollOffset", FreqOffset->ItemIndex);
		double d;
		int dd = 5;
		if( sscanf(AnsiString(PollInt->Text).c_str(), "%lf", &d) == 1 ){	//JA7UDE 0428
			if( d >= 0.5 ){
				dd = int((d * 10.0) - 5);
				if( dd < 0 ) dd = 0;
			}
		}
		pIniFile->WriteInteger("RADIO", "PollInterval", dd);
		pIniFile->UpdateFile();
		delete pIniFile;
	}
	TopWindow(this);
}
Exemplo n.º 7
0
//---------------------------------------------------------------------------
void __fastcall TRADIOSetDlg::SaveBtnClick(TObject *Sender)
{
	TSaveDialog *pBox = new TSaveDialog(this);
	if( sys.m_MsgEng ){
		pBox->Title = "Save command file";
		pBox->Filter = "Command files(*.rcm)|*.rcm|";
	}
	else {
		pBox->Title = "コマンド定義ファイルの作成";
		pBox->Filter = "コマンド定義ファイル(*.rcm)|*.rcm|";
	}
	pBox->FileName = "MyRIG.rcm";
	pBox->DefaultExt = "rcm";
	pBox->InitialDir = sys.m_BgnDir;
	if( pBox->Execute() == TRUE ){
		CWaitCursor w;
		TMemIniFile *pIniFile = new TMemIniFile(pBox->FileName);
		pIniFile->WriteString("RADIO", "CmdInit", CmdInit->Text);
		pIniFile->WriteString("RADIO", "CmdRx", CmdRx->Text);
		pIniFile->WriteString("RADIO", "CmdTx", CmdTx->Text);
		pIniFile->WriteString("RADIO", "Cmdxx", Cmdxx->Text);
		pIniFile->WriteInteger("RADIO", "PollType", m_PollType);
		pIniFile->ReadInteger("RADIO", "Offset", RGFS->ItemIndex);
		double d;
		int dd = 5;
		if( sscanf(AnsiString(PollInt->Text).c_str(), "%lf", &d) == 1 ){	//JA7UDE 0428
			if( d >= 0.2 ){
				dd = int((d * 10.0) - 2);
				if( dd < 0 ) dd = 0;
			}
		}
		pIniFile->WriteInteger("RADIO", "PollInterval", dd);
		pIniFile->UpdateFile();
		delete pIniFile;
	}
    delete pBox;
}
Exemplo n.º 8
0
void __fastcall TFScheduler::m_ToolSaveClick(TObject *Sender)
{
	UnicodeString filename;
	int count = m_ls->Items->Count;

	if (count!=0)
	{
		TSaveDialog * save = new TSaveDialog(NULL);
		save->Filter = "Arquivos de texto (*.txt)|*.txt";
		save->FilterIndex = 0;
		save->DefaultExt = "txt";
		save->Options << ofOverwritePrompt;

		if (save->Execute())
		{
			filename = save->FileName;
		}

		if (!filename.IsEmpty())
		{
			FILE * fileStatus;

			fileStatus = fopen(filename.t_str(),"w");
			fprintf(fileStatus,"\nArquivo de Log do Escalonador\n");
			fprintf(fileStatus,"Fila Circular com Prioridades Estáticas\n");
			fprintf(fileStatus,"---------------------------------------\n\n");

			fprintf(fileStatus,"Gerência de Processos:\n\n");

			UnicodeString item;
			int rows = m_status->RowCount;

			for (int i = 0; i < rows; i++)
			{
				for (int j = 0; j < 4; j++)
				{
					UnicodeString tab = "\t";
					if (i==0 && j==2) tab="\t\t";
					if (i>=1 && j==1) tab="\t\t";

					item += m_status->Cells[j][i] + tab;
				}

				item += "\n";
				fprintf(fileStatus,item.t_str());
				item = "";
			}

			fprintf(fileStatus,"\nStatus de Processos:\n\n");

			int rowList = m_ls->Items->Count;

			UnicodeString titleItem = m_ls->Column[0]->Caption + "\t" +
									  m_ls->Column[1]->Caption + "\n";
			fprintf(fileStatus,titleItem.t_str());

			for (int i = 0; i < rowList; i++)
			{
				UnicodeString itemList = m_ls->Items->Item[i]->Caption;
				UnicodeString subitemList = m_ls->Items->Item[i]->SubItems->Text;
				UnicodeString lineItem = itemList + "\t\t" + subitemList;
				fprintf(fileStatus,lineItem.t_str());
			}

			fclose(fileStatus);

			MessageBox(NULL,"Arquivo gerado com sucesso.","Escalonador",MB_OK|MB_ICONINFORMATION);
		}
	}
}