home *** CD-ROM | disk | FTP | other *** search
/ PCNET 2006 September - Disc 1 / PCNET_CD_2006_09.iso / shareware / autoit-v3-setup.exe / Examples / Helpfile / _GUICtrlListGetItemRect.au3 < prev    next >
Encoding:
Text File  |  2006-06-17  |  1.2 KB  |  33 lines
  1. #include <GUIConstants.au3>
  2. #include <GuiList.au3>
  3.  
  4. opt('MustDeclareVars', 1)
  5.  
  6. Dim $listbox, $s_rect, $label_rect, $Btn_GETRECT, $Btn_Exit, $msg
  7.  
  8. GUICreate("ListBox Get Item RECT", 400, 250, -1, -1)
  9.  
  10. $listbox = GUICtrlCreateList("", 50, 40, 180, 120, BitOR($LBS_SORT, $WS_BORDER, $WS_VSCROLL, $LBS_NOTIFY, $LBS_MULTIPLESEL))
  11. GUICtrlSetData($listbox, "test1|more testing|even more testing|demo|")
  12.  
  13. $s_rect = "Left:" & @LF & "Top:" & @LF & "Right:" & @LF & "Bottom:"
  14. $label_rect = GUICtrlCreateLabel($s_rect, 270, 40, 100, 55, $SS_SUNKEN)
  15.  
  16. $Btn_GETRECT = GUICtrlCreateButton("Get Item Rect", 270, 120, 90, 40)
  17. $Btn_Exit = GUICtrlCreateButton("Exit", 150, 180, 90, 30)
  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_GETRECT
  26.          Local $rect_array = _GUICtrlListGetItemRect($listbox, 3)
  27.          If (IsArray($rect_array)) Then
  28.             $s_rect = "Left:" & $rect_array[1] & @LF & "Top:" & $rect_array[2] & @LF & "Right:" & $rect_array[3] & @LF & "Bottom:" & $rect_array[4]
  29.             GUICtrlSetData($label_rect, $s_rect)
  30.          EndIf
  31.    EndSelect
  32. WEnd
  33.