home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlListViewGetExtendedListViewStyle.au3 < prev    next >
Encoding:
Text File  |  2006-06-20  |  1.8 KB  |  48 lines
  1. #include <GuiConstants.au3>
  2. #include <GuiListView.au3>
  3.  
  4. Opt ('MustDeclareVars', 1)
  5. Dim $listview, $Btn_Exit, $msg, $i, $Styles, $Status, $Btn_Get, $i
  6. GUICreate("ListView Get Extended List View Style", 392, 322)
  7.  
  8. $listview = GUICtrlCreateListView("col1|col2|col3", 40, 30, 310, 149)
  9. GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_GRIDLINES, $LVS_EX_GRIDLINES)
  10. GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_FULLROWSELECT, $LVS_EX_FULLROWSELECT)
  11. GUICtrlSendMsg($listview, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_HEADERDRAGDROP, $LVS_EX_HEADERDRAGDROP)
  12. For $i = 1 To 20
  13.     GUICtrlCreateListViewItem("line" & $i & "|data" & $i & "|more" & $i, $listview)
  14. Next
  15. $Btn_Get = GUICtrlCreateButton("Get Styles", 150, 230, 90, 40)
  16. $Btn_Exit = GUICtrlCreateButton("Exit", 300, 260, 70, 30)
  17. $Status = GUICtrlCreateLabel("Extended List View Style(s): " & _GUICtrlListViewGetExtendedListViewStyle($listview), 0, 302, 392, 20, BitOR($SS_SUNKEN, $SS_CENTER))
  18.  
  19. GUISetState()
  20. While 1
  21.     $msg = GUIGetMsg()
  22.     Select
  23.         Case $msg = $GUI_EVENT_CLOSE Or $msg = $Btn_Exit
  24.             ExitLoop
  25.         Case $msg = $Btn_Get
  26.             For $i = 1 to 17
  27.                 Select
  28.                     Case $i = 1
  29.                         If(BitAND(_GUICtrlListViewGetExtendedListViewStyle($listview),$LVS_EX_CHECKBOXES) = $LVS_EX_CHECKBOXES) Then
  30.                             $Styles &= "$LVS_EX_CHECKBOXES" & @LF
  31.                         EndIf
  32.                     Case $i = 2
  33.                         If(BitAND(_GUICtrlListViewGetExtendedListViewStyle($listview),$LVS_EX_GRIDLINES) = $LVS_EX_GRIDLINES) Then
  34.                             $Styles &= "$LVS_EX_GRIDLINES" & @LF
  35.                         EndIf
  36.                     Case $i = 4
  37.                         If(BitAND(_GUICtrlListViewGetExtendedListViewStyle($listview),$LVS_EX_HEADERDRAGDROP) = $LVS_EX_HEADERDRAGDROP) Then
  38.                             $Styles &= "$LVS_EX_HEADERDRAGDROP"
  39.                         EndIf
  40.                 EndSelect
  41.             Next
  42.             If($Styles) Then
  43.                 MsgBox(0,"Extend Styles found", $Styles)
  44.             EndIf
  45.     EndSelect
  46. WEnd
  47. Exit
  48.