#include-once

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>

Global $lwcol2 = 0xCECBCE
Global $lwcol1 = 0xADAAAD
Global $lw_frm_Test1

$alw_colors = _ReturnColors_Array()


frm_Test1()

;*****************************************************************************************************************************************************************************
Func frm_Test1()
;*****************************************************************************************************************************************************************************
$frm_Test1 = GUICreate("Test", 470,300,-1,-1,BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
GUISetFont(11, 400, 1)
Draw_Listview_frm_Test1(10,10,$frm_Test1)

Local $aRecord[10][3]

For $i = 0 To 9
    For $j = 0 To 2
        $aRecord[$i][$j] = $i & " - " & $j
    Next
Next

Update_lw_frm_Test1($lw_frm_Test1,$aRecord)

GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
if $nMsg = $GUI_EVENT_CLOSE  Then ExitLoop
Sleep(15)
WEnd

GUIDelete($frm_Test1)
EndFunc
;**********************************************************************************************************************
Func Draw_Listview_frm_Test1($x,$y,$Winmain)
;***********************************************************************************************************************
$iLVExtStyle = BitOR($WS_EX_CLIENTEDGE, $LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT,$LVS_EX_SUBITEMIMAGES)
$lw_frm_Test1 = GUICtrlCreateListView("",$x,$y, 450,270,-1,$iLVExtStyle)
$hlw_frm_Test1 = GUICtrlGetHandle($lw_frm_Test1)

GUICtrlSetBkColor($lw_frm_Test1, $GUI_BKCOLOR_LV_ALTERNATE)
GUICtrlSetFont($lw_frm_Test1, 11, 800,1)

	_GUICtrlListView_AddColumn($lw_frm_Test1, "COL1", 80)
    _GUICtrlListView_AddColumn($lw_frm_Test1, "COL2", 320)
    _GUICtrlListView_AddColumn($lw_frm_Test1, "", 17)

$hImageList = _GUIImageList_Create()

for $i=0 To UBound($alw_colors)-1
_GUIImageList_Add($hImageList, _GUICtrlListView_CreateSolidBitMap($hlw_frm_Test1, $alw_colors[$i], 20, 20)) ;COLORI
Next

_GUICtrlListView_SetImageList($hlw_frm_Test1, $hImageList, 1)


_GUICtrlListView_SetBkColor($lw_frm_Test1,$lwcol1)
_GUICtrlListView_SetTextColor($lw_frm_Test1, $CLR_BLACK)
_GUICtrlListView_SetTextBkColor($lw_frm_Test1,$lwcol1)

EndFunc
;******************************************************************************************************************************
Func Update_lw_frm_Test1($ctr_Listview_Func,$aRecord_Func)
;******************************************************************************************************************************
$hListview_Func = GUICtrlGetHandle($ctr_Listview_Func)

	for $i=1 to Ubound($aRecord_Func)-1
	$sRecord = $aRecord_Func[$i][0] & "|"
	$sRecord &= $aRecord_Func[$i][1] & "|"

	$ctrItemListview_Func = GUICtrlCreateListViewItem($sRecord, $ctr_Listview_Func)
	GUICtrlSetBkColor($ctrItemListview_Func, $lwcol2)

	_GUICtrlListView_SetItemImage($hListview_Func,$i-1, $i,2)

	Next

EndFunc

;**************************************************************************************************************************************
Func _ReturnColors_Array()
;**************************************************************************************************************************************
Local $aColors_Func[21] = [$COLOR_AQUA,$COLOR_BLACK,$COLOR_BLUE,$COLOR_CREAM,$COLOR_FUCHSIA,$COLOR_GRAY,$COLOR_GREEN,$COLOR_LIME,$COLOR_MAROON,$COLOR_MEDBLUE,$COLOR_MEDGRAY, _
$COLOR_MONEYGREEN,$COLOR_NAVY,$COLOR_OLIVE,$COLOR_PURPLE,$COLOR_RED,$COLOR_SILVER,$COLOR_SKYBLUE,$COLOR_TEAL,$COLOR_WHITE,$COLOR_YELLOW]
Return $aColors_Func
EndFunc