rlm@1: // LangSelect.cpp : implementation file
rlm@1: //
rlm@1: 
rlm@1: #include "stdafx.h"
rlm@1: #include "resource.h"
rlm@1: #include "LangSelect.h"
rlm@1: #include "VBA.h"
rlm@1: 
rlm@1: /////////////////////////////////////////////////////////////////////////////
rlm@1: // LangSelect dialog
rlm@1: 
rlm@1: LangSelect::LangSelect(CWnd*pParent /*=NULL*/)
rlm@1: 	: CDialog(LangSelect::IDD, pParent)
rlm@1: {
rlm@1: 	//{{AFX_DATA_INIT(LangSelect)
rlm@1: 	// NOTE: the ClassWizard will add member initialization here
rlm@1: 	//}}AFX_DATA_INIT
rlm@1: }
rlm@1: 
rlm@1: void LangSelect::DoDataExchange(CDataExchange*pDX)
rlm@1: {
rlm@1: 	CDialog::DoDataExchange(pDX);
rlm@1: 	//{{AFX_DATA_MAP(LangSelect)
rlm@1: 	DDX_Control(pDX, IDC_LANG_STRING, m_langString);
rlm@1: 	DDX_Control(pDX, IDC_LANG_NAME, m_langName);
rlm@1: 	//}}AFX_DATA_MAP
rlm@1: }
rlm@1: 
rlm@1: BEGIN_MESSAGE_MAP(LangSelect, CDialog)
rlm@1: //{{AFX_MSG_MAP(LangSelect)
rlm@1: ON_BN_CLICKED(ID_CANCEL, OnCancel)
rlm@1: ON_BN_CLICKED(ID_OK, OnOk)
rlm@1: //}}AFX_MSG_MAP
rlm@1: END_MESSAGE_MAP()
rlm@1: 
rlm@1: /////////////////////////////////////////////////////////////////////////////
rlm@1: // LangSelect message handlers
rlm@1: 
rlm@1: void LangSelect::OnCancel()
rlm@1: {
rlm@1: 	EndDialog(FALSE);
rlm@1: }
rlm@1: 
rlm@1: void LangSelect::OnOk()
rlm@1: {
rlm@1: 	m_langString.GetWindowText(theApp.languageName);
rlm@1: 	EndDialog(TRUE);
rlm@1: }
rlm@1: 
rlm@1: BOOL LangSelect::OnInitDialog()
rlm@1: {
rlm@1: 	CDialog::OnInitDialog();
rlm@1: 
rlm@1: 	char lbuffer[10];
rlm@1: 	if (GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SABBREVLANGNAME,
rlm@1: 	                  lbuffer, 10))
rlm@1: 	{
rlm@1: 		m_langName.SetWindowText(lbuffer);
rlm@1: 	}
rlm@1: 	else
rlm@1: 	{
rlm@1: 		m_langName.SetWindowText("???");
rlm@1: 	}
rlm@1: 
rlm@1: 	if (!theApp.languageName.IsEmpty())
rlm@1: 		m_langString.SetWindowText(theApp.languageName);
rlm@1: 
rlm@1: 	m_langString.LimitText(3);
rlm@1: 
rlm@1: 	CenterWindow();
rlm@1: 
rlm@1: 	return TRUE; // return TRUE unless you set the focus to a control
rlm@1: 	             // EXCEPTION: OCX Property Pages should return FALSE
rlm@1: }
rlm@1: