Mercurial > vba-clojure

     1 // LangSelect.cpp : implementation file

     2 //

     3 

     4 #include "stdafx.h"

     5 #include "resource.h"

     6 #include "LangSelect.h"

     7 #include "VBA.h"

     8 

     9 /////////////////////////////////////////////////////////////////////////////

    10 // LangSelect dialog

    11 

    12 LangSelect::LangSelect(CWnd*pParent /*=NULL*/)

    13 	: CDialog(LangSelect::IDD, pParent)

    14 {

    15 	//{{AFX_DATA_INIT(LangSelect)

    16 	// NOTE: the ClassWizard will add member initialization here

    17 	//}}AFX_DATA_INIT

    18 }

    19 

    20 void LangSelect::DoDataExchange(CDataExchange*pDX)

    21 {

    22 	CDialog::DoDataExchange(pDX);

    23 	//{{AFX_DATA_MAP(LangSelect)

    24 	DDX_Control(pDX, IDC_LANG_STRING, m_langString);

    25 	DDX_Control(pDX, IDC_LANG_NAME, m_langName);

    26 	//}}AFX_DATA_MAP

    27 }

    28 

    29 BEGIN_MESSAGE_MAP(LangSelect, CDialog)

    30 //{{AFX_MSG_MAP(LangSelect)

    31 ON_BN_CLICKED(ID_CANCEL, OnCancel)

    32 ON_BN_CLICKED(ID_OK, OnOk)

    33 //}}AFX_MSG_MAP

    34 END_MESSAGE_MAP()

    35 

    36 /////////////////////////////////////////////////////////////////////////////

    37 // LangSelect message handlers

    38 

    39 void LangSelect::OnCancel()

    40 {

    41 	EndDialog(FALSE);

    42 }

    43 

    44 void LangSelect::OnOk()

    45 {

    46 	m_langString.GetWindowText(theApp.languageName);

    47 	EndDialog(TRUE);

    48 }

    49 

    50 BOOL LangSelect::OnInitDialog()

    51 {

    52 	CDialog::OnInitDialog();

    53 

    54 	char lbuffer[10];

    55 	if (GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SABBREVLANGNAME,

    56 	                  lbuffer, 10))

    57 	{

    58 		m_langName.SetWindowText(lbuffer);

    59 	}

    60 	else

    61 	{

    62 		m_langName.SetWindowText("???");

    63 	}

    64 

    65 	if (!theApp.languageName.IsEmpty())

    66 		m_langString.SetWindowText(theApp.languageName);

    67 

    68 	m_langString.LimitText(3);

    69 

    70 	CenterWindow();

    71 

    72 	return TRUE; // return TRUE unless you set the focus to a control

    73 	             // EXCEPTION: OCX Property Pages should return FALSE

    74 }

    75
author	Robert McIntyre <rlm@mit.edu>
date	Sat, 03 Mar 2012 10:48:33 -0600
parents	f9f4f1b99eed
children