Search the Community

Hi! This whole concept belongs to rasim, and the idea of SysLink control inside ListView belongs to ptrex! He proposed it, and i thought that this will be a good challenge/practic for me! Here we go... #CS Name: GUIListViewSysLink.au3 Description: Functions to set Hyperlink (via SysLink control) for ListView items. Author: G.Sandler (a.k.a MrCreatoR), initial concept idea by R.Gilman (a.k.a rasim), this UDF idea by ptrex! AutoIt version: 3.2.12.1 - 3.3.8.1 UDF version: 1.2 #CE Example: #include "GUIListViewSysLink.au3" $hGUI = GUICreate("ListView with SysLink Control!", 420, 530, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX)) $hListView1 = GUICtrlCreateListView("Files|Path|Links", 10, 10, 400, 240, BitOR($LVS_REPORT, $WS_BORDER, $WS_CLIPSIBLINGS)) GUICtrlCreateListViewItem("AutoIT|C:\Program Files\AutoIt3", $hListView1) GUICtrlCreateListViewItem("Opera|C:\Program Files\Opera", $hListView1) GUICtrlCreateListViewItem("Script|C:\MyScripts", $hListView1) $nSysLinkBkColor = 0xC0C0C0 $nSysLinkStockObject = $LTGRAY_BRUSH $hListView2 = GUICtrlCreateListView("Name|Links", 10, 270, 400, 240, BitOR($LVS_REPORT, $WS_BORDER, $WS_CLIPSIBLINGS)) GUICtrlCreateListViewItem("Some Name", $hListView2) $hSysLink1 = _GUICtrlListView_SysLinkCreate($hListView1, "AutoIt Script Home Page", "http://autoitscript.com", 0, 2) _GUICtrlListView_SysLinkSetFont(-1, "Tahoma", 9.5) $hSysLink2 = _GUICtrlListView_SysLinkCreate($hListView1, "Opera Home Page", "http://opera.com", 1, 2) _GUICtrlListView_SysLinkSetFont(-1, "Tahoma", 9.5) $hSysLink3 = _GUICtrlListView_SysLinkCreate($hListView1, "My Scripts Home Page?", "http://creator-lab.ucoz.ru", 2, 2) _GUICtrlListView_SysLinkSetFont(-1, "Tahoma", 9.5) $hSysLink1_2 = _GUICtrlListView_SysLinkCreate($hListView2, "Some other Home Page", "http://creator-lab.ucoz.ru", 0, 1) _GUICtrlListView_SysLinkSetFont(-1, "Arial", 10.5) GUICtrlSetBkColor($hListView1, $nSysLinkBkColor) GUICtrlSetBkColor($hListView2, $nSysLinkBkColor) GUICtrlSendMsg($hListView1, $LVM_SETCOLUMNWIDTH, 0, 80) GUICtrlSendMsg($hListView1, $LVM_SETCOLUMNWIDTH, 1, 150) GUICtrlSendMsg($hListView1, $LVM_SETCOLUMNWIDTH, 2, 120) GUICtrlSendMsg($hListView2, $LVM_SETCOLUMNWIDTH, 0, 230) GUICtrlSendMsg($hListView2, $LVM_SETCOLUMNWIDTH, 1, 115) ;Here we add ID to the $hSysLink1 _GUICtrlListView_SysLinkSetLinkInfo($hSysLink1, "http://autoitscript.com", "AutoIt") ;And now we check if it was added :) $aInfo = _GUICtrlListView_SysLinkGetLinkInfo($hSysLink1) $sInfo = StringFormat("Info For $hSysLink1:\n\nSysLink State\t\t= %i\nURL\t\t\t= %s\nID\t\t\t= %s\nParent ListView Handle\t= %s", _ $aInfo[1], $aInfo[2], $aInfo[3], $aInfo[4]) ConsoleWrite($sInfo) GUISetState(@SW_SHOW, $hGUI) While GUIGetMsg() <> $GUI_EVENT_CLOSE WEnd The UDF and this example attached bellow. P.S Feedbacks and bug reports are always welcome! GUIListViewSysLink_1.2.zip ListView_SysLink_1.1.zip ListView_SysLink_1.0.zip Test Version (with Label control): ListView_Link_TestVersion.zip History version: Enjoy!