再谈FreeBasic下通过WM_DRAWITEM消息实现按钮自绘

​​​​​​​前言：

    由于网上对于FreeBaisc编程实现控件自绘的文章较少，所以本人在此分享个人FB编程经验。

    控件的自绘除了自行处理WM_NOTIFY消息下的NM_CUSTOMDRAW状态，还可以在WM_DRAWITEM消息下实现自绘功能。主要区别在于NM_CUSTOMDRAW具有鼠标热点跟踪事件，而WM_DRAWITEM消息需要自行处理鼠标的移入移除效果。

下面以按钮控件举例，介绍下如何在WM_DRAWITEM消息中完成按钮的自绘。

一、给按钮控件添加BS_OWNERDRAW样式，然后在窗口过程中即可接收到WM_DRAWITEM消息，在此消息中wParam为一个指向DRAWITEMSTRUCT结构的地址。判断itemAction状态值是否为ODA_DRAWENTIRE或ODA_FOCUS或ODS_SELECTED， 来按需绘制自己的按钮样式。

case WM_DRAWITEM
  dim idCtl as UINT = wParam
  dim lpdis as DRAWITEMSTRUCT ptr = cPtr( DRAWITEMSTRUCT ptr, lParam )
            
  select case( idCtl )
    case IDC_BUTTON1
      if lpdis->itemAction = ODA_DRAWENTIRE then
         '
         ' 这里写控件默认时的按钮效果
         '
      end if

      if lpdis->itemAction = ODA_FOCUS then
         ' 检查是否出于获得焦点下
         if lpdis->itemState = ODS_FOCUS then
            '
            ' 这里写控件获得焦点时的按钮效果
            '
         end if
      end if  

      if lpdis->itemAction = ODS_SELECTED then
         ' 检查是否出于被选中状态下
         if lpdis->itemState = ODS_SELECTED then
            '
            ' 这里写控件被选中时的按钮效果
            '
         end if
      end if

  end select

按钮文本可以通过发送WM_GETTEXT消息取得。

如下：

Dim Text Wstring * 16

SendMessage lpdis->hwndItem, WM_GETTEXT, Sizeof ( Text ), Cast ( LPARAM, @Text ) 

然后再通过DRAWTEXT绘制上去。

DRAWTEXT lpdis->hdc, Text, -1, @lpdis->rcItem, DT_SINGLELINE OR DT_CENTER OR DT_VCENTER

二、按钮控件下获得焦点及默认状态的代码写好后，我们还需要去处理鼠标的移入移出事件。

当鼠标移入控件时设置焦点，鼠标移出时将焦点给回主程序窗口。

case WM_MOUSELEAVE '移进
  dim pt as POINT
  dim hControl as HWND
  GetCursorPos( @pt )
  hControl = WindowFromPoint( pt )
  IF hControl<>NULL then
      SetFocus( hControl )
  end if
            
case WM_MOUSEHOVER '移出
  SetFocus( hWnd )
            
case WM_MOUSEMOVE
  dim track as TRACKMOUSEEVENT 
  track.cbSize = sizeof (track)
  track.dwFlags = TME_LEAVE or TME_HOVER
  track.dwHoverTime = 10
  track.hwndTrack = hWnd
  TrackMouseEvent( @track )

hWnd为主窗口句柄。

三、总结：

1、WM_NOTIFY消息下的NM_CUSTOMDRAW状态，不需自行处理鼠标的移入移出事件，只需判断uItemState状态是否具有CDIS_HOT热点属性即可。

2、WM_DRAWITEM消息较NM_CUSTOMDRAW简单些，无需考虑返回值只需判断itemAction状态值进行相应绘图处理即可。

3、WM_DRAWITEM自绘，需要对控件取得焦点进行单独处理，以实现鼠标移出移入时的效果（如果不需要实现鼠标移出移入时的效果，仅仅改变控件选中时的效果，则无需处理鼠标事件。只需分别处理itemAction的ODA_DRAWENTIRE、ODS_SELECTED状态即可）。