用vc2010扩展程序改变编辑窗口的背景色

用vc2010扩展程序改变编辑窗口的背景色

编辑框的背景色一般是白色的， 时间长了看起来比较费劲， 用vc自带的也可以改背景色， 这里提供一个更快捷的方案.
注意，for vc2010

1. 用vc2010建一个扩展项目


2. 创建该项目，按照下面图示走完向导。






3. 完成后项目建立, 依次修改

STDMETHODIMP CConnect::OnStartupComplete (SAFEARRAY ** /*自定义*/ )   // 项目加载后触发

和

STDMETHODIMP CConnect::Exec(BSTR bstrCmdName, vsCommandExecOption ExecuteOption, VARIANT * /*pvarVariantIn*/, VARIANT * /*pvarVariantOut*/, VARIANT_BOOL *pvbHandled) // 选择命令后触发

 1  //  项目启动后触发
 2  STDMETHODIMP CConnect::OnStartupComplete (SAFEARRAY **  /* 自定义 */ )
 3 {
 4      // RunBackGroundChange();
 5      CAddMyComment ac(m_pDTE);
 6     COLORREF clrBlack = 0x00c2c2c2;     //  银色
 7      ac.SetColor(clrBlack);
 8     ac.SetColor(clrBlack);
 9 
10      return S_OK;
11 }

STDMETHODIMP CConnect::Exec(BSTR bstrCmdName, vsCommandExecOption ExecuteOption, VARIANT *  /* pvarVariantIn */, VARIANT *  /* pvarVariantOut */, VARIANT_BOOL *pvbHandled)
{
    *pvbHandled = VARIANT_FALSE;
     if(ExecuteOption == vsCommandExecOptionDoDefault)
    {
         if(!_wcsicmp(bstrCmdName, L"backgroundchange.Connect.backgroundchange"))
        {
            RunBackGroundChange();

            *pvbHandled = VARIANT_TRUE;
             return S_OK;
        }
    }
     return S_OK;
}

 1 
 2  //  改变编辑器背景颜色
 3  void CAddMyComment::ChangeFont( void)
 4 {
 5     CComPtr<EnvDTE::Properties> spProperties;
 6 
 7      //  Modify font size
 8      m_spDTE->get_Properties(CComBSTR("FontsAndColors"), CComBSTR("TextEditor"), &spProperties);
 9     CComPtr<EnvDTE::Property> spProperty;
10     spProperties->Item(CComVariant(L"FontSize"), &spProperty);     //  FontSize
11      ATLASSERT(spProperty);
12     spProperty->put_Value(CComVariant(11));
13 
14     CComPtr<EnvDTE::Property> spProperty1;
15     spProperties->Item(CComVariant(CComBSTR(L"FontsAndColorsItems")), &spProperty1);     //  FontsAndColorsItems
16      ATLASSERT(spProperty1);
17     CComPtr<IDispatch> spDispatch;
18     spProperty1->get_Object(&spDispatch);
19     CComPtr<EnvDTE::FontsAndColorsItems> spFontsAndColorsItems;
20     spFontsAndColorsItems = spDispatch;
21     ATLASSERT(spFontsAndColorsItems);
22  #if 0
23      //  显示颜色命名
24       long count ;
25     spFontsAndColorsItems->get_Count(&count);
26      for( long i=0; i<count; ++i) {
27         CComPtr<EnvDTE::ColorableItems> spColor;
28         spFontsAndColorsItems->Item(CComVariant(i), &spColor);
29          if(spColor) {
30             CComBSTR bstrName;
31             spColor->get_Name(&bstrName);
32             ATLTRACE(L"[%d]%s\n",i, bstrName);
33         }
34     }
35  #endif
36 
37  #if 1
38      //  Modify Plain Text Background
39      CComPtr<EnvDTE::ColorableItems> spColorableItems_PlainText;
40     spFontsAndColorsItems->Item(CComVariant(1), &spColorableItems_PlainText);
41     CComPtr<EnvDTE::ColorableItems> spColorableItems_LineNumber;
42     spFontsAndColorsItems->Item(CComVariant(5), &spColorableItems_LineNumber);
43      // CComPtr<EnvDTE::ColorableItems> spColorableItems_Identifier;
44       // spFontsAndColorsItems->Item(CComVariant(L"Identifier"), &spColorableItems_Identifier);
45 
46     COLORREF clrWhite = #ffffff;
47     COLORREF clrBlack = #000000;
48     clrBlack = 0x00c2c2c2;     //  银色
49      COLORREF clrWhite2 = 12632256;
50     clrWhite2 =  clrWhite;
51     OLE_COLOR color;
52     spColorableItems_PlainText->get_Background(&color);
53      if(color == clrBlack) {
54         spColorableItems_PlainText->put_Background(clrWhite);
55         spColorableItems_LineNumber->put_Background(clrWhite);
56          // spColorableItems_PlainText->put_Foreground(clrBlack);
57      } else {
58         spColorableItems_PlainText->put_Background(clrBlack);
59         spColorableItems_LineNumber->put_Background(clrBlack);
60          // spColorableItems_PlainText->put_Foreground(clrWhite2);
61      }
62  #endif
63 }
64 

4. 执行命令， 进入项目后， 在菜单工具下会创建一个菜单项


点选后， 会在白色背景和银色间切换， 初始会进入银色背景。


5. 可直接使用msi安装包安装该插件, 同时该附件包含源代码
/Files/wangkang2009/backgroundchange.rar