mmsstv/JASTA/OptDlg.cpp
2013-07-05 15:15:14 -05:00

117 lines
3.2 KiB
C++
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "OptDlg.h"
#include "Country.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
//TOptDlgBox *OptDlgBox;
//---------------------------------------------------------------------
__fastcall TOptDlgBox::TOptDlgBox(TComponent* AOwner)
: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TOptDlgBox::SetLanguage(void)
{
if( RGL->ItemIndex ){
Caption = "Setup";
Font->Name = "Arial";
Font->Charset = ANSI_CHARSET;
RGL->Caption = "Language";
RGL->Items->Strings[0] = "Japanese";
RGL->Items->Strings[1] = "English";
L1->Caption = "Callsign";
L2->Caption = "Year";
RGC->Caption = "Entry Section";
RGC->Items->Strings[0] = "J (Japan)";
RGC->Items->Strings[1] = "S";
RGF->Caption = "First time entry";
RGF->Items->Strings[0] = "No";
RGF->Items->Strings[1] = "Yes";
L3->Caption = "ZIP";
L4->Caption = "Address";
// L5->Caption = "E-Mail";
L6->Caption = "Name";
L7->Caption = "License";
L9->Caption = "Size of T-shirts as an Activity Premium";
CancelBtn->Caption = "Cancel";
}
else {
Caption = "セットアップ";
Font->Name = " Pゴシック";
Font->Charset = SHIFTJIS_CHARSET;
RGL->Caption = "言語 (Language)";
RGL->Items->Strings[0] = "日本語(Japanese)";
RGL->Items->Strings[1] = "英語(English)";
L1->Caption = "コールサイン";
L2->Caption = "集計年度";
RGC->Caption = "参加部門";
RGC->Items->Strings[0] = "J (日本国内)";
RGC->Items->Strings[1] = "S (海外)";
RGF->Caption = "初参加";
RGF->Items->Strings[0] = "過去にも参加した";
RGF->Items->Strings[1] = "初参加";
L3->Caption = "郵便番号";
L4->Caption = "住所";
// L5->Caption = "E-Mail";
L6->Caption = "氏名";
L7->Caption = "資格";
L9->Caption = "アクティブ賞のT-シャツ当選時の希望サイズ";
CancelBtn->Caption = "キャンセル";
}
}
//---------------------------------------------------------------------
int __fastcall TOptDlgBox::Execute(void)
{
RGL->ItemIndex = MsgEng;
SetLanguage();
EditCall->Text = sys.m_Call;
EditYear->Text = sys.m_Year;
RGC->ItemIndex = sys.m_Category;
RGF->ItemIndex = sys.m_First;
EditZip->Text = sys.m_Zip;
EditAdr->Text = sys.m_Adr;
EditMail->Text = sys.m_Mail;
EditName->Text = sys.m_Name;
EditLicense->Text = sys.m_License;
EditPow->Text = sys.m_Pow;
CBSex->ItemIndex = sys.m_Sexual;
CBTSize->ItemIndex = sys.m_TSize;
if( ShowModal() == IDOK ){
sys.m_Call = EditCall->Text.c_str();
jstrupr(sys.m_Call.c_str());
sscanf(AnsiString(EditYear->Text).c_str(), "%u", &sys.m_Year);
sys.m_Category = RGC->ItemIndex;
sys.m_First = RGF->ItemIndex;
sys.m_Zip = EditZip->Text;
sys.m_Adr = EditAdr->Text;
sys.m_Mail = EditMail->Text;
sys.m_Name = EditName->Text;
sys.m_License = EditLicense->Text;
sys.m_Pow = EditPow->Text;
sys.m_Sexual = CBSex->ItemIndex;
sys.m_TSize = CBTSize->ItemIndex;
MsgEng = RGL->ItemIndex;
return TRUE;
}
else {
return FALSE;
}
}
//---------------------------------------------------------------------
void __fastcall TOptDlgBox::RGLClick(TObject *Sender)
{
SetLanguage();
}
//---------------------------------------------------------------------------