【VB界面】子类化重绘仿QQ2009渐变按钮(模块)

'************************************************************************* ''---------------------------------------------------------------------- '**系统名称：子类化重绘仿QQ2009渐变按钮 '**模块描述： '**模块名：Form1 '**创建人：gvu '**作者网站：http://hi.baidu.com/googlevipuser '**E-Mail地址: owhao@126.com '**日期：2009-09-01 08:09:12 '**修改人： '**日期： '**描述： '**版本：V1.0.0 '************************************************************************* ' ' MSkinButton.Attach Me.hWnd ' MSkinButton.Detach Me.hWnd Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type RECTW Left As Long Top As Long Right As Long Bottom As Long Width As Long Height As Long End Type Private Type PAINTSTRUCT hDC As Long fErase As Long rcPaint As RECT fRestore As Long fIncUpdate As Long rgbReserved(32) As Byte End Type Private Type TRACKMOUSEEVENTTYPE cbSize As Long dwFlags As Long hwndTrack As Long dwHoverTime As Long End Type Private Type WINDOWPOS hWnd As Long hWndInsertAfter As Long X As Long Y As Long cx As Long cy As Long Flags As Long End Type Private Type NCCALCSIZE_PARAMS rgrc(0 To 2) As RECT lppos As Long End Type Private Enum DTSTYLE DT_LEFT = &H0 DT_TOP = &H0 DT_CENTER = &H1 DT_RIGHT = &H2 DT_VCENTER = &H4 DT_BOTTOM = &H8 DT_WORDBREAK = &H10 DT_SINGLELINE = &H20 DT_EXPANDTABS = &H40 DT_TABSTOP = &H80 DT_NOCLIP = &H100 DT_EXTERNALLEADING = &H200 DT_CALCRECT = &H400 DT_NOPREFIX = &H800 DT_INTERNAL = &H1000 DT_EDITCONTROL = &H2000 DT_PATH_ELLIPSIS = &H4000 DT_FORE_ELLIPSIS = &H8000 DT_END_ELLIPSIS = &H8000& DT_MODIFYSTRING = &H10000 DT_RTLREADING = &H20000 DT_WORD_ELLIPSIS = &H40000 End Enum Private Const GWL_WNDPROC = (-4) Private Const GWL_STYLE = (-16) Private Const GWL_EXSTYLE = (-20) Private Const BM_SETSTYLE As Long = &HF4 Private Const BS_OWNERDRAW As Long = &HB& Private Const WM_ACTIVATE As Long = &H6 Private Const WM_GETTEXT As Long = &HD Private Const WM_DESTROY As Long = &H2 Private Const WM_PAINT As Long = &HF Private Const WM_LBUTTONDOWN As Long = &H201 Private Const WM_LBUTTONUP As Long = &H202 Private Const WM_MOUSEMOVE As Long = &H200 Private Const WM_SETFOCUS As Long = &H7 Private Const WM_KILLFOCUS As Long = &H8 Private Const WM_GETFONT As Long = &H31 Private Const WM_SETFONT As Long = &H30 Private Const WM_SIZE As Long = &H5 Private Const WM_MOUSELEAVE As Long = &H2A3 Private Const WM_TIMER As Long = &H113 Private Const WM_ENABLE As Long = &HA Private Const WM_KEYDOWN As Long = &H100 Private Const WM_KEYUP As Long = &H101 Private Const WM_NCCALCSIZE As Long = &H83 Private Const WM_NCPAINT As Long = &H85 Private Const WS_BORDER As Long = &H800000 Private Const WS_EX_CLIENTEDGE As Long = &H200& Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long Private Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hWnd As Long, ByVal lpString As String) As Long Private Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandleA Lib "kernel32" (ByVal lpModuleName As String) As Long Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function IsWindowEnabled Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function BeginPaint Lib "user32" (ByVal hWnd As Long, lpPaint As PAINTSTRUCT) As Long Private Declare Function EndPaint Lib "user32" (ByVal hWnd As Long, lpPaint As PAINTSTRUCT) As Long Private Declare Function TrackMouseEvent Lib "user32.dll" (ByRef lpEventTrack As TRACKMOUSEEVENTTYPE) As Long ' Win98 or later Private Declare Function TrackMouseEvent2 Lib "comctl32.dll" Alias "_TrackMouseEvent" (ByRef lpEventTrack As TRACKMOUSEEVENTTYPE) As Long ' Win95 w/ IE 3.0 Private Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long Private Declare Function RedrawWindow Lib "user32" (ByVal hWnd As Long, lprcUpdate As Any, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CreateDCAsNull Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, lpDeviceName As Any, lpOutput As Any, lpInitData As Any) As Long Private Declare Function CreateDC Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any) As Long Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long Private Declare Function SetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function StretchBlt Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, ByVal crColor As Long) As Long Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, ByVal nBkMode As Long) As Long Private Declare Function DrawFocusRect Lib "user32" (ByVal hDC As Long, lpRect As RECT) As Long Private Declare Function GetFocus Lib "user32" () As Long Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function FrameRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function FillRect Lib "user32" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long Private Declare Function Rectangle Lib "gdi32" (ByVal hDC As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function GetBkColor Lib "gdi32" (ByVal hDC As Long) As Long Private m_Init As Boolean '保存是否已经初始化 Private m_SrcDC As Long Private m_bTrackHandler32 As Boolean Private m_ButtonCount As Long '保存子类化的窗口和按钮个数，以便在销毁所有窗口和按钮之后可以释放资源 Private m_DialogCount As Long Public Function Attach(ByVal hWnd As Long) As Long If m_Init = False Then m_Init = True m_bTrackHandler32 = IsFunctionSupported("TrackMouseEvent", "User32") Call pInit End If Select Case LCase(pGetClassName(hWnd)) Case "thundercommandbutton", "thunderrt6commandbutton", "button" Attach = AttachButton(hWnd) Case "#32770", "thunderformdc", "thunderrt6formdc", "form" Call EnumChildWindows(hWnd, AddressOf pEnumChildProc, ByVal 0&) Attach = AttachDialog(hWnd) Case Else Debug.Print LCase(pGetClassName(hWnd)) End Select End Function Public Function Detach(ByVal hWnd As Long) As Long Select Case LCase(pGetClassName(hWnd)) Case "thundercommandbutton", "thunderrt6commandbutton", "button" Detach = DetachButton(hWnd) Case "#32770", "thunderformdc", "thunderrt6formdc", "form" Call EnumChildWindows(hWnd, AddressOf pDeEnumChildProc, ByVal 0&) Detach = DetachDialog(hWnd) End Select End Function Private Function AttachButton(ByVal hWnd As Long) As Long If GetProp(hWnd, "PROCADDR") Then Exit Function Dim I As Long Dim m_hDC As Long Dim m_mDC(3) As Long Dim m_BMP(3) As Long Dim m_wRect As RECTW m_hDC = GetWindowDC(hWnd) pGetWindowRectW hWnd, m_wRect For I = 0 To 3 m_mDC(I) = CreateCompatibleDC(m_hDC) m_BMP(I) = CreateCompatibleBitmap(m_hDC, m_wRect.Width, m_wRect.Height) DeleteObject SelectObject(m_mDC(I), m_BMP(I)) SetProp hWnd, "HDC" & CStr(I), m_mDC(I) SetProp hWnd, "BMP" & CStr(I), m_BMP(I) Next Call pDrawMemDC(hWnd) ReleaseDC hWnd, m_hDC SendMessage hWnd, BM_SETSTYLE, BS_OWNERDRAW, ByVal True SetProp hWnd, "MOUSEFLAG", 0 SetProp hWnd, "TIMERID", 0 SetProp hWnd, "OLDSTATE", IIf(IsWindowEnabled(hWnd), 0, 3) SetProp hWnd, "ALPHALEVEL", 0 SetWindowRgn hWnd, CreateRoundRectRgn(0, 0, m_wRect.Width + 1, m_wRect.Height + 1, 3, 3), True SetProp hWnd, "PROCADDR", SetWindowLong(hWnd, GWL_WNDPROC, AddressOf ButtonProc) m_ButtonCount = m_ButtonCount + 1 AttachButton = 1 End Function Private Function DetachButton(ByVal hWnd As Long) As Long Dim origProc As Long origProc = GetProp(hWnd, "PROCADDR") If origProc = 0 Then Exit Function Dim m_mDC(3) As Long Dim m_BMP(3) As Long Dim I As Long For I = 0 To 3 m_mDC(I) = GetProp(hWnd, "HDC" & CStr(I)) m_BMP(I) = GetProp(hWnd, "BMP" & CStr(I)) DeleteObject m_mDC(I) DeleteDC m_BMP(I) RemoveProp hWnd, "HDC" & CStr(I) RemoveProp hWnd, "BMP" & CStr(I) Next Call pKillTimer(hWnd) RemoveProp hWnd, "MOUSEFLAG" RemoveProp hWnd, "TIMERID" RemoveProp hWnd, "OLDSTATE" RemoveProp hWnd, "ALPHALEVEL" RemoveProp hWnd, "PROCADDR" SetWindowLong hWnd, -16, GetWindowLong(hWnd, -16) And Not BS_OWNERDRAW SetWindowRgn hWnd, 0&, ByVal True SetWindowLong hWnd, GWL_WNDPROC, origProc RedrawWindow hWnd, ByVal 0&, ByVal 0&, &H1 m_ButtonCount = m_ButtonCount - 1 If m_ButtonCount <= 0 And m_DialogCount <= 0 Then DeleteDC m_SrcDC m_Init = False End If DetachButton = 1 End Function Private Function AttachBasic(ByVal hWnd As Long) As Long If GetProp(hWnd, "PROCADDR") Then Exit Function SetProp hWnd, "PROCADDR", SetWindowLong(hWnd, GWL_WNDPROC, AddressOf BasicProc) 'RedrawWindow hWnd, ByVal 0&, ByVal 0&, &H2 SendMessage hWnd, WM_NCPAINT, 1&, 0& AttachBasic = 1 End Function Private Function DetachBasic(ByVal hWnd As Long) As Long Dim origProc As Long origProc = GetProp(hWnd, "PROCADDR") If origProc = 0 Then Exit Function RemoveProp hWnd, "PROCADDR" SetWindowLong hWnd, GWL_WNDPROC, origProc 'RedrawWindow hWnd, ByVal 0&, ByVal 0&, &H2 SendMessage hWnd, WM_NCPAINT, 1&, 0& DetachBasic = 1 End Function Private Function AttachDialog(ByVal hWnd As Long) As Long If GetProp(hWnd, "PROCADDR") Then Exit Function SetProp hWnd, "PROCADDR", SetWindowLong(hWnd, GWL_WNDPROC, AddressOf DialogProc) m_DialogCount = m_DialogCount + 1 AttachDialog = 1 End Function Private Function DetachDialog(ByVal hWnd As Long) As Long Dim origProc As Long origProc = GetProp(hWnd, "PROCADDR") If origProc = 0 Then Exit Function RemoveProp hWnd, "PROCADDR" SetWindowLong hWnd, GWL_WNDPROC, origProc m_DialogCount = m_DialogCount - 1 If m_ButtonCount <= 0 And m_DialogCount <= 0 Then DeleteDC m_SrcDC m_Init = False End If DetachDialog = 1 End Function Private Function ButtonProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim origProc As Long Dim m_hDC As Long Dim m_wRect As RECTW If hWnd = 0 Then Exit Function origProc = GetProp(hWnd, "PROCADDR") If Not origProc = 0 Then If uMsg = WM_DESTROY Then Call DetachButton(hWnd) Else Select Case uMsg Case WM_PAINT ButtonProc = False Dim mState As Long Dim PS As PAINTSTRUCT Call BeginPaint(hWnd, PS) Call pGetWindowRectW(hWnd, m_wRect) mState = GetProp(hWnd, "OLDSTATE") BitBlt PS.hDC, 0, 0, m_wRect.Width, m_wRect.Height, GetProp(hWnd, "HDC" & CStr(mState)), 0, 0, vbSrcCopy Call EndPaint(hWnd, PS) Exit Function Case WM_SIZE ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Dim I As Long Dim m_mDC(3) As Long Dim m_BMP(3) As Long m_hDC = GetWindowDC(hWnd) Call pGetWindowRectW(hWnd, m_wRect) For I = 0 To 3 m_mDC(I) = GetProp(hWnd, "HDC" & CStr(I)) m_BMP(I) = CreateCompatibleBitmap(m_hDC, m_wRect.Width, m_wRect.Height) DeleteObject SelectObject(m_mDC(I), m_BMP(I)) Next Call pDrawMemDC(hWnd) ReleaseDC hWnd, m_hDC SetWindowRgn hWnd, CreateRoundRectRgn(0, 0, m_wRect.Width + 1, m_wRect.Height + 1, 3, 3), True Exit Function Case WM_KEYDOWN If wParam = 32 Then ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call SetProp(hWnd, "ALPHALEVEL", 50) Call SetProp(hWnd, "OLDSTATE", 2) Call pSetTimer(hWnd) Exit Function End If Case WM_KEYUP If wParam = 32 Then ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call SetProp(hWnd, "MOUSEFLAG", 0) Call SetProp(hWnd, "ALPHALEVEL", 0) Call SetProp(hWnd, "OLDSTATE", 0) Call pSetTimer(hWnd) Exit Function End If Case WM_LBUTTONDOWN ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call SetProp(hWnd, "OLDSTATE", 2) Call SetProp(hWnd, "ALPHALEVEL", 10) Call pSetTimer(hWnd) Exit Function Case WM_LBUTTONUP ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call SetProp(hWnd, "MOUSEFLAG", 0) Call SetProp(hWnd, "OLDSTATE", 0) Call SetProp(hWnd, "ALPHALEVEL", 0) Call pSetTimer(hWnd) Exit Function Case WM_MOUSEMOVE ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) If GetProp(hWnd, "MOUSEFLAG") = 0 Then Call SetProp(hWnd, "MOUSEFLAG", 1) Call pTrackMouseTracking(hWnd) Call pGetWindowRectW(hWnd, m_wRect) 'm_hDC = GetWindowDC(hWnd) 'AlphaBlend m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, GetProp(hWnd, "HDC1"), 0, 0, m_wRect.Width, m_wRect.Height, 50 * &H10000 'ReleaseDC hWnd, m_hDC Call SetProp(hWnd, "OLDSTATE", 1) Call SetProp(hWnd, "ALPHALEVEL", 70) Call pSetTimer(hWnd) End If Exit Function Case WM_MOUSELEAVE ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call SetProp(hWnd, "MOUSEFLAG", 0) Call SetProp(hWnd, "OLDSTATE", 0) Call SetProp(hWnd, "ALPHALEVEL", 0) Call pSetTimer(hWnd) Exit Function Case WM_SETFOCUS, WM_KILLFOCUS ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) Call pDrawMemDC(hWnd) Call SetProp(hWnd, "ALPHALEVEL", 0) Call pSetTimer(hWnd) Exit Function Case WM_TIMER Dim m_sDC As Long Dim m_Level As Long Dim m_State As Long Call pGetWindowRectW(hWnd, m_wRect) m_State = GetProp(hWnd, "OLDSTATE") m_Level = GetProp(hWnd, "ALPHALEVEL") m_sDC = GetProp(hWnd, "HDC" & CStr(m_State)) m_hDC = GetWindowDC(hWnd) AlphaBlend m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, m_sDC, 0, 0, m_wRect.Width, m_wRect.Height, m_Level * &H10000 ReleaseDC hWnd, m_hDC m_Level = m_Level + 3 '这里的+3是速度，可以改变Timer的时间和+的数值以改变速度 If m_Level > 255 Then Call pKillTimer(hWnd) Call SetProp(hWnd, "ALPHALEVEL", 0) Else Call SetProp(hWnd, "ALPHALEVEL", m_Level) End If Case WM_ENABLE ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) m_hDC = GetWindowDC(hWnd) Call pGetWindowRectW(hWnd, m_wRect) If wParam Then Call SetProp(hWnd, "OLDSTATE", 0) BitBlt m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, GetProp(hWnd, "HDC0"), 0, 0, vbSrcCopy Else Call SetProp(hWnd, "OLDSTATE", 3) BitBlt m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, GetProp(hWnd, "HDC3"), 0, 0, vbSrcCopy End If ReleaseDC hWnd, m_hDC Exit Function End Select ButtonProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) End If Else ButtonProc = DefWindowProc(hWnd, uMsg, wParam, lParam) End If End Function Private Function DialogProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim origProc As Long If hWnd = 0 Then Exit Function origProc = GetProp(hWnd, "PROCADDR") If Not origProc = 0 Then If uMsg = WM_DESTROY Then Call DetachDialog(hWnd) Else Select Case uMsg Case WM_ACTIVATE If Not (lParam = hWnd Or lParam = 0) Then Select Case LCase(pGetClassName(lParam)) Case "#32770", "thunderformdc", "thunderrt6formdc", "form", "newhelpclass" Attach lParam End Select End If End Select DialogProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) End If Else DialogProc = DefWindowProc(hWnd, uMsg, wParam, lParam) End If End Function Private Function BasicProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim origProc As Long If hWnd = 0 Then Exit Function origProc = GetProp(hWnd, "PROCADDR") If Not origProc = 0 Then If uMsg = WM_DESTROY Then Call DetachBasic(hWnd) Else Select Case uMsg Case WM_NCPAINT BasicProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) If GetWindowLong(hWnd, GWL_EXSTYLE) And WS_EX_CLIENTEDGE Then Dim m_wRect As RECTW Dim m_hDC As Long Dim m_cDC As Long Dim m_Width As Long Dim m_Height As Long Dim I As Long Call pGetWindowRectW(hWnd, m_wRect) m_hDC = GetWindowDC(hWnd) m_cDC = GetDC(hWnd) If IsWindowEnabled(hWnd) Then Call pFrameRect(m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, &HD5A554) Else Call pFrameRect(m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, &HCCCCCC) End If Call pFrameRect(m_hDC, 1, 1, m_wRect.Width - 2, m_wRect.Height - 2, GetBkColor(m_cDC)) Call pFrameRect(m_hDC, 2, 2, m_wRect.Width - 4, m_wRect.Height - 4, GetBkColor(m_cDC)) ReleaseDC hWnd, m_cDC ReleaseDC hWnd, m_hDC End If Exit Function End Select BasicProc = CallWindowProc(origProc, hWnd, uMsg, wParam, lParam) End If Else BasicProc = DefWindowProc(hWnd, uMsg, wParam, lParam) End If End Function Private Function pEnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long Select Case LCase(pGetClassName(hWnd)) Case "thundercommandbutton", "thunderrt6commandbutton", "button" Call AttachButton(hWnd) Case Else Call AttachBasic(hWnd) 'Case "#32770", "thunderformdc", "thunderrt6formdc", "form" End Select pEnumChildProc = 1 End Function Private Function pDeEnumChildProc(ByVal hWnd As Long, ByVal lParam As Long) As Long Select Case LCase(pGetClassName(hWnd)) Case "thundercommandbutton", "thunderrt6commandbutton", "button" Call DetachButton(hWnd) Case Else Call DetachBasic(hWnd) 'Case "#32770", "thunderformdc", "thunderrt6formdc", "form" End Select pDeEnumChildProc = 1 End Function Private Function pGetClassName(ByVal hWnd As Long) As String On Error Resume Next Dim BuffStr As String Dim BuffStrLen As Long Dim Rtn As Long BuffStr = String$(255, Chr(0)) BuffStrLen = Len(BuffStr) Rtn = GetClassName(hWnd, ByVal BuffStr, BuffStrLen) If Not Rtn = 0 Then Dim iPos As Long iPos = InStr(1, BuffStr, Chr(0)) - 1 If iPos < Len(BuffStr) Then pGetClassName = Left$(BuffStr, iPos) Else pGetClassName = BuffStr End If End If End Function Private Function pGetWindowText(ByVal hWnd As Long) As String Dim BuffStr As String Dim BuffStrLen As Long BuffStrLen = GetWindowTextLength(hWnd) BuffStr = String(BuffStrLen, Chr(0)) Call GetWindowText(hWnd, ByVal BuffStr, BuffStrLen + 1) pGetWindowText = BuffStr End Function Private Function pGetText(ByVal hWnd As Long) As String Dim BuffStr As String, BuffStrLen As Long, Rtn As Long BuffStrLen = GetWindowTextLength(hWnd) BuffStr = String(BuffStrLen, Chr(0)) Rtn = SendMessage(hWnd, WM_GETTEXT, BuffStrLen + 1, ByVal BuffStr) pGetText = BuffStr End Function Private Function pDrawText(ByVal hDC As Long, ByVal Text As String, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal lpFlag As DTSTYLE) As Long Dim TmpRect As RECT With TmpRect .Left = X1 .Top = Y1 .Right = X2 .Bottom = Y2 End With pDrawText = DrawText(hDC, Text, -1, TmpRect, lpFlag) End Function Private Function pDrawTextL(ByVal hDC As Long, ByVal Text As String, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal lpFlag As DTSTYLE) As Long Dim TmpRect As RECT With TmpRect .Left = X .Top = Y .Right = X + Width .Bottom = Y + Height End With pDrawTextL = DrawText(hDC, Text, -1, TmpRect, lpFlag) End Function Private Function pGetWindowRectW(ByVal hWnd As Long, lpRectW As RECTW) As Long Dim TmpRect As RECT Dim Rtn As Long Rtn = GetWindowRect(hWnd, TmpRect) With lpRectW .Left = TmpRect.Left .Top = TmpRect.Top .Right = TmpRect.Right .Bottom = TmpRect.Bottom .Width = TmpRect.Right - TmpRect.Left .Height = TmpRect.Bottom - TmpRect.Top End With pGetWindowRectW = Rtn End Function Private Function pDrawFocusRect(ByVal hDC As Long, ByVal X As Long, ByVal Y As Long, ByVal Width As Long, ByVal Height As Long) As Long Dim TmpRect As RECT With TmpRect .Left = X .Top = Y .Right = X + Width .Bottom = Y + Height End With pDrawFocusRect = DrawFocusRect(hDC, TmpRect) End Function Private Function pFrameRect(ByVal hDC As Long, ByVal X As Long, Y As Long, ByVal Width As Long, ByVal Height As Long, ByVal Color As Long) As Long Dim TmpRect As RECT Dim m_hBrush As Long With TmpRect .Left = X .Top = Y .Right = X + Width .Bottom = Y + Height End With m_hBrush = CreateSolidBrush(Color) pFrameRect = FrameRect(hDC, TmpRect, m_hBrush) DeleteObject m_hBrush End Function Private Function pDrawBorderLine(ByVal hWnd As Long, ByVal State As Long) As Long Dim m_wRect As RECTW Dim m_hDC As Long If GetWindowLong(hWnd, GWL_EXSTYLE) And WS_EX_CLIENTEDGE Then Call pGetWindowRectW(hWnd, m_wRect) m_hDC = GetWindowDC(hWnd) If State = 0 Then Call pFrameRect(m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, &HD5A554) Call pFrameRect(m_hDC, 1, 1, m_wRect.Width - 2, m_wRect.Height - 2, &HF4E7D3) Else Call pFrameRect(m_hDC, 0, 0, m_wRect.Width, m_wRect.Height, &HF4E7D3) Call pFrameRect(m_hDC, 1, 1, m_wRect.Width - 2, m_wRect.Height - 2, &HD5A554) End If ReleaseDC hWnd, m_hDC pDrawBorderLine = 1 End If End Function Private Function pSetTimer(ByVal hWnd As Long) As Long Dim m_TimerID As Long m_TimerID = GetProp(hWnd, "TIMERID") If m_TimerID Then Exit Function m_TimerID = SetTimer(hWnd, 1, 15, 0&) Call SetProp(hWnd, "TIMERID", m_TimerID) pSetTimer = m_TimerID End Function Private Function pKillTimer(ByVal hWnd As Long) As Long Dim m_TimerID As Long m_TimerID = GetProp(hWnd, "TIMERID") If Not m_TimerID Then Exit Function Call SetProp(hWnd, "TIMERID", 0) pKillTimer = KillTimer(hWnd, m_TimerID) End Function Private Function IsFunctionSupported(sFunction As String, sModule As String) As Boolean Dim hModule As Long hModule = GetModuleHandleA(sModule) If (hModule = 0) Then hModule = LoadLibrary(sModule) End If If (hModule) Then If (GetProcAddress(hModule, sFunction)) Then IsFunctionSupported = True End If FreeLibrary hModule End If End Function Private Sub pTrackMouseTracking(hWnd As Long) Dim lpEventTrack As TRACKMOUSEEVENTTYPE With lpEventTrack .cbSize = Len(lpEventTrack) .dwFlags = &H2 .hwndTrack = hWnd End With If (m_bTrackHandler32) Then TrackMouseEvent lpEventTrack Else TrackMouseEvent2 lpEventTrack End If End Sub Private Sub pDrawMemDC(ByVal hWnd As Long) Dim m_wRect As RECTW Dim m_wText As String Dim I As Long Dim m_hDC(3) As Long Call pGetWindowRectW(hWnd, m_wRect) m_wText = pGetWindowText(hWnd) For I = 0 To 3 m_hDC(I) = GetProp(hWnd, "HDC" & CStr(I)) SelectObject m_hDC(I), SendMessage(hWnd, WM_GETFONT, 0&, 0&) SetBkMode m_hDC(I), 1 BitBlt m_hDC(I), 0, 0, 4, 5, m_SrcDC, 0, I * 21, vbSrcCopy StretchBlt m_hDC(I), 4, 0, m_wRect.Width - 8, 5, m_SrcDC, 4, I * 21, 1, 5, vbSrcCopy BitBlt m_hDC(I), m_wRect.Width - 4, 0, 4, 5, m_SrcDC, 5, I * 21, vbSrcCopy StretchBlt m_hDC(I), 0, 5, 4, m_wRect.Height - 10, m_SrcDC, 0, I * 21 + 5, 4, 11, vbSrcCopy StretchBlt m_hDC(I), m_wRect.Width - 4, 5, 4, m_wRect.Height - 10, m_SrcDC, 5, I * 21 + 5, 4, 11, vbSrcCopy BitBlt m_hDC(I), 0, m_wRect.Height - 5, 4, 5, m_SrcDC, 0, I * 21 + 16, vbSrcCopy BitBlt m_hDC(I), m_wRect.Width - 4, m_wRect.Height - 5, 4, 5, m_SrcDC, 5, I * 21 + 16, vbSrcCopy StretchBlt m_hDC(I), 4, m_wRect.Height - 5, m_wRect.Width - 8, 5, m_SrcDC, 4, I * 21 + 16, 1, 5, vbSrcCopy StretchBlt m_hDC(I), 4, 5, m_wRect.Width - 8, m_wRect.Height - 10, m_SrcDC, 4, I * 21 + 5, 1, 11, vbSrcCopy SetTextColor m_hDC(I), IIf(I = 3, &H808080, 0&) pDrawTextL m_hDC(I), m_wText, 2, 2, m_wRect.Width - 4, m_wRect.Height - 4, DT_CENTER Or DT_VCENTER Or DT_SINGLELINE Or DT_END_ELLIPSIS If GetFocus = hWnd Then pDrawFocusRect m_hDC(I), 2, 2, m_wRect.Width - 4, m_wRect.Height - 4 Next End Sub Private Sub pInit() Dim TmpDC As Long Dim TmpBMP As Long TmpDC = CreateDC("DISPLAY", "", "", ByVal 0&) TmpBMP = CreateCompatibleBitmap(TmpDC, 9, 84) m_SrcDC = CreateCompatibleDC(TmpDC) DeleteObject SelectObject(m_SrcDC, TmpBMP) DeleteObject TmpBMP DeleteDC TmpDC SetPixel m_SrcDC, 0, 0, 15121016 SetPixel m_SrcDC, 1, 0, 14922603 SetPixel m_SrcDC, 2, 0, 14194476 SetPixel m_SrcDC, 3, 0, 13995803 SetPixel m_SrcDC, 4, 0, 13995803 SetPixel m_SrcDC, 5, 0, 13995803 SetPixel m_SrcDC, 6, 0, 14194476 SetPixel m_SrcDC, 7, 0, 14922603 SetPixel m_SrcDC, 8, 0, 15121016 SetPixel m_SrcDC, 0, 1, 14856809 SetPixel m_SrcDC, 1, 1, 15188094 SetPixel m_SrcDC, 2, 1, 16511975 SetPixel m_SrcDC, 3, 1, 16777215 SetPixel m_SrcDC, 4, 1, 16777215 SetPixel m_SrcDC, 5, 1, 16777215 SetPixel m_SrcDC, 6, 1, 16511975 SetPixel m_SrcDC, 7, 1, 15188094 SetPixel m_SrcDC, 8, 1, 14856809 SetPixel m_SrcDC, 0, 2, 14128425 SetPixel m_SrcDC, 1, 2, 16578284 SetPixel m_SrcDC, 2, 2, 16777215 SetPixel m_SrcDC, 3, 2, 16777215 SetPixel m_SrcDC, 4, 2, 16777215 SetPixel m_SrcDC, 5, 2, 16777215 SetPixel m_SrcDC, 6, 2, 16777215 SetPixel m_SrcDC, 7, 2, 16578284 SetPixel m_SrcDC, 8, 2, 14128425 SetPixel m_SrcDC, 0, 3, 13995803 SetPixel m_SrcDC, 1, 3, 16644853 SetPixel m_SrcDC, 2, 3, 16578801 SetPixel m_SrcDC, 3, 3, 16578801 SetPixel m_SrcDC, 4, 3, 16578801 SetPixel m_SrcDC, 5, 3, 16578801 SetPixel m_SrcDC, 6, 3, 16578801 SetPixel m_SrcDC, 7, 3, 16644853 SetPixel m_SrcDC, 8, 3, 13995803 SetPixel m_SrcDC, 0, 4, 13995803 SetPixel m_SrcDC, 1, 4, 16579059 SetPixel m_SrcDC, 2, 4, 16512750 SetPixel m_SrcDC, 3, 4, 16512750 SetPixel m_SrcDC, 4, 4, 16512750 SetPixel m_SrcDC, 5, 4, 16512750 SetPixel m_SrcDC, 6, 4, 16512750 SetPixel m_SrcDC, 7, 4, 16579059 SetPixel m_SrcDC, 8, 4, 13995803 SetPixel m_SrcDC, 0, 5, 13995803 SetPixel m_SrcDC, 1, 5, 16578544 SetPixel m_SrcDC, 2, 5, 16512234 SetPixel m_SrcDC, 3, 5, 16512234 SetPixel m_SrcDC, 4, 5, 16512234 SetPixel m_SrcDC, 5, 5, 16512234 SetPixel m_SrcDC, 6, 5, 16512234 SetPixel m_SrcDC, 7, 5, 16578544 SetPixel m_SrcDC, 8, 5, 13995803 SetPixel m_SrcDC, 0, 6, 13995803 SetPixel m_SrcDC, 1, 6, 16578286 SetPixel m_SrcDC, 2, 6, 16511718 SetPixel m_SrcDC, 3, 6, 16511718 SetPixel m_SrcDC, 4, 6, 16511718 SetPixel m_SrcDC, 5, 6, 16511718 SetPixel m_SrcDC, 6, 6, 16511718 SetPixel m_SrcDC, 7, 6, 16578286 SetPixel m_SrcDC, 8, 6, 13995803 SetPixel m_SrcDC, 0, 7, 13995803 SetPixel m_SrcDC, 1, 7, 16578027 SetPixel m_SrcDC, 2, 7, 16445666 SetPixel m_SrcDC, 3, 7, 16445666 SetPixel m_SrcDC, 4, 7, 16445666 SetPixel m_SrcDC, 5, 7, 16445666 SetPixel m_SrcDC, 6, 7, 16445666 SetPixel m_SrcDC, 7, 7, 16578027 SetPixel m_SrcDC, 8, 7, 13995803 SetPixel m_SrcDC, 0, 8, 13995803 SetPixel m_SrcDC, 1, 8, 16577512 SetPixel m_SrcDC, 2, 8, 16445150 SetPixel m_SrcDC, 3, 8, 16445150 SetPixel m_SrcDC, 4, 8, 16445150 SetPixel m_SrcDC, 5, 8, 16445150 SetPixel m_SrcDC, 6, 8, 16445150 SetPixel m_SrcDC, 7, 8, 16577512 SetPixel m_SrcDC, 8, 8, 13995803 SetPixel m_SrcDC, 0, 9, 13995803 SetPixel m_SrcDC, 1, 9, 16511717 SetPixel m_SrcDC, 2, 9, 16379098 SetPixel m_SrcDC, 3, 9, 16379098 SetPixel m_SrcDC, 4, 9, 16379098 SetPixel m_SrcDC, 5, 9, 16379098 SetPixel m_SrcDC, 6, 9, 16379098 SetPixel m_SrcDC, 7, 9, 16511717 SetPixel m_SrcDC, 8, 9, 13995803 SetPixel m_SrcDC, 0, 10, 13995803 SetPixel m_SrcDC, 1, 10, 16511203 SetPixel m_SrcDC, 2, 10, 16378583 SetPixel m_SrcDC, 3, 10, 16378583 SetPixel m_SrcDC, 4, 10, 16378583 SetPixel m_SrcDC, 5, 10, 16378583 SetPixel m_SrcDC, 6, 10, 16378583 SetPixel m_SrcDC, 7, 10, 16511203 SetPixel m_SrcDC, 8, 10, 13995803 SetPixel m_SrcDC, 0, 11, 13995803 SetPixel m_SrcDC, 1, 11, 16313307 SetPixel m_SrcDC, 2, 11, 16114380 SetPixel m_SrcDC, 3, 11, 16114380 SetPixel m_SrcDC, 4, 11, 16114380 SetPixel m_SrcDC, 5, 11, 16114380 SetPixel m_SrcDC, 6, 11, 16114380 SetPixel m_SrcDC, 7, 11, 16313307 SetPixel m_SrcDC, 8, 11, 13995803 SetPixel m_SrcDC, 0, 12, 13995803 SetPixel m_SrcDC, 1, 12, 16247257 SetPixel m_SrcDC, 2, 12, 15982536 SetPixel m_SrcDC, 3, 12, 15982536 SetPixel m_SrcDC, 4, 12, 15982536 SetPixel m_SrcDC, 5, 12, 15982536 SetPixel m_SrcDC, 6, 12, 15982536 SetPixel m_SrcDC, 7, 12, 16247257 SetPixel m_SrcDC, 8, 12, 13995803 SetPixel m_SrcDC, 0, 13, 13995803 SetPixel m_SrcDC, 1, 13, 16115669 SetPixel m_SrcDC, 2, 13, 15850691 SetPixel m_SrcDC, 3, 13, 15850691 SetPixel m_SrcDC, 4, 13, 15850691 SetPixel m_SrcDC, 5, 13, 15850691 SetPixel m_SrcDC, 6, 13, 15850691 SetPixel m_SrcDC, 7, 13, 16115669 SetPixel m_SrcDC, 8, 13, 13995803 SetPixel m_SrcDC, 0, 14, 13995803 SetPixel m_SrcDC, 1, 14, 16049362 SetPixel m_SrcDC, 2, 14, 15718590 SetPixel m_SrcDC, 3, 14, 15718590 SetPixel m_SrcDC, 4, 14, 15718590 SetPixel m_SrcDC, 5, 14, 15718590 SetPixel m_SrcDC, 6, 14, 15718590 SetPixel m_SrcDC, 7, 14, 16049362 SetPixel m_SrcDC, 8, 14, 13995803 SetPixel m_SrcDC, 0, 15, 13995803 SetPixel m_SrcDC, 1, 15, 15917773 SetPixel m_SrcDC, 2, 15, 15586744 SetPixel m_SrcDC, 3, 15, 15586744 SetPixel m_SrcDC, 4, 15, 15586744 SetPixel m_SrcDC, 5, 15, 15586744 SetPixel m_SrcDC, 6, 15, 15586744 SetPixel m_SrcDC, 7, 15, 15917773 SetPixel m_SrcDC, 8, 15, 13995803 SetPixel m_SrcDC, 0, 16, 13995803 SetPixel m_SrcDC, 1, 16, 15851723 SetPixel m_SrcDC, 2, 16, 15454900 SetPixel m_SrcDC, 3, 16, 15454900 SetPixel m_SrcDC, 4, 16, 15454900 SetPixel m_SrcDC, 5, 16, 15454900 SetPixel m_SrcDC, 6, 16, 15454900 SetPixel m_SrcDC, 7, 16, 15851723 SetPixel m_SrcDC, 8, 16, 13995803 SetPixel m_SrcDC, 0, 17, 13995803 SetPixel m_SrcDC, 1, 17, 15785673 SetPixel m_SrcDC, 2, 17, 15388849 SetPixel m_SrcDC, 3, 17, 15388849 SetPixel m_SrcDC, 4, 17, 15388849 SetPixel m_SrcDC, 5, 17, 15388849 SetPixel m_SrcDC, 6, 17, 15388849 SetPixel m_SrcDC, 7, 17, 15785673 SetPixel m_SrcDC, 8, 17, 13995803 SetPixel m_SrcDC, 0, 18, 14128424 SetPixel m_SrcDC, 1, 18, 15652794 SetPixel m_SrcDC, 2, 18, 15521467 SetPixel m_SrcDC, 3, 18, 15323056 SetPixel m_SrcDC, 4, 18, 15323056 SetPixel m_SrcDC, 5, 18, 15323056 SetPixel m_SrcDC, 6, 18, 15521211 SetPixel m_SrcDC, 7, 18, 15652794 SetPixel m_SrcDC, 8, 18, 14128424 SetPixel m_SrcDC, 0, 19, 14856292 SetPixel m_SrcDC, 1, 19, 14791272 SetPixel m_SrcDC, 2, 19, 15653051 SetPixel m_SrcDC, 3, 19, 15851724 SetPixel m_SrcDC, 4, 19, 15851724 SetPixel m_SrcDC, 5, 19, 15851724 SetPixel m_SrcDC, 6, 19, 15653051 SetPixel m_SrcDC, 7, 19, 14791272 SetPixel m_SrcDC, 8, 19, 14790498 SetPixel m_SrcDC, 0, 20, 14988912 SetPixel m_SrcDC, 1, 20, 14790240 SetPixel m_SrcDC, 2, 20, 14194218 SetPixel m_SrcDC, 3, 20, 13995803 SetPixel m_SrcDC, 4, 20, 13995803 SetPixel m_SrcDC, 5, 20, 13995803 SetPixel m_SrcDC, 6, 20, 14194218 SetPixel m_SrcDC, 7, 20, 14790240 SetPixel m_SrcDC, 8, 20, 14988912 SetPixel m_SrcDC, 0, 21, 15121018 SetPixel m_SrcDC, 1, 21, 14922603 SetPixel m_SrcDC, 2, 21, 14194476 SetPixel m_SrcDC, 3, 21, 13995803 SetPixel m_SrcDC, 4, 21, 13995803 SetPixel m_SrcDC, 5, 21, 13995803 SetPixel m_SrcDC, 6, 21, 14194476 SetPixel m_SrcDC, 7, 21, 14922603 SetPixel m_SrcDC, 8, 21, 15121018 SetPixel m_SrcDC, 0, 22, 14856809 SetPixel m_SrcDC, 1, 22, 15115048 SetPixel m_SrcDC, 2, 22, 16300860 SetPixel m_SrcDC, 3, 22, 16565063 SetPixel m_SrcDC, 4, 22, 16499532 SetPixel m_SrcDC, 5, 22, 16499271 SetPixel m_SrcDC, 6, 22, 16300860 SetPixel m_SrcDC, 7, 22, 15115048 SetPixel m_SrcDC, 8, 22, 14856809 SetPixel m_SrcDC, 0, 23, 14128425 SetPixel m_SrcDC, 1, 23, 16366653 SetPixel m_SrcDC, 2, 23, 16702093 SetPixel m_SrcDC, 3, 23, 16771255 SetPixel m_SrcDC, 4, 23, 16772550 SetPixel m_SrcDC, 5, 23, 16771255 SetPixel m_SrcDC, 6, 23, 16702093 SetPixel m_SrcDC, 7, 23, 16366653 SetPixel m_SrcDC, 8, 23, 14128425 SetPixel m_SrcDC, 0, 24, 13995803 SetPixel m_SrcDC, 1, 24, 16499014 SetPixel m_SrcDC, 2, 24, 16638894 SetPixel m_SrcDC, 3, 24, 16640966 SetPixel m_SrcDC, 4, 24, 16576210 SetPixel m_SrcDC, 5, 24, 16640965 SetPixel m_SrcDC, 6, 24, 16704688 SetPixel m_SrcDC, 7, 24, 16499014 SetPixel m_SrcDC, 8, 24, 13995803 SetPixel m_SrcDC, 0, 25, 13995803 SetPixel m_SrcDC, 1, 25, 16499274 SetPixel m_SrcDC, 2, 25, 16639930 SetPixel m_SrcDC, 3, 25, 16642003 SetPixel m_SrcDC, 4, 25, 16577247 SetPixel m_SrcDC, 5, 25, 16642003 SetPixel m_SrcDC, 6, 25, 16639931 SetPixel m_SrcDC, 7, 25, 16499274 SetPixel m_SrcDC, 8, 25, 13995803 SetPixel m_SrcDC, 0, 26, 13995803 SetPixel m_SrcDC, 1, 26, 16499532 SetPixel m_SrcDC, 2, 26, 16640192 SetPixel m_SrcDC, 3, 26, 16642265 SetPixel m_SrcDC, 4, 26, 16577252 SetPixel m_SrcDC, 5, 26, 16642265 SetPixel m_SrcDC, 6, 26, 16640192 SetPixel m_SrcDC, 7, 26, 16499532 SetPixel m_SrcDC, 8, 26, 13995803 SetPixel m_SrcDC, 0, 27, 13995803 SetPixel m_SrcDC, 1, 27, 16499532 SetPixel m_SrcDC, 2, 27, 16639936 SetPixel m_SrcDC, 3, 27, 16642265 SetPixel m_SrcDC, 4, 27, 16577250 SetPixel m_SrcDC, 5, 27, 16642265 SetPixel m_SrcDC, 6, 27, 16639936 SetPixel m_SrcDC, 7, 27, 16499532 SetPixel m_SrcDC, 8, 27, 13995803 SetPixel m_SrcDC, 0, 28, 13995803 SetPixel m_SrcDC, 1, 28, 16499532 SetPixel m_SrcDC, 2, 28, 16574399 SetPixel m_SrcDC, 3, 28, 16576728 SetPixel m_SrcDC, 4, 28, 16511456 SetPixel m_SrcDC, 5, 28, 16576728 SetPixel m_SrcDC, 6, 28, 16574399 SetPixel m_SrcDC, 7, 28, 16499532 SetPixel m_SrcDC, 8, 28, 13995803 SetPixel m_SrcDC, 0, 29, 13995803 SetPixel m_SrcDC, 1, 29, 16499275 SetPixel m_SrcDC, 2, 29, 16574140 SetPixel m_SrcDC, 3, 29, 16576470 SetPixel m_SrcDC, 4, 29, 16511197 SetPixel m_SrcDC, 5, 29, 16576470 SetPixel m_SrcDC, 6, 29, 16574140 SetPixel m_SrcDC, 7, 29, 16499275 SetPixel m_SrcDC, 8, 29, 13995803 SetPixel m_SrcDC, 0, 30, 13995803 SetPixel m_SrcDC, 1, 30, 16499274 SetPixel m_SrcDC, 2, 30, 16573882 SetPixel m_SrcDC, 3, 30, 16576212 SetPixel m_SrcDC, 4, 30, 16510683 SetPixel m_SrcDC, 5, 30, 16576212 SetPixel m_SrcDC, 6, 30, 16573882 SetPixel m_SrcDC, 7, 30, 16499274 SetPixel m_SrcDC, 8, 30, 13995803 SetPixel m_SrcDC, 0, 31, 13995803 SetPixel m_SrcDC, 1, 31, 16499274 SetPixel m_SrcDC, 2, 31, 16573625 SetPixel m_SrcDC, 3, 31, 16575955 SetPixel m_SrcDC, 4, 31, 16510425 SetPixel m_SrcDC, 5, 31, 16575955 SetPixel m_SrcDC, 6, 31, 16573625 SetPixel m_SrcDC, 7, 31, 16499274 SetPixel m_SrcDC, 8, 31, 13995803 SetPixel m_SrcDC, 0, 32, 13995803 SetPixel m_SrcDC, 1, 32, 16432966 SetPixel m_SrcDC, 2, 32, 16375214 SetPixel m_SrcDC, 3, 32, 16443081 SetPixel m_SrcDC, 4, 32, 16245963 SetPixel m_SrcDC, 5, 32, 16443081 SetPixel m_SrcDC, 6, 32, 16375214 SetPixel m_SrcDC, 7, 32, 16432966 SetPixel m_SrcDC, 8, 32, 13995803 SetPixel m_SrcDC, 0, 33, 13995803 SetPixel m_SrcDC, 1, 33, 16432965 SetPixel m_SrcDC, 2, 33, 16243370 SetPixel m_SrcDC, 3, 33, 16311494 SetPixel m_SrcDC, 4, 33, 16114119 SetPixel m_SrcDC, 5, 33, 16311494 SetPixel m_SrcDC, 6, 33, 16243370 SetPixel m_SrcDC, 7, 33, 16432965 SetPixel m_SrcDC, 8, 33, 13995803 SetPixel m_SrcDC, 0, 34, 13995803 SetPixel m_SrcDC, 1, 34, 16367172 SetPixel m_SrcDC, 2, 34, 16177319 SetPixel m_SrcDC, 3, 34, 16245443 SetPixel m_SrcDC, 4, 34, 15982274 SetPixel m_SrcDC, 5, 34, 16245443 SetPixel m_SrcDC, 6, 34, 16177319 SetPixel m_SrcDC, 7, 34, 16367172 SetPixel m_SrcDC, 8, 34, 13995803 SetPixel m_SrcDC, 0, 35, 13995803 SetPixel m_SrcDC, 1, 35, 16301378 SetPixel m_SrcDC, 2, 35, 16045730 SetPixel m_SrcDC, 3, 35, 16113855 SetPixel m_SrcDC, 4, 35, 15915964 SetPixel m_SrcDC, 5, 35, 16113855 SetPixel m_SrcDC, 6, 35, 16045730 SetPixel m_SrcDC, 7, 35, 16301378 SetPixel m_SrcDC, 8, 35, 13995803 SetPixel m_SrcDC, 0, 36, 13995803 SetPixel m_SrcDC, 1, 36, 16301121 SetPixel m_SrcDC, 2, 36, 15979165 SetPixel m_SrcDC, 3, 36, 16113082 SetPixel m_SrcDC, 4, 36, 15849399 SetPixel m_SrcDC, 5, 36, 16113082 SetPixel m_SrcDC, 6, 36, 15979165 SetPixel m_SrcDC, 7, 36, 16301121 SetPixel m_SrcDC, 8, 36, 13995803 SetPixel m_SrcDC, 0, 37, 13995803 SetPixel m_SrcDC, 1, 37, 16300861 SetPixel m_SrcDC, 2, 37, 15978646 SetPixel m_SrcDC, 3, 37, 16046769 SetPixel m_SrcDC, 4, 37, 15717807 SetPixel m_SrcDC, 5, 37, 16046769 SetPixel m_SrcDC, 6, 37, 15978644 SetPixel m_SrcDC, 7, 37, 16300862 SetPixel m_SrcDC, 8, 37, 13995803 SetPixel m_SrcDC, 0, 38, 13995803 SetPixel m_SrcDC, 1, 38, 16300601 SetPixel m_SrcDC, 2, 38, 16109711 SetPixel m_SrcDC, 3, 38, 15979679 SetPixel m_SrcDC, 4, 38, 15914151 SetPixel m_SrcDC, 5, 38, 16045987 SetPixel m_SrcDC, 6, 38, 15977608 SetPixel m_SrcDC, 7, 38, 16300601 SetPixel m_SrcDC, 8, 38, 13995803 SetPixel m_SrcDC, 0, 39, 14128424 SetPixel m_SrcDC, 1, 39, 16168499 SetPixel m_SrcDC, 2, 39, 16238960 SetPixel m_SrcDC, 3, 39, 15977607 SetPixel m_SrcDC, 4, 39, 15979161 SetPixel m_SrcDC, 5, 39, 15911814 SetPixel m_SrcDC, 6, 39, 16239217 SetPixel m_SrcDC, 7, 39, 16168501 SetPixel m_SrcDC, 8, 39, 14128424 SetPixel m_SrcDC, 0, 40, 14856292 SetPixel m_SrcDC, 1, 40, 15048997 SetPixel m_SrcDC, 2, 40, 16168243 SetPixel m_SrcDC, 3, 40, 16366652 SetPixel m_SrcDC, 4, 40, 16300863 SetPixel m_SrcDC, 5, 40, 16300603 SetPixel m_SrcDC, 6, 40, 16168499 SetPixel m_SrcDC, 7, 40, 15048996 SetPixel m_SrcDC, 8, 40, 14790498 SetPixel m_SrcDC, 0, 41, 15055480 SetPixel m_SrcDC, 1, 41, 14790240 SetPixel m_SrcDC, 2, 41, 14194218 SetPixel m_SrcDC, 3, 41, 13995803 SetPixel m_SrcDC, 4, 41, 13995803 SetPixel m_SrcDC, 5, 41, 13995803 SetPixel m_SrcDC, 6, 41, 14194218 SetPixel m_SrcDC, 7, 41, 14790240 SetPixel m_SrcDC, 8, 41, 15055480 SetPixel m_SrcDC, 0, 42, 15121018 SetPixel m_SrcDC, 1, 42, 14922603 SetPixel m_SrcDC, 2, 42, 14194476 SetPixel m_SrcDC, 3, 42, 13995803 SetPixel m_SrcDC, 4, 42, 13995803 SetPixel m_SrcDC, 5, 42, 13995803 SetPixel m_SrcDC, 6, 42, 14194476 SetPixel m_SrcDC, 7, 42, 14922603 SetPixel m_SrcDC, 8, 42, 15121018 SetPixel m_SrcDC, 0, 43, 14856809 SetPixel m_SrcDC, 1, 43, 15114530 SetPixel m_SrcDC, 2, 43, 16299312 SetPixel m_SrcDC, 3, 43, 16497721 SetPixel m_SrcDC, 4, 43, 16432187 SetPixel m_SrcDC, 5, 43, 16431928 SetPixel m_SrcDC, 6, 43, 16233775 SetPixel m_SrcDC, 7, 43, 15114531 SetPixel m_SrcDC, 8, 43, 14856809 SetPixel m_SrcDC, 0, 44, 14128425 SetPixel m_SrcDC, 1, 44, 16299566 SetPixel m_SrcDC, 2, 44, 16304495 SetPixel m_SrcDC, 3, 44, 15977606 SetPixel m_SrcDC, 4, 44, 16110747 SetPixel m_SrcDC, 5, 44, 16043143 SetPixel m_SrcDC, 6, 44, 16304237 SetPixel m_SrcDC, 7, 44, 16233772 SetPixel m_SrcDC, 8, 44, 14128425 SetPixel m_SrcDC, 0, 45, 13995803 SetPixel m_SrcDC, 1, 45, 16365361 SetPixel m_SrcDC, 2, 45, 15911555 SetPixel m_SrcDC, 3, 45, 15979679 SetPixel m_SrcDC, 4, 45, 15650202 SetPixel m_SrcDC, 5, 45, 15978907 SetPixel m_SrcDC, 6, 45, 16043658 SetPixel m_SrcDC, 7, 45, 16365361 SetPixel m_SrcDC, 8, 45, 13995803 SetPixel m_SrcDC, 0, 46, 13995803 SetPixel m_SrcDC, 1, 46, 16365621 SetPixel m_SrcDC, 2, 46, 15912077 SetPixel m_SrcDC, 3, 46, 15980459 SetPixel m_SrcDC, 4, 46, 15650725 SetPixel m_SrcDC, 5, 46, 15980460 SetPixel m_SrcDC, 6, 46, 15912335 SetPixel m_SrcDC, 7, 46, 16365621 SetPixel m_SrcDC, 8, 46, 13995803 SetPixel m_SrcDC, 0, 47, 13995803 SetPixel m_SrcDC, 1, 47, 16365879 SetPixel m_SrcDC, 2, 47, 15847061 SetPixel m_SrcDC, 3, 47, 15980979 SetPixel m_SrcDC, 4, 47, 15651245 SetPixel m_SrcDC, 5, 47, 15980980 SetPixel m_SrcDC, 6, 47, 15912597 SetPixel m_SrcDC, 7, 47, 16365879 SetPixel m_SrcDC, 8, 47, 13995803 SetPixel m_SrcDC, 0, 48, 13995803 SetPixel m_SrcDC, 1, 48, 16365882 SetPixel m_SrcDC, 2, 48, 15913114 SetPixel m_SrcDC, 3, 48, 15981495 SetPixel m_SrcDC, 4, 48, 15717554 SetPixel m_SrcDC, 5, 48, 15981495 SetPixel m_SrcDC, 6, 48, 15913114 SetPixel m_SrcDC, 7, 48, 16365882 SetPixel m_SrcDC, 8, 48, 13995803 SetPixel m_SrcDC, 0, 49, 13995803 SetPixel m_SrcDC, 1, 49, 16366139 SetPixel m_SrcDC, 2, 49, 15979423 SetPixel m_SrcDC, 3, 49, 16113084 SetPixel m_SrcDC, 4, 49, 15849400 SetPixel m_SrcDC, 5, 49, 16113084 SetPixel m_SrcDC, 6, 49, 15979423 SetPixel m_SrcDC, 7, 49, 16366139 SetPixel m_SrcDC, 8, 49, 13995803 SetPixel m_SrcDC, 0, 50, 13995803 SetPixel m_SrcDC, 1, 50, 16431932 SetPixel m_SrcDC, 2, 50, 16111267 SetPixel m_SrcDC, 3, 50, 16179647 SetPixel m_SrcDC, 4, 50, 15915965 SetPixel m_SrcDC, 5, 50, 16179647 SetPixel m_SrcDC, 6, 50, 16111267 SetPixel m_SrcDC, 7, 50, 16431932 SetPixel m_SrcDC, 8, 50, 13995803 SetPixel m_SrcDC, 0, 51, 13995803 SetPixel m_SrcDC, 1, 51, 16432189 SetPixel m_SrcDC, 2, 51, 16177319 SetPixel m_SrcDC, 3, 51, 16310979 SetPixel m_SrcDC, 4, 51, 16047810 SetPixel m_SrcDC, 5, 51, 16310979 SetPixel m_SrcDC, 6, 51, 16177319 SetPixel m_SrcDC, 7, 51, 16432189 SetPixel m_SrcDC, 8, 51, 13995803 SetPixel m_SrcDC, 0, 52, 13995803 SetPixel m_SrcDC, 1, 52, 16497983 SetPixel m_SrcDC, 2, 52, 16308906 SetPixel m_SrcDC, 3, 52, 16377029 SetPixel m_SrcDC, 4, 52, 16179654 SetPixel m_SrcDC, 5, 52, 16377029 SetPixel m_SrcDC, 6, 52, 16308906 SetPixel m_SrcDC, 7, 52, 16497983 SetPixel m_SrcDC, 8, 52, 13995803 SetPixel m_SrcDC, 0, 53, 13995803 SetPixel m_SrcDC, 1, 53, 16564034 SetPixel m_SrcDC, 2, 53, 16507573 SetPixel m_SrcDC, 3, 53, 16509903 SetPixel m_SrcDC, 4, 53, 16444116 SetPixel m_SrcDC, 5, 53, 16509903 SetPixel m_SrcDC, 6, 53, 16507573 SetPixel m_SrcDC, 7, 53, 16564034 SetPixel m_SrcDC, 8, 53, 13995803 SetPixel m_SrcDC, 0, 54, 13995803 SetPixel m_SrcDC, 1, 54, 16564291 SetPixel m_SrcDC, 2, 54, 16507831 SetPixel m_SrcDC, 3, 54, 16510161 SetPixel m_SrcDC, 4, 54, 16444631 SetPixel m_SrcDC, 5, 54, 16510161 SetPixel m_SrcDC, 6, 54, 16507831 SetPixel m_SrcDC, 7, 54, 16564291 SetPixel m_SrcDC, 8, 54, 13995803 SetPixel m_SrcDC, 0, 55, 13995803 SetPixel m_SrcDC, 1, 55, 16564292 SetPixel m_SrcDC, 2, 55, 16573625 SetPixel m_SrcDC, 3, 55, 16575956 SetPixel m_SrcDC, 4, 55, 16510426 SetPixel m_SrcDC, 5, 55, 16575956 SetPixel m_SrcDC, 6, 55, 16573625 SetPixel m_SrcDC, 7, 55, 16564292 SetPixel m_SrcDC, 8, 55, 13995803 SetPixel m_SrcDC, 0, 56, 13995803 SetPixel m_SrcDC, 1, 56, 16564549 SetPixel m_SrcDC, 2, 56, 16573884 SetPixel m_SrcDC, 3, 56, 16576214 SetPixel m_SrcDC, 4, 56, 16510941 SetPixel m_SrcDC, 5, 56, 16576214 SetPixel m_SrcDC, 6, 56, 16573884 SetPixel m_SrcDC, 7, 56, 16564549 SetPixel m_SrcDC, 8, 56, 13995803 SetPixel m_SrcDC, 0, 57, 13995803 SetPixel m_SrcDC, 1, 57, 16564548 SetPixel m_SrcDC, 2, 57, 16574141 SetPixel m_SrcDC, 3, 57, 16576470 SetPixel m_SrcDC, 4, 57, 16511456 SetPixel m_SrcDC, 5, 57, 16576470 SetPixel m_SrcDC, 6, 57, 16574141 SetPixel m_SrcDC, 7, 57, 16564548 SetPixel m_SrcDC, 8, 57, 13995803 SetPixel m_SrcDC, 0, 58, 13995803 SetPixel m_SrcDC, 1, 58, 16564290 SetPixel m_SrcDC, 2, 58, 16574136 SetPixel m_SrcDC, 3, 58, 16576209 SetPixel m_SrcDC, 4, 58, 16511195 SetPixel m_SrcDC, 5, 58, 16576209 SetPixel m_SrcDC, 6, 58, 16574136 SetPixel m_SrcDC, 7, 58, 16564290 SetPixel m_SrcDC, 8, 58, 13995803 SetPixel m_SrcDC, 0, 59, 13995803 SetPixel m_SrcDC, 1, 59, 16564030 SetPixel m_SrcDC, 2, 59, 16704686 SetPixel m_SrcDC, 3, 59, 16640707 SetPixel m_SrcDC, 4, 59, 16576209 SetPixel m_SrcDC, 5, 59, 16640707 SetPixel m_SrcDC, 6, 59, 16638636 SetPixel m_SrcDC, 7, 59, 16564030 SetPixel m_SrcDC, 8, 59, 13995803 SetPixel m_SrcDC, 0, 60, 14128424 SetPixel m_SrcDC, 1, 60, 16431414 SetPixel m_SrcDC, 2, 60, 16701318 SetPixel m_SrcDC, 3, 60, 16639150 SetPixel m_SrcDC, 4, 60, 16705726 SetPixel m_SrcDC, 5, 60, 16639150 SetPixel m_SrcDC, 6, 60, 16701320 SetPixel m_SrcDC, 7, 60, 16431670 SetPixel m_SrcDC, 8, 60, 14128424 SetPixel m_SrcDC, 0, 61, 14856292 SetPixel m_SrcDC, 1, 61, 15115045 SetPixel m_SrcDC, 2, 61, 16366135 SetPixel m_SrcDC, 3, 61, 16630080 SetPixel m_SrcDC, 4, 61, 16564806 SetPixel m_SrcDC, 5, 61, 16564288 SetPixel m_SrcDC, 6, 61, 16366135 SetPixel m_SrcDC, 7, 61, 15115045 SetPixel m_SrcDC, 8, 61, 14790498 SetPixel m_SrcDC, 0, 62, 14988912 SetPixel m_SrcDC, 1, 62, 14790240 SetPixel m_SrcDC, 2, 62, 14194218 SetPixel m_SrcDC, 3, 62, 13995803 SetPixel m_SrcDC, 4, 62, 13995803 SetPixel m_SrcDC, 5, 62, 13995803 SetPixel m_SrcDC, 6, 62, 14194218 SetPixel m_SrcDC, 7, 62, 14790240 SetPixel m_SrcDC, 8, 62, 14988912 SetPixel m_SrcDC, 0, 63, 14474460 SetPixel m_SrcDC, 1, 63, 14211288 SetPixel m_SrcDC, 2, 63, 12895428 SetPixel m_SrcDC, 3, 63, 12566463 SetPixel m_SrcDC, 4, 63, 12566463 SetPixel m_SrcDC, 5, 63, 12566463 SetPixel m_SrcDC, 6, 63, 12895428 SetPixel m_SrcDC, 7, 63, 14211288 SetPixel m_SrcDC, 8, 63, 14474460 SetPixel m_SrcDC, 0, 64, 14145495 SetPixel m_SrcDC, 1, 64, 14540253 SetPixel m_SrcDC, 2, 64, 16119285 SetPixel m_SrcDC, 3, 64, 16777215 SetPixel m_SrcDC, 4, 64, 16777215 SetPixel m_SrcDC, 5, 64, 16777215 SetPixel m_SrcDC, 6, 64, 16119285 SetPixel m_SrcDC, 7, 64, 14540253 SetPixel m_SrcDC, 8, 64, 14145495 SetPixel m_SrcDC, 0, 65, 12829635 SetPixel m_SrcDC, 1, 65, 16250871 SetPixel m_SrcDC, 2, 65, 16777215 SetPixel m_SrcDC, 3, 65, 16777215 SetPixel m_SrcDC, 4, 65, 16777215 SetPixel m_SrcDC, 5, 65, 16777215 SetPixel m_SrcDC, 6, 65, 16777215 SetPixel m_SrcDC, 7, 65, 16250871 SetPixel m_SrcDC, 8, 65, 12829635 SetPixel m_SrcDC, 0, 66, 12566463 SetPixel m_SrcDC, 1, 66, 16514043 SetPixel m_SrcDC, 2, 66, 16316664 SetPixel m_SrcDC, 3, 66, 16316664 SetPixel m_SrcDC, 4, 66, 16316664 SetPixel m_SrcDC, 5, 66, 16316664 SetPixel m_SrcDC, 6, 66, 16316664 SetPixel m_SrcDC, 7, 66, 16514043 SetPixel m_SrcDC, 8, 66, 12566463 SetPixel m_SrcDC, 0, 67, 12566463 SetPixel m_SrcDC, 1, 67, 16382457 SetPixel m_SrcDC, 2, 67, 16250871 SetPixel m_SrcDC, 3, 67, 16250871 SetPixel m_SrcDC, 4, 67, 16250871 SetPixel m_SrcDC, 5, 67, 16250871 SetPixel m_SrcDC, 6, 67, 16250871 SetPixel m_SrcDC, 7, 67, 16382457 SetPixel m_SrcDC, 8, 67, 12566463 SetPixel m_SrcDC, 0, 68, 12566463 SetPixel m_SrcDC, 1, 68, 16316664 SetPixel m_SrcDC, 2, 68, 16119285 SetPixel m_SrcDC, 3, 68, 16119285 SetPixel m_SrcDC, 4, 68, 16119285 SetPixel m_SrcDC, 5, 68, 16119285 SetPixel m_SrcDC, 6, 68, 16119285 SetPixel m_SrcDC, 7, 68, 16316664 SetPixel m_SrcDC, 8, 68, 12566463 SetPixel m_SrcDC, 0, 69, 12566463 SetPixel m_SrcDC, 1, 69, 16316664 SetPixel m_SrcDC, 2, 69, 16053492 SetPixel m_SrcDC, 3, 69, 16053492 SetPixel m_SrcDC, 4, 69, 16053492 SetPixel m_SrcDC, 5, 69, 16053492 SetPixel m_SrcDC, 6, 69, 16053492 SetPixel m_SrcDC, 7, 69, 16316664 SetPixel m_SrcDC, 8, 69, 12566463 SetPixel m_SrcDC, 0, 70, 12566463 SetPixel m_SrcDC, 1, 70, 16185078 SetPixel m_SrcDC, 2, 70, 15921906 SetPixel m_SrcDC, 3, 70, 15921906 SetPixel m_SrcDC, 4, 70, 15921906 SetPixel m_SrcDC, 5, 70, 15921906 SetPixel m_SrcDC, 6, 70, 15921906 SetPixel m_SrcDC, 7, 70, 16185078 SetPixel m_SrcDC, 8, 70, 12566463 SetPixel m_SrcDC, 0, 71, 12566463 SetPixel m_SrcDC, 1, 71, 16119285 SetPixel m_SrcDC, 2, 71, 15856113 SetPixel m_SrcDC, 3, 71, 15856113 SetPixel m_SrcDC, 4, 71, 15856113 SetPixel m_SrcDC, 5, 71, 15856113 SetPixel m_SrcDC, 6, 71, 15856113 SetPixel m_SrcDC, 7, 71, 16119285 SetPixel m_SrcDC, 8, 71, 12566463 SetPixel m_SrcDC, 0, 72, 12566463 SetPixel m_SrcDC, 1, 72, 16053492 SetPixel m_SrcDC, 2, 72, 15724527 SetPixel m_SrcDC, 3, 72, 15724527 SetPixel m_SrcDC, 4, 72, 15724527 SetPixel m_SrcDC, 5, 72, 15724527 SetPixel m_SrcDC, 6, 72, 15724527 SetPixel m_SrcDC, 7, 72, 16053492 SetPixel m_SrcDC, 8, 72, 12566463 SetPixel m_SrcDC, 0, 73, 12566463 SetPixel m_SrcDC, 1, 73, 15987699 SetPixel m_SrcDC, 2, 73, 15658734 SetPixel m_SrcDC, 3, 73, 15658734 SetPixel m_SrcDC, 4, 73, 15658734 SetPixel m_SrcDC, 5, 73, 15658734 SetPixel m_SrcDC, 6, 73, 15658734 SetPixel m_SrcDC, 7, 73, 15987699 SetPixel m_SrcDC, 8, 73, 12566463 SetPixel m_SrcDC, 0, 74, 12566463 SetPixel m_SrcDC, 1, 74, 15724527 SetPixel m_SrcDC, 2, 74, 15263976 SetPixel m_SrcDC, 3, 74, 15263976 SetPixel m_SrcDC, 4, 74, 15263976 SetPixel m_SrcDC, 5, 74, 15263976 SetPixel m_SrcDC, 6, 74, 15263976 SetPixel m_SrcDC, 7, 74, 15724527 SetPixel m_SrcDC, 8, 74, 12566463 SetPixel m_SrcDC, 0, 75, 12566463 SetPixel m_SrcDC, 1, 75, 15658734 SetPixel m_SrcDC, 2, 75, 15066597 SetPixel m_SrcDC, 3, 75, 15066597 SetPixel m_SrcDC, 4, 75, 15066597 SetPixel m_SrcDC, 5, 75, 15066597 SetPixel m_SrcDC, 6, 75, 15066597 SetPixel m_SrcDC, 7, 75, 15658734 SetPixel m_SrcDC, 8, 75, 12566463 SetPixel m_SrcDC, 0, 76, 12566463 SetPixel m_SrcDC, 1, 76, 15527148 SetPixel m_SrcDC, 2, 76, 14935011 SetPixel m_SrcDC, 3, 76, 14935011 SetPixel m_SrcDC, 4, 76, 14935011 SetPixel m_SrcDC, 5, 76, 14935011 SetPixel m_SrcDC, 6, 76, 14935011 SetPixel m_SrcDC, 7, 76, 15527148 SetPixel m_SrcDC, 8, 76, 12566463 SetPixel m_SrcDC, 0, 77, 12566463 SetPixel m_SrcDC, 1, 77, 15395562 SetPixel m_SrcDC, 2, 77, 14737632 SetPixel m_SrcDC, 3, 77, 14737632 SetPixel m_SrcDC, 4, 77, 14737632 SetPixel m_SrcDC, 5, 77, 14737632 SetPixel m_SrcDC, 6, 77, 14737632 SetPixel m_SrcDC, 7, 77, 15395562 SetPixel m_SrcDC, 8, 77, 12566463 SetPixel m_SrcDC, 0, 78, 12566463 SetPixel m_SrcDC, 1, 78, 15198183 SetPixel m_SrcDC, 2, 78, 14540253 SetPixel m_SrcDC, 3, 78, 14540253 SetPixel m_SrcDC, 4, 78, 14540253 SetPixel m_SrcDC, 5, 78, 14540253 SetPixel m_SrcDC, 6, 78, 14540253 SetPixel m_SrcDC, 7, 78, 15198183 SetPixel m_SrcDC, 8, 78, 12566463 SetPixel m_SrcDC, 0, 79, 12566463 SetPixel m_SrcDC, 1, 79, 15132390 SetPixel m_SrcDC, 2, 79, 14408667 SetPixel m_SrcDC, 3, 79, 14408667 SetPixel m_SrcDC, 4, 79, 14408667 SetPixel m_SrcDC, 5, 79, 14408667 SetPixel m_SrcDC, 6, 79, 14408667 SetPixel m_SrcDC, 7, 79, 15132390 SetPixel m_SrcDC, 8, 79, 12566463 SetPixel m_SrcDC, 0, 80, 12566463 SetPixel m_SrcDC, 1, 80, 15066597 SetPixel m_SrcDC, 2, 80, 14277081 SetPixel m_SrcDC, 3, 80, 14277081 SetPixel m_SrcDC, 4, 80, 14277081 SetPixel m_SrcDC, 5, 80, 14277081 SetPixel m_SrcDC, 6, 80, 14277081 SetPixel m_SrcDC, 7, 80, 15066597 SetPixel m_SrcDC, 8, 80, 12566463 SetPixel m_SrcDC, 0, 81, 12829635 SetPixel m_SrcDC, 1, 81, 14671839 SetPixel m_SrcDC, 2, 81, 14606046 SetPixel m_SrcDC, 3, 81, 14211288 SetPixel m_SrcDC, 4, 81, 14211288 SetPixel m_SrcDC, 5, 81, 14211288 SetPixel m_SrcDC, 6, 81, 14606046 SetPixel m_SrcDC, 7, 81, 14671839 SetPixel m_SrcDC, 8, 81, 12829635 SetPixel m_SrcDC, 0, 82, 14013909 SetPixel m_SrcDC, 1, 82, 14079702 SetPixel m_SrcDC, 2, 82, 14671839 SetPixel m_SrcDC, 3, 82, 15132390 SetPixel m_SrcDC, 4, 82, 15132390 SetPixel m_SrcDC, 5, 82, 15132390 SetPixel m_SrcDC, 6, 82, 14671839 SetPixel m_SrcDC, 7, 82, 14079702 SetPixel m_SrcDC, 8, 82, 14013909 SetPixel m_SrcDC, 0, 83, 14211288 SetPixel m_SrcDC, 1, 83, 13948116 SetPixel m_SrcDC, 2, 83, 12895428 SetPixel m_SrcDC, 3, 83, 12566463 SetPixel m_SrcDC, 4, 83, 12566463 SetPixel m_SrcDC, 5, 83, 12566463 SetPixel m_SrcDC, 6, 83, 12895428 SetPixel m_SrcDC, 7, 83, 13948116 SetPixel m_SrcDC, 8, 83, 14211288 End Sub

【VB界面】子类化重绘仿QQ2009渐变按钮(模块)相关推荐

java界面的面板重绘
今天是超哥给我讲课,给我讲了我的五子棋的不足和bug.我的五子棋一旦拉伸边框和最小化还原,面板上的旗子就会消失不见,超哥给我讲了在JPanel的构造方法了直接重写paint()方法,就可以了,之后还给 ...
dev 中 gridcontrol1 滚动条重绘_浏览器的重绘和回流（Repaint amp; Reflow）
参考文献: https://developers.google.com/web/fundamentals/performance/critical-rendering-path/render-tree ...
android 重绘如何能不闪一下屏幕_回流和重绘
浏览器的渲染过程本文先从浏览器的渲染过程来从头到尾的讲解一下回流重绘,如果大家想直接看如何减少回流和重绘,优化性能,可以跳到后面.(这个渲染过程来自MDN) 从上面这个图上,我们可以看到,浏览器渲染 ...
前端性能优化之重排和重绘
前言,最近利用碎片时间拜读了一下尼古拉斯的另一巨作<高性能JavaScript>,今天写的文章从"老生常谈"的页面重绘和重排入手,去探究这两个概念在页面性能提升上的作用 ...
MFC-CListCtrl重绘，添加按钮到单元格
原文链接 MFC Listctrl 不支持单元格颜色设置,以及单击其中某一单元格时高亮显示,要想达成自己的目的,就只能对其重绘. 关于单元格中按钮的添加,说一下思路,首先要重写CButton类,将其单 ...
前端面试中浏览器相关问题（二）：回流与重绘
前端面试中浏览器相关问题(二):回流与重绘文章目录前端面试中浏览器相关问题(二):回流与重绘浏览器的渲染过程生成渲染树回流重绘何时发生回流重绘浏览器的优化机制减少回流和重绘最小化重 ...
回流和重绘的介绍以及优化方法
文章目录一.浏览器的渲染机制 1.生成渲染树的过程二.回流和重绘 1.回流(reflow) 2.重绘(repaint) 3.何时发生回流.重绘三.减少回流和重绘 1.浏览器的优化机制 2.使用浏 ...
浏览器：重绘（repaint）与回流/重排（reflow）
一.从上面这个图上,我们可以看到,浏览器渲染过程如下: 1.解析HTML,生成DOM树,解析CSS,生成CSSOM树 2.将DOM树和CSSOM树结合,生成渲染树(Render Tree) 3.Lay ...
VB 子类化技术详解
1. 何谓子类化(subclassing) 众所周知,Windows是一个基于消息的系统,消息在Windows的对象之间进行着传递.子类化和Windows的钩子机制存在于消息系统之中,我们可以利用这些 ...

【VB界面】子类化重绘仿QQ2009渐变按钮(模块)

【VB界面】子类化重绘仿QQ2009渐变按钮(模块)相关推荐

最新文章

热门文章