[SOLVED] Custom selected color in ListView

[tmplinshi]

A few days ago I found an AutoIt script, which create a Ownerdraw listview, it looks like:

This is what I was looking for all the time. It has a custom highlight (selected) color! How to do it in ahk? The AutoIt code:

Spoiler

Code: Select all

; http://www.autoitscript.com/forum/topic/139266-set-row-height-in-listview-with-ownerdraw-wm-drawitem/?p=976607
#include <GuiListView.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global Const $ODT_LISTVIEW = 102
Global Const $ODA_DRAWENTIRE = 0x1
Global Const $ODA_SELECT = 0x2
Global Const $ODA_FOCUS = 0x4
Global Const $ODS_SELECTED = 0x0001

Global $default_font = "Arial"
Global $default_font_size = 9
Global $GUI_main = GUICreate("", 300, 300, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $hGUI_tab_listview[2][10]
GUIRegisterMsg($WM_MEASUREITEM, "WM_MEASUREITEM") ;place before listview creation - message sent once for each ownerdrawn control created
$hGUI_tab_listview[0][0] = GUICtrlCreateListView("", 15, 68, 250, 90, _
  BitOR($LVS_REPORT, $LVS_SHOWSELALWAYS, $LVS_OWNERDRAWFIXED), _
  BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES)) ; + $LVS_EX_CHECKBOXES + $LVS_SINGLESEL
GUICtrlSetFont(-1, $default_font_size + 8, 400, 0, $default_font, 5)
_GUICtrlListView_AddColumn(-1, "Name")
_GUICtrlListView_SetColumnWidth(-1, 0, 155)
_GUICtrlListView_AddColumn(-1, "Count")
_GUICtrlListView_SetColumnWidth(-1, 1, 72)
For $i = 0 To 10 ; populate the listview for testing purposes
_GUICtrlListView_AddItem(-1, "test " & $i)
_GUICtrlListView_AddSubItem(-1, $i, $i, 1)
Next

GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Exit

Func WM_MEASUREITEM($hWnd, $Msg, $wParam, $lParam)
Local $tMEASUREITEMS = DllStructCreate("uint cType;uint cID;uint itmID;uint itmW;uint itmH;ulong_ptr itmData", $lParam)
If DllStructGetData($tMEASUREITEMS, "cType") <> $ODT_LISTVIEW Then Return $GUI_RUNDEFMSG
DllStructSetData($tMEASUREITEMS, "itmH", 20);row height
;GUIRegisterMsg($WM_MEASUREITEM, "") ;call this after last ownerdrawn listview created
Return 1
EndFunc   ;==>WM_MEASUREITEM

Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
Local $tagDRAWITEMSTRUCT, $iBrushColor, $cID, $itmID, $itmAction, $itmState, $hItm, $hDC, $bSelected
$tagDRAWITEMSTRUCT = DllStructCreate( _
   "uint cType;" & _
   "uint cID;" & _
   "uint itmID;" & _
   "uint itmAction;" & _
   "uint itmState;" & _
   "hwnd hItm;" & _
   "handle hDC;" & _
   "long itmRect[4];" & _
   "ulong_ptr itmData" _
   , $lParam)
If DllStructGetData($tagDRAWITEMSTRUCT, "cType") <> $ODT_LISTVIEW Then Return $GUI_RUNDEFMSG
$cID = DllStructGetData($tagDRAWITEMSTRUCT, "cID")
$itmID = DllStructGetData($tagDRAWITEMSTRUCT, "itmID")
$itmAction = DllStructGetData($tagDRAWITEMSTRUCT, "itmAction")
$itmState = DllStructGetData($tagDRAWITEMSTRUCT, "itmState")
$hItm = DllStructGetData($tagDRAWITEMSTRUCT, "hItm")
$hDC = DllStructGetData($tagDRAWITEMSTRUCT, "hDC")
$bSelected = BitAND($itmState, $ODS_SELECTED)
Switch $cID ; will look for ControlID, not window handle.
  Case $hGUI_tab_listview[0][0]
   Switch $itmAction
    Case $ODA_DRAWENTIRE
     ; don't forget, this is BGR, not RGB
     If $itmState = $bSelected Then ; item is not selected
      $iBrushColor = 0xEDF4FD
     Else ; item is selected
      $iBrushColor = 0x2D83DC
     EndIf
     Local $aBrush = DllCall("gdi32.dll", "hwnd", "CreateSolidBrush", "int", $iBrushColor)
     Local $aBrushOld = _WinAPI_SelectObject($hDC, $aBrush[0])
     Local $iLeft = DllStructGetData($tagDRAWITEMSTRUCT, "itmRect", 1)
     DllStructSetData($tagDRAWITEMSTRUCT, "itmRect", $iLeft + 1, 1) ; rectangle coordinates for coloring
     ; +1 is the left margin
     _WinAPI_FillRect($hDC, DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect"), $aBrush[0])
     _WinAPI_SelectObject($hDC, $aBrushOld)
     _WinAPI_DeleteObject($aBrush[0])
     ; for all columns of the row:
     $local_alignment = $DT_LEFT
     For $i = 0 To _GUICtrlListView_GetColumnCount($hGUI_tab_listview[0][0]) - 1
      ; 1. get subitem text:
      Local $iSubItmText = _GUICtrlListView_GetItemText($hGUI_tab_listview[0][0], $itmID, $i)
      ; 2. get subitem coordinates for drawing its respective text
      Local $aSubItmRect = _GUICtrlListView_GetSubItemRect($hGUI_tab_listview[0][0], $itmID, $i)
      ; the function above accepts not only subitems (one-based index), but also main item (index=0)
      ; 3. pass the coordinates to a DLL struct
      Local $iSubItmRect = DllStructCreate("long[4]")
      DllStructSetData($iSubItmRect, 1, $aSubItmRect[0] + 6, 1) ; +6 is left margin (X)
      DllStructSetData($iSubItmRect, 1, $aSubItmRect[1] + (-2), 2) ; + (-2) is upper margin (Y)
      DllStructSetData($iSubItmRect, 1, $aSubItmRect[2], 3)
      DllStructSetData($iSubItmRect, 1, $aSubItmRect[3], 4)
      DllCall("user32.dll", "int", "DrawTextW", "hwnd", $hDC, "wstr", $iSubItmText, "int", StringLen($iSubItmText), _
        "ptr", DllStructGetPtr($iSubItmRect), "int", $local_alignment)
     Next
     ;#ce
   EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_DRAWITEM

[Zelio]

There are ton of example on the old forum, libraries to use are for example LVX, LVA, RAGRID. Do some search with words "autohotkey colored listview". But maybe better to wait an expert, maybe someone updated an old library this years.

sample from Poly :
http://www.autohotkey.com/board/topic/2 ... -controls/
http://www.autohotkey.net/~Titan/dl/LVX.zip

You will have to play with event when row are selected or not, control leaved or not, ...

[tmplinshi]

Thanks Zaelia. But we will see a default selected color first (for about 0.1 seconds). For example:

Code: Select all

Gui, Add, ListView, w250 r8 vLV_Sample gMyListView Grid AltSubmit, Column1|Column2
	Loop, 8
		LV_Add("", "Col1--------", "Col2--------")

	LVX_Setup("LV_Sample")
Gui, Show, , Test
Return

MyListView:
	if (A_GuiEvent = "Normal")
	{
		LVX_SetColour(A_EventInfo, 0x008000)
		LV_Modify(0, "-Select")
	}
Return

GuiClose:
ExitApp

#Include LVX.ahk

[just me]

Of course, it can be done:

Code: Select all

#NoEnv
SetBatchLines, -1
LVS_OWNERDRAWFIXED  := 0x0400
LVS_EX_DOUBLEBUFFER := 0x00010000
WM_DRAWITEM         := 0x002B
WM_MEASUREITEM      := 0x002C
; ----------------------------------------------------------------------------------------------------------------------
OnMessage(WM_MEASUREITEM, "ODLV_MeasureItem")
OnMessage(WM_DRAWITEM, "ODLV_DrawItem")
Global OD_ListViews := {}
; ----------------------------------------------------------------------------------------------------------------------
Gui, +hwndHGUI +LastFound
Gui, Margin, 20, 20
Gui, Font, s12, Arial
Gui, Add, ListView, w300 r5 Grid vLV hwndHLV +0x0400 +E0x010000, Name|Count
Loop, 10
   LV_Add("", "Test " . A_Index, A_Index)
LV_ModifyCol(1, 200)
LV_ModifyCol(2, 75)
OD_ListViews[HLV] := HGUI
Gui, Show, , Owner-Drawn ListView
WinSet, Redraw
OnMessage(WM_MEASUREITEM, "") ; call this after last ownerdrawn listview is created
Return
; ----------------------------------------------------------------------------------------------------------------------
GuiClose:
ExitApp
; ----------------------------------------------------------------------------------------------------------------------
ODLV_MeasureItem(wParam, lParam, Msg, HWND) {
   Static ODT_LISTVIEW := 102
   Static offType := 0, offItemHeight := 16
   Static ItemHeight := 20 ; critical, you have to set the height appropriate for the used font
   If (NumGet(lParam + 0, offType, "UInt") = ODT_LISTVIEW) {
      NumPut(ItemHeight, lParam + 0, offItemHeight, "UInt")
      Return True
   }
}
; ----------------------------------------------------------------------------------------------------------------------
ODLV_DrawItem(wParam, lParam, Msg, HWND) {
   ; -------------------------------------------------------------------------------------------------------------------
   ; WM_DRAWITEM         -> http://msdn.microsoft.com/en-us/library/bb775923(v=vs.85).aspx
   ; DRAWITEMSTRUCT      -> http://msdn.microsoft.com/en-us/library/bb775802(v=vs.85).aspx
   ; -------------------------------------------------------------------------------------------------------------------
   Static LVM_GETSUBITEMRECT := 0x1038, LVM_GETCOLUMNWIDTH := 0x101D
   ; lParam / DRAWITEMSTRUCT offsets
   Static offItem := 8, offAction := offItem + 4, offState := offAction + 4, offHWND := offState + A_PtrSize
        , offDC := offHWND + A_PtrSize, offRECT := offDC + A_PtrSize, offData := offRECT + 16
   ; Owner Draw Type
   Static ODT_LISTVIEW := 102
   ; Owner Draw Action
   Static ODA_DRAWENTIRE := 0x0001, ODA_SELECT := 0x0002, ODA_FOCUS := 0x0004
   ; Owner Draw State
   Static ODS_SELECTED := 0x0001, ODS_FOCUS := 0x0010
   ; Critical ; may help in case of drawing issues
   HWND := NumGet(lParam + offHWND, 0, "UPtr")
   If (NumGet(lParam + 0, 0, "UInt") = ODT_LISTVIEW) && OD_ListViews.HasKey(HWND) {
      HGUI := OD_ListViews[HWND]
      Item := NumGet(lParam + offItem, 0, "Int") + 1
      Action := NumGet(lParam + offAction, 0, "UInt")
      State := NumGet(lParam + offState, 0, "UInt")
      HDC := NumGet(lParam + offDC, 0, "UPtr")
      RECT := lParam + offRECT
      Gui, %HGUI%:Default
      Gui, ListView, %HWND%
      If (Action & ODA_DRAWENTIRE) || (Action & ODA_SELECT) {
         BgColor := (State & ODS_SELECTED) ? 0x2D83DC : 0xEDF4FD
         Brush := DllCall("Gdi32.dll\CreateSolidBrush", "UInt", BgColor, "UPtr")
         DllCall("User32.dll\FillRect", "Ptr", HDC, "Ptr", RECT, "Ptr", Brush)
         DllCall("Gdi32.dll\DeleteObject", "Ptr", Brush)
         Loop, % LV_GetCount("Column") {
            LV_GetText(Txt, Item, A_Index), Len := StrLen(Txt)
            VarSetCapacity(RCTX, 16, 0)
            NumPut(2, RCTX, 0, "Int")
            NumPut(A_Index - 1, RCTX, 4, "Int")
            SendMessage, %LVM_GETSUBITEMRECT%, % (Item - 1), % &RCTX, , % "ahk_id " . HWND
            If (A_Index = 1) {
               SendMessage, %LVM_GETCOLUMNWIDTH%, % (A_Index - 1), 0, , % "ahk_id " . HWND
               NumPut(NumGet(RCTX, 0, "Int") + ErrorLevel, RCTX, 8, "Int")
            } Else {
               NumPut(NumGet(RCTX, 0, "Int") + 4, RCTX, 0, "Int")
            }
            DllCall("Gdi32.dll\SetBkMode", "Ptr", HDC, "Int", 1) ; TRANSPARENT
            DllCall("User32.dll\DrawText", "Ptr", HDC, "Ptr", &Txt, "Int", Len, "Ptr", &RCTX, "UInt", 0)
         }
         Return True
      }
   }
}

Edit: Changed script!

[tmplinshi]

Thanks a lot, just me! Works like a charm!

[tmplinshi]

Luckily, I copied 2 lines from your Class_TransparentListBox, now the text color changes too

Spoiler

Code: Select all

#NoEnv
SetBatchLines, -1
LVS_OWNERDRAWFIXED  := 0x0400
LVS_EX_DOUBLEBUFFER := 0x00010000
WM_DRAWITEM         := 0x002B
WM_MEASUREITEM      := 0x002C
; ----------------------------------------------------------------------------------------------------------------------
OnMessage(WM_MEASUREITEM, "ODLV_MeasureItem")
OnMessage(WM_DRAWITEM, "ODLV_DrawItem")
Global OD_ListViews := {}
; ----------------------------------------------------------------------------------------------------------------------
Gui, +hwndHGUI +LastFound
Gui, Margin, 20, 20
Gui, Font, s12, Arial
Gui, Add, ListView, w300 r5 Grid vLV hwndHLV +0x0400 +E0x010000, Name|Count
Loop, 10
   LV_Add("", "Test " . A_Index, A_Index)
LV_ModifyCol(1, 200)
LV_ModifyCol(2, 75)
OD_ListViews[HLV] := HGUI
Gui, Show, , Owner-Drawn ListView
WinSet, Redraw
OnMessage(WM_MEASUREITEM, "") ; call this after last ownerdrawn listview is created
Return
; ----------------------------------------------------------------------------------------------------------------------
GuiClose:
ExitApp
; ----------------------------------------------------------------------------------------------------------------------
ODLV_MeasureItem(wParam, lParam, Msg, HWND) {
   Static ODT_LISTVIEW := 102
   Static offType := 0, offItemHeight := 16
   Static ItemHeight := 20 ; critical, you have to set the height appropriate for the used font
   If (NumGet(lParam + 0, offType, "UInt") = ODT_LISTVIEW) {
      NumPut(ItemHeight, lParam + 0, offItemHeight, "UInt")
      Return True
   }
}
; ----------------------------------------------------------------------------------------------------------------------
ODLV_DrawItem(wParam, lParam, Msg, HWND) {
   ; -------------------------------------------------------------------------------------------------------------------
   ; WM_DRAWITEM         -> http://msdn.microsoft.com/en-us/library/bb775923(v=vs.85).aspx
   ; DRAWITEMSTRUCT      -> http://msdn.microsoft.com/en-us/library/bb775802(v=vs.85).aspx
   ; -------------------------------------------------------------------------------------------------------------------
   Static LVM_GETSUBITEMRECT := 0x1038, LVM_GETCOLUMNWIDTH := 0x101D
   ; lParam / DRAWITEMSTRUCT offsets
   Static offItem := 8, offAction := offItem + 4, offState := offAction + 4, offHWND := offState + A_PtrSize
        , offDC := offHWND + A_PtrSize, offRECT := offDC + A_PtrSize, offData := offRECT + 16
   ; Owner Draw Type
   Static ODT_LISTVIEW := 102
   ; Owner Draw Action
   Static ODA_DRAWENTIRE := 0x0001, ODA_SELECT := 0x0002, ODA_FOCUS := 0x0004
   ; Owner Draw State
   Static ODS_SELECTED := 0x0001, ODS_FOCUS := 0x0010
   ; Critical ; may help in case of drawing issues
   HWND := NumGet(lParam + offHWND, 0, "UPtr")
   If (NumGet(lParam + 0, 0, "UInt") = ODT_LISTVIEW) && OD_ListViews.HasKey(HWND) {
      HGUI := OD_ListViews[HWND]
      Item := NumGet(lParam + offItem, 0, "Int") + 1
      Action := NumGet(lParam + offAction, 0, "UInt")
      State := NumGet(lParam + offState, 0, "UInt")
      HDC := NumGet(lParam + offDC, 0, "UPtr")
      RECT := lParam + offRECT
      Gui, %HGUI%:Default
      Gui, ListView, %HWND%
      If (Action & ODA_DRAWENTIRE) || (Action & ODA_SELECT) {
         BgColor := (State & ODS_SELECTED) ? 0x2D83DC : 0xEDF4FD
         Brush := DllCall("Gdi32.dll\CreateSolidBrush", "UInt", BgColor, "UPtr")
         DllCall("User32.dll\FillRect", "Ptr", HDC, "Ptr", RECT, "Ptr", Brush)
         DllCall("Gdi32.dll\DeleteObject", "Ptr", Brush)

         TextColor := (State & ODS_SELECTED) ? 0xEDF4FD : 0x2D83DC
         DllCall("Gdi32.dll\SetTextColor", "Ptr", HDC, "UInt", TextColor)
         
         Loop, % LV_GetCount("Column") {
            LV_GetText(Txt, Item, A_Index), Len := StrLen(Txt)
            VarSetCapacity(RCTX, 16, 0)
            NumPut(2, RCTX, 0, "Int")
            NumPut(A_Index - 1, RCTX, 4, "Int")
            SendMessage, %LVM_GETSUBITEMRECT%, % (Item - 1), % &RCTX, , % "ahk_id " . HWND
            If (A_Index = 1) {
               SendMessage, %LVM_GETCOLUMNWIDTH%, % (A_Index - 1), 0, , % "ahk_id " . HWND
               NumPut(NumGet(RCTX, 0, "Int") + ErrorLevel, RCTX, 8, "Int")
            } Else {
               NumPut(NumGet(RCTX, 0, "Int") + 4, RCTX, 0, "Int")
            }
            DllCall("Gdi32.dll\SetBkMode", "Ptr", HDC, "Int", 1) ; TRANSPARENT
            DllCall("User32.dll\DrawText", "Ptr", HDC, "Ptr", &Txt, "Int", Len, "Ptr", &RCTX, "UInt", 0)
         }
         Return True
      }
   }
}