Must AutoIt
Сообщения: 3054
Благодарности: 1009
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
Можно:
Код:
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>
#include <WindowsConstants.au3>
$hGUI = GUICreate('GUICtrlListView Example', 420, 240)
$hListView = GUICtrlCreateListView('Column1|Column2|Column3|Column4', 20, 20, 380, 200, $LVS_NOSORTHEADER)
GUICtrlCreateListViewItem('Item 1|SubItem 1_1|SubItem 1_2|SubItem 1_3', $hListView)
GUICtrlCreateListViewItem('Item 2|SubItem 2_1|SubItem 2_2|SubItem 2_3', $hListView)
_GUICtrlListView_SetColumnWidth($hListView, 0, 80)
_GUICtrlListView_SetColumnWidth($hListView, 1, 80)
GUISetState(@SW_SHOW, $hGUI)
GUIRegisterMsg($WM_NOTIFY, '__WM_NOTIFY')
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func __WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
Local $stTagNMHDR = DllStructCreate('uint_ptr hWndFrom;uint_ptr iIDFrom;int iCode;uint_ptr iItem;uint_ptr iButton;ptr pitem', $lParam)
If @error Then Return $GUI_RUNDEFMSG
Local $iCode = DllStructGetData($stTagNMHDR, 'iCode')
Switch $iCode
Case $HDN_ITEMCHANGING, $HDN_ITEMCHANGINGW
Return 1 ;Prevent draging the item
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc
|
-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.” Альберт Эйнштейн
P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»
http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community
Последний раз редактировалось Creat0R, 28-11-2018 в 12:28.
Отправлено: 10:11, 28-11-2018
| #2
|