如何自绘ListView表头（2）

会计考友

　　LRESULT CALLBACK ListViewWindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,LPARAM lParam)
　　{
* E0 W. k* _& {　　PAINTSTRUCT ps ={ 0 };
　　RECT rect = { 0 };
6 ^! T. b5 e' Z+ u( Z　　HDC hPen = NULL;
　　HDC hBrush = NULL;
4 `# e; \- b3 K/ c　　int iCount = 0;
　　int i1 = 0;
　　BYTE red0 = 115, green0 = 154, blue0 = 206;
　　BYTE red1 = 255, green1 = 255, blue1 = 255;
　　BYTE red, green, blue;
' o6 {8 A7 o# x% q& C　　int j, m, n;
/ J0 L# b. P- V1 w% v8 g　　switch(uMsg)
　　{
　　case WM_PAINT:
4 S5 v) a. _) I　　BeginPaint(g_hListViewHeader,
9 v; W7 ]7 o. W7 W, `) @- A　　hPen = SelectObject(ps.hdc, GetStockObject(DC_PEN));
　　iCount = Header_GetItemCount(g_hListViewHeader); // 获取表头数目
( w. k: t: j0 e5 D. C　　SetDCPenColor(ps.hdc, ColorToRGB((TColor)(0x00EFDBCE)));
　　red = GetRValue((TColor)(0x00EFDBCE));
3 k! c0 o7 ]2 k. s　　green = GetGValue((TColor)(0x00EFDBCE));
　　blue = GetBValue((TColor)(0x00EFDBCE));
　　for (int i = 0; i Font->Handle);
　　i1 = ((rect.bottom - rect.top) - abs(Form1->Font->Height)) / 2;
　　hBrush = SelectObject(ps.hdc, GetStockObject(NULL_BRUSH));
5 I% |- l# Q' U/ A　　SetBkMode(ps.hdc, TRANSPARENT); // 这是设置背景为透明的
　　TextOut(ps.hdc, rect.left + 10, rect.top + i1,
: k  S- ^8 |% ^' ~  W2 {4 b# H　　Form1->ListView1->Columns->Items->Caption.c_str(),
　　Form1->ListView1->Columns->Items->Caption.Length());
( Z" A5 M" N7 Q( w  w8 c% |　　SelectObject(ps.hdc, hBrush);
　　}
　　hPen = SelectObject(ps.hdc, hPen);
8 Q% i% Y, f" F% v8 q6 l! y6 p　　EndPaint(g_hListViewHeader,
　　break;
" u4 v3 a  w7 _* M6 U" ~　　default:
$ c6 ]; C2 o: f- g  U7 r2 }9 _　　return CallWindowProc((FARPROC)g_oldListViewWndProc, g_hListViewHeader,
7 n( V" @/ Q" M% D/ ]4 k4 }　　uMsg, wParam, lParam);
. K) w  T* ^+ k5 p' L: I. y　　}
9 E& U2 ?% p- J& `6 m: z　　return 0;
; H" P8 s6 }# u　　}
　　// ---------------------------------------------------------------------------
　　__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
　　{
　　g_hListViewHeader = FindWindowEx(ListView1->Handle, NULL, "SysHeader32",
　　NULL);
% i# S# V4 T3 S　　g_oldListViewWndProc = (TCallBack)GetWindowLong
　　(g_hListViewHeader, GWL_WNDPROC);
/ m4 f. c7 M) j7 v& b　　SetWindowLong(g_hListViewHeader, GWL_WNDPROC, long(ListViewWindowProc));
* K! y* P& G5 u4 s# }, o0 g　　}
  y# ]9 i- G' x6 N7 P1 T　　// ---------------------------------------------------------------------------
　　__fastcall TForm1::~TForm1()
* M0 D# ^- F+ Q  Q6 w% B$ ]　　{
$ i, o5 d1 t% x; @/ X6 c　　SetWindowLong(g_hListViewHeader, GWL_WNDPROC, (long)g_oldListViewWndProc);
! p3 I; [- O/ D! A3 c3 l　　}