Mercurial > vba-clojure

comparison src/win32/LangSelect.cpp @ 1:f9f4f1b99eed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
importing src directory
author Robert McIntyre <rlm@mit.edu>
date Sat, 03 Mar 2012 10:31:27 -0600
parents
children
comparison
equal deleted inserted replaced
0:8ced16adf2e1 1:f9f4f1b99eed
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