項目開始
第一個示例程序是不帶視窗口、工具條、狀態(tài)條的SDI應用程序,在運行完WTL AppWizard之后,第一件事就是設置stdafx.h中的#define,以便利用Vista的新特性。Vista的Windows版本為6,且Vista中IE的版本為7,設置完成后應像下面這樣:
#define WINVER 0x0600
#define _WIN32_WINNT 0x0600
#define _WIN32_IE 0x0700
接下來包含ATL與WTL的頭文件:
#define _WTL_NO_WTYPES // 不要在WTL頭文件中定義CRect/CPoint/CSize
#include
#include //共享的CRect/CPoint/CSize
#include
extern CAppModule _Module;
#include
#include
#include
#include
#include // XP/Vista主題支持
#include// DWM API
如果修改完成之后就編譯,將會從atltheme.h中得到4個錯誤。例如,以下是不會編譯通過的CTheme::GetThemeTextMetrics()代碼:
HRESULT GetThemeTextMetrics(..., PTEXTMETRICW pTextMetric)
{
ATLASSERT(m_hTheme != NULL);
//注意:因為uxtheme.h頭文件,所以轉換為PTEXTMETRIC。
//替換掉PTEXTMETRICW是不對的
return ::GetThemeTextMetrics(m_hTheme, ..., (PTEXTMETRIC) pTextMetric);
}
在GetThemeTextMetrics() API中的轉換,是對Platform SDK的uxtheme.h中錯誤的修正,然而,Windows SDK卻沒有這個錯誤,所以這個轉換導致了一個錯誤,可刪除函數中的這個轉換,其他三個也同樣。
添加邊框的毛玻璃效果
通過把毛玻璃效果從非客戶區(qū)擴展到客戶區(qū),就可完成添加程序的毛玻璃效果,這個API是DwmExtendFrameIntoClientArea()。DwmExtendFrameIntoClientArea()接受兩個參數:我們框架窗口的HWND和一個用于說明毛玻璃效果擴展到窗口四周多遠的MARGINS結構??稍贠nCreate()中調用這個API:
LRESULT CMainFrame::OnCreate(LPCREATESTRUCT lpcs)
{
//在底部添加玻璃效果
MARGINS mar = {0};
mar.cyBottomHeight = 100;
DwmExtendFrameIntoClientArea ( m_hWnd, &mar );
return 0;
}
但如果運行程序,看不到有任何變化:
這是因為毛玻璃效果依賴于窗口的透明度,為顯示出玻璃效果,區(qū)域中像素(在本例中為客戶區(qū)底部的100像素)的alpha值必須設置為0。最簡單的方法是用一個黑畫刷來繪制這個區(qū)域,它會把像素的顏色值(紅、綠、藍和alpha)設為0,可在OnEraseBkgnd()中完成:
BOOL CMainFrame::OnEraseBkgnd ( HDC hdc )
{
CDCHandle dc = hdc;
CRect rcClient;
GetClientRect(rcClient);
dc.FillSolidRect(rcClient, RGB(0,0,0));
return true;
}
第一個示例程序是不帶視窗口、工具條、狀態(tài)條的SDI應用程序,在運行完WTL AppWizard之后,第一件事就是設置stdafx.h中的#define,以便利用Vista的新特性。Vista的Windows版本為6,且Vista中IE的版本為7,設置完成后應像下面這樣:
#define WINVER 0x0600
#define _WIN32_WINNT 0x0600
#define _WIN32_IE 0x0700
接下來包含ATL與WTL的頭文件:
#define _WTL_NO_WTYPES // 不要在WTL頭文件中定義CRect/CPoint/CSize
#include
#include //共享的CRect/CPoint/CSize
#include
extern CAppModule _Module;
#include
#include
#include
#include
#include // XP/Vista主題支持
#include
如果修改完成之后就編譯,將會從atltheme.h中得到4個錯誤。例如,以下是不會編譯通過的CTheme::GetThemeTextMetrics()代碼:
HRESULT GetThemeTextMetrics(..., PTEXTMETRICW pTextMetric)
{
ATLASSERT(m_hTheme != NULL);
//注意:因為uxtheme.h頭文件,所以轉換為PTEXTMETRIC。
//替換掉PTEXTMETRICW是不對的
return ::GetThemeTextMetrics(m_hTheme, ..., (PTEXTMETRIC) pTextMetric);
}
在GetThemeTextMetrics() API中的轉換,是對Platform SDK的uxtheme.h中錯誤的修正,然而,Windows SDK卻沒有這個錯誤,所以這個轉換導致了一個錯誤,可刪除函數中的這個轉換,其他三個也同樣。
添加邊框的毛玻璃效果
通過把毛玻璃效果從非客戶區(qū)擴展到客戶區(qū),就可完成添加程序的毛玻璃效果,這個API是DwmExtendFrameIntoClientArea()。DwmExtendFrameIntoClientArea()接受兩個參數:我們框架窗口的HWND和一個用于說明毛玻璃效果擴展到窗口四周多遠的MARGINS結構??稍贠nCreate()中調用這個API:
LRESULT CMainFrame::OnCreate(LPCREATESTRUCT lpcs)
{
//在底部添加玻璃效果
MARGINS mar = {0};
mar.cyBottomHeight = 100;
DwmExtendFrameIntoClientArea ( m_hWnd, &mar );
return 0;
}
但如果運行程序,看不到有任何變化:
這是因為毛玻璃效果依賴于窗口的透明度,為顯示出玻璃效果,區(qū)域中像素(在本例中為客戶區(qū)底部的100像素)的alpha值必須設置為0。最簡單的方法是用一個黑畫刷來繪制這個區(qū)域,它會把像素的顏色值(紅、綠、藍和alpha)設為0,可在OnEraseBkgnd()中完成:
BOOL CMainFrame::OnEraseBkgnd ( HDC hdc )
{
CDCHandle dc = hdc;
CRect rcClient;
GetClientRect(rcClient);
dc.FillSolidRect(rcClient, RGB(0,0,0));
return true;
}