Jump to content
Sign in to follow this  
zvvyt

Scroll mouseover window, or window w/o focus - Help

Recommended Posts

zvvyt

Hi there ya'll!

What I've got is 2 GUIs being ontop of eachother, one being the others parent.

The parent serves mostly as a background as the child is a bit smaller, transparent and contains a set of images/icons. The child GUI also has a scrollbar created by _GUIScrollbars_Generate.

The problem I'm having is that in the parent GUI I have an inputbox, created by GUICtrlCreateInput, and as that inputbox got focus I want to be able to scroll the child GUI.

I can't set the inputbox in the child instead as I guess it would be too much work moving it as I scroll along.

As I'm having it now I manually have to click inside the child GUI to be able to scroll it, and then click inside the parent/inputbox to type again.

Don't know if there's any other great solution to this. I just thought that a mouseover scroll be OK!

If you got any other solution I'd happily take that aswell! :D

Best regards,

zvvyt

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

You have been here long enough to know that your chances of a response are much higher if you include some code we can look at. I for one am not writing a whole bunch of code (that may not look anything like the code you have) just to test. ;)

So please post a short reproducer script and we will take a look. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

That's true, sorry.

I think that these parts are those that matter and are of interest. Poke me harder if you need more x)

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name
$Icon_Select_Screen_Background = GUICreate("Icon Select Screen",765,400,-1,-1,$WS_MINIMIZEBOX + $ws_popup)
GUICtrlCreatePic(@WorkingDir&"ImagesLayoutIcon Select.jpg",0,0,765,450,$BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons",325,20,150,25)
GUICtrlSetState(-1,$gui_show)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search",500,20,125,25)
GUICtrlSetState(-1,$gui_show)
$Icon_Select_Screen_Minimize = GUICtrlCreateIcon("icons.dll","MINIMIZE",705,5,16,16)
GUICtrlSetTip(-1,"Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateIcon("icons.dll","CLOSE",730,5,16,16)
GUICtrlSetTip(-1,"Click to close")
GUICtrlCreateLabel("",0,0,765,50,-1,$GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Icon_Select_Screen = GUICreate("",760,350,5,50,$ws_popup,bitor($WS_EX_MDICHILD, $WS_EX_LAYERED),$Icon_Select_Screen_Background)
$ReadIcons = IniReadSection("List.ini","Icons")
Add_Icons()
Icon_Selection()

Func Add_Icons()
GUISwitch($Icon_Select_Screen)
GUISetState(@sw_hide,$Icon_Select_Screen)
_GUIScrollbars_Scroll_Page($Icon_Select_Screen,0,1)
$Icon_Icon_Startcord_X = 10
$Icon_Icon_Startcord_Y = 10
$Row_Count = 0
$Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
$Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
for $1=1 to $ReadIcons[0][0] step +1
if $Row_Count = 10 Then
$Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
$Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y+74
$Row_count = 0
EndIf
GUICtrlCreatePic(@WorkingDir&"ÖverflödigtIcons in numberstesticons"&$ReadIcons[$1][0]&".jpg",$Icon_Icon_Cord_X,$Icon_Icon_Cord_Y,64,64)
$Icon_Icon_Cord_X = $Icon_Icon_Cord_X+64+$Icon_Icon_Startcord_X
$Row_count=$Row_Count+1
Next
if $Icon_Icon_Cord_Y+64>450 Then
_GUIScrollbars_Generate($Icon_Select_Screen,"",$Icon_Icon_Cord_Y+64)
_GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False)
EndIf

GUISetBkColor(0xacbdef,$Icon_Select_Screen)
_WINAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)
GUISetState(@sw_show,$Icon_Select_Screen)
Icon_Selection()
EndFunc

func Icon_Selection()
GUISetState(@sw_show,$Icon_Select_Screen)
GUISetState(@sw_show,$Icon_Select_Screen_Background)
if GUICtrlRead($Icon_Name_Search) = "" then GUICtrlSetState($Icon_Name_Search,$GUI_FOCUS)
local $CSS_msg
while 1
;if WinActive($Icon_Select_Screen_Background) then WinActivate($Icon_Select_Screen)
if GUICtrlRead($Icon_Name_Search) <> "" and GUICtrlRead($Icon_Name_Search) <> "Enter name to search" Then
Clear_Icons($ReadIcons[0][0])
Icon_Name_Search()
EndIf
$CSS_msg = GUIGetMsg()
if $CSS_msg>8 then
;MsgBox(0,"",guictrlgetstate($Icon_Name_Search))
;MsgBox(0,"",$CSS_msg-8)
$Icon_Selected[0]=$ReadIcons[$CSS_msg-8][0]
$Icon_Selected[1]=$ReadIcons[$CSS_msg-8][1]
MsgBox(0,"",$Icon_Selected[0]&" "&$Icon_Selected[1])
EndIf
switch $CSS_msg
case $Icon_Select_Screen_Minimize
GUISetState(@sw_minimize,$Icon_Select_Screen_Background)
case $Icon_Select_Screen_Close
Exit
case $Icon_Update_Button
Icon_Update()
EndSwitch
WEnd
EndFunc
Edited by zvvyt

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

That was fun! :D

I tried to use the WindowFromPoint API function but the fact that the icon GUI is a child seemed to defeat it. So I have gone this rather less elegant way (look for the <<<<<<<<<<< lines as usual):

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $fOver_Main = False ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name

$Icon_Select_Screen_Background = GUICreate("zvvyt Build Creator for LoL - Icon Select Screen", 765, 400, -1, -1, $WS_MINIMIZEBOX + $ws_popup)
ConsoleWrite($Icon_Select_Screen_Background & @CRLF)
GUISetBkColor(0xFF0000)
;GUICtrlCreatePic(@WorkingDir & "ImagesLayoutIcon Select.jpg", 0, 0, 765, 450, $BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons", 325, 20, 150, 25)
GUICtrlSetState(-1, $gui_show)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search", 500, 20, 125, 25)
GUICtrlSetState(-1, $gui_show)

$Icon_Select_Screen_Minimize = GUICtrlCreateIcon("icons.dll", "MINIMIZE", 705, 5, 16, 16)
GUICtrlSetTip(-1, "Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateIcon("icons.dll", "CLOSE", 730, 5, 16, 16)
GUICtrlSetTip(-1, "Click to close")
GUICtrlCreateLabel("", 0, 0, 765, 50, -1, $GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Icon_Select_Screen = 0

GUISetState()

$Icon_Select_Screen = GUICreate("", 755, 345, 5, 50, $ws_popup, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $Icon_Select_Screen_Background)
;$ReadIcons = IniReadSection("List.ini", "Icons")
Add_Icons()
;Icon_Selection()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $aCInfo = GUIGetCursorInfo($Icon_Select_Screen_Background) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    If $aCInfo[1] < 50 Then
        If $fOver_Main = False Then
            GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
            $fOver_Main = True
        EndIf
    Else
        $fOver_Main = False
    EndIf ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

WEnd


Func Add_Icons()
    GUISwitch($Icon_Select_Screen)
    GUISetState(@SW_HIDE, $Icon_Select_Screen)
    ;_GUIScrollbars_Scroll_Page($Icon_Select_Screen, 0, 1)
    $Icon_Icon_Startcord_X = 10
    $Icon_Icon_Startcord_Y = 10
    $Row_Count = 0
    $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
    $Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
    For $1 = 1 To 100
        If $Row_Count = 10 Then
            $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
            $Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y + 74
            $Row_Count = 0
        EndIf
        GUICtrlCreateLabel("", $Icon_Icon_Cord_X, $Icon_Icon_Cord_Y, 64, 64)
        GUICtrlSetBkColor(-1, 0x00FF00)
        $Icon_Icon_Cord_X = $Icon_Icon_Cord_X + 64 + $Icon_Icon_Startcord_X
        $Row_Count = $Row_Count + 1
    Next
    If $Icon_Icon_Cord_Y + 64 > 450 Then
        _GUIScrollbars_Generate($Icon_Select_Screen, "", $Icon_Icon_Cord_Y + 64)
        ;_GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False)
    EndIf

    GUISetBkColor(0xacbdef, $Icon_Select_Screen)
    _WinAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)
    GUISetState(@SW_SHOW, $Icon_Select_Screen)
    ;Icon_Selection()
EndFunc   ;==>Add_Icons

I hope that helps. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

First of all: What did you consider "fun"? x)

And second:

What you gave me actually functioned quite great, only that the inputbox only gets focus when the cursor is above the child GUI, not that the child GUI gets focus when that one is hovered.

To get the child GUI to get focused when it's hovered I just added WinActivate($Icon_Select_Screen) to your function, so your function now looks like this:

$aCInfo = GUIGetCursorInfo($Icon_Select_Screen_Background) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If $aCInfo[1] < 50 Then
     If $fOver_Main = False Then
         GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
         $fOver_Main = True
     EndIf
Else
if $fOver_Main = False then
Else
        if WinActive($Icon_Select_Screen_Background) then
                WinActivate($Icon_Select_Screen); -----------------------------------
                $fOver_Main = False
        EndIf
EndIf
EndIf ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

AND (lol) by doing this I just noticed that when I have the script running in background my cursormovement on the forums trigger the function, activating the child GUI and makes it the top window >__<'

EDIT: Is there else a possible, and not too hardcore, solution to register the scrollcommand when the inputbox and the background/parent GUI is active and send that to the not focused child GUI?

2nd edit: Updated the script with "if WinActive($Icon_Select_Screen_Background)" to bypass the earlier problem.

Edited by zvvyt

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

only that the inputbox only gets focus when the cursor is above the child GUI, not that the child GUI gets focus when that one is hovered

But the end result is the same, no? You can use the scrollbar without clicking in the child and the input gets focus when the mouse is not over the child. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

But the end result is the same, no? You can use the scrollbar without clicking in the child and the input gets focus when the mouse is not over the child. ;)

Well .. Both yes and no I guess.

It's true, now I don't need to click in either the inputbox nor in the child GUI to make the magic happen, but still I can't have the inputbox at focus and scroll at the same time x)

Don't know if I'm wishing for the impossible by having them at 2 separate GUIs, but that was what I had my hopes for: Have both in focus at the same time-ish.

Sorry if I made that unclear at start, but many thanks for this function and for opening my eyes to the usefulness of this! :)

Best regards,

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

Try this: :)

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name

$Icon_Select_Screen_Background = GUICreate("zvvyt Build Creator for LoL - Icon Select Screen", 765, 400, -1, -1, $WS_MINIMIZEBOX + $ws_popup)
ConsoleWrite($Icon_Select_Screen_Background & @CRLF)
GUISetBkColor(0xFF0000)
;GUICtrlCreatePic(@WorkingDir & "ImagesLayoutIcon Select.jpg", 0, 0, 765, 450, $BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons", 325, 20, 150, 25)
GUICtrlSetState(-1, $gui_show)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search", 500, 20, 125, 25)
GUICtrlSetState(-1, $gui_show)

$Icon_Select_Screen_Minimize = GUICtrlCreateIcon("icons.dll", "MINIMIZE", 705, 5, 16, 16)
GUICtrlSetTip(-1, "Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateIcon("icons.dll", "CLOSE", 730, 5, 16, 16)
GUICtrlSetTip(-1, "Click to close")
GUICtrlCreateLabel("", 0, 0, 765, 50, -1, $GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Icon_Select_Screen = 0

GUISetState()

$Icon_Select_Screen = GUICreate("", 755, 345, 5, 50, $ws_popup, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $Icon_Select_Screen_Background)
;$ReadIcons = IniReadSection("List.ini", "Icons")
Add_Icons()
;Icon_Selection()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
    EndSwitch
WEnd


Func Add_Icons()
    GUISwitch($Icon_Select_Screen)
    GUISetState(@SW_HIDE, $Icon_Select_Screen)
    ;_GUIScrollbars_Scroll_Page($Icon_Select_Screen, 0, 1)
    $Icon_Icon_Startcord_X = 10
    $Icon_Icon_Startcord_Y = 10
    $Row_Count = 0
    $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
    $Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
    For $1 = 1 To 100
        If $Row_Count = 10 Then
            $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
            $Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y + 74
            $Row_Count = 0
        EndIf
        GUICtrlCreateLabel("", $Icon_Icon_Cord_X, $Icon_Icon_Cord_Y, 64, 64)
        GUICtrlSetBkColor(-1, 0x00FF00)
        $Icon_Icon_Cord_X = $Icon_Icon_Cord_X + 64 + $Icon_Icon_Startcord_X
        $Row_Count = $Row_Count + 1
    Next
    If $Icon_Icon_Cord_Y + 64 > 450 Then
        _GUIScrollbars_Generate($Icon_Select_Screen, "", $Icon_Icon_Cord_Y + 64)
        ;_GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False)
    EndIf

    GUISetBkColor(0xacbdef, $Icon_Select_Screen)
    _WinAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)
    GUISetState(@SW_SHOW, $Icon_Select_Screen)
    ;Icon_Selection()
EndFunc   ;==>Add_Icons

Now you get the input in focus as soon as you finish scrolling. Better? ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

Now you get the input in focus as soon as you finish scrolling. Better? ;)

According to the help-file, "$GUI_EVENT_PRIMARYUP" is "the primary mouse button was released.", so that didn't work at all straightly pasted into the loop =/

But the way you're thinking is the way I want it! Recognise when a scroll is done, switch to the window to scroll and when the scrolling is over, switch back to the box! :D

Best regards,

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

According to the help-file, "$GUI_EVENT_PRIMARYUP" is "the primary mouse button was released."

And so when you release the mouse button after scrolling, the input is given the focus. :)

that didn't work at all straightly pasted into the loop

Are you telling me that the code I posted did not work? :huh:

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

And so when you release the mouse button after scrolling, the input is given the focus. :)

Aah, now I see what you're after .. !

In my script I've hid the scrollbar for the visual effect, meaning all my scrolling is handled by the mousewheel.

Are you telling me that the code I posted did not work? :huh:

For the way you ment it to work it worked like a charm! ^__^'

Best regards,

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

I've hid the scrollbar for the visual effect, meaning all my scrolling is handled by the mousewheel

I see. :)

When I hide the scrollbar on that example script I can use the mousewheel to scroll when the cursor is over the icons and the input remains focused throughout:

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name

$Icon_Select_Screen_Background = GUICreate("zvvyt Build Creator for LoL - Icon Select Screen", 765, 400, -1, -1, $WS_MINIMIZEBOX + $ws_popup)
ConsoleWrite($Icon_Select_Screen_Background & @CRLF)
GUISetBkColor(0xFF0000)
;GUICtrlCreatePic(@WorkingDir & "ImagesLayoutIcon Select.jpg", 0, 0, 765, 450, $BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons", 325, 20, 150, 25)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search", 500, 20, 125, 25)

$Icon_Select_Screen_Minimize = GUICtrlCreateIcon("icons.dll", "MINIMIZE", 705, 5, 16, 16)
GUICtrlSetTip(-1, "Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateIcon("icons.dll", "CLOSE", 730, 5, 16, 16)
GUICtrlSetTip(-1, "Click to close")
GUICtrlCreateLabel("", 0, 0, 765, 50, -1, $GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Icon_Select_Screen = 0

GUISetState()

$Icon_Select_Screen = GUICreate("", 755, 345, 5, 50, $ws_popup, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $Icon_Select_Screen_Background)
;$ReadIcons = IniReadSection("List.ini", "Icons")
Add_Icons()
;Icon_Selection()

GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $GUI_EVENT_PRIMARYUP ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
    EndSwitch
WEnd


Func Add_Icons()
    GUISwitch($Icon_Select_Screen)
    GUISetState(@SW_HIDE, $Icon_Select_Screen)
    ;_GUIScrollbars_Scroll_Page($Icon_Select_Screen, 0, 1)
    $Icon_Icon_Startcord_X = 10
    $Icon_Icon_Startcord_Y = 10
    $Row_Count = 0
    $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
    $Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
    For $1 = 1 To 100
        If $Row_Count = 10 Then
            $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
            $Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y + 74
            $Row_Count = 0
        EndIf
        GUICtrlCreateLabel("", $Icon_Icon_Cord_X, $Icon_Icon_Cord_Y, 64, 64)
        GUICtrlSetBkColor(-1, 0x00FF00)
        $Icon_Icon_Cord_X = $Icon_Icon_Cord_X + 64 + $Icon_Icon_Startcord_X
        $Row_Count = $Row_Count + 1
    Next
    If $Icon_Icon_Cord_Y + 64 > 450 Then
        _GUIScrollbars_Generate($Icon_Select_Screen, "", $Icon_Icon_Cord_Y + 64)
        _GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    EndIf

    GUISetBkColor(0xacbdef, $Icon_Select_Screen)
    _WinAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)
    GUISetState(@SW_SHOW, $Icon_Select_Screen)
    ;Icon_Selection()
EndFunc   ;==>Add_Icons

Is that not good enough? :huh:

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

When I hide the scrollbar on that example script I can use the mousewheel to scroll when the cursor is over the icons and the input remains focused throughout:

Is that not good enough? :huh:

Sadly, I won't get that to work for me =/

All I get is the inputbox in focus and I'm unable to scroll at all, because even if I click in the child the $GUI_EVENT_PRIMARYUP returns focus to the inputbox.

I don't get what's wrong as you seem to get it to work =/

Here's my script from the first time I pasted it, updated with your codes. Tell me if you're able to identify the problem :o

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name
;Global $fOver_Main = True ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$Icon_Select_Screen_Background = GUICreate("Icon Select Screen",765,400,-1,-1,$WS_MINIMIZEBOX + $ws_popup)
GUICtrlCreatePic(@WorkingDir&"\Images\Layout\Icon Select.jpg",0,0,765,450,$BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons",325,20,150,25)
GUICtrlSetState(-1,$gui_show)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search",500,20,125,25)
GUICtrlSetState(-1,$gui_show)
$Icon_Select_Screen_Minimize = GUICtrlCreateIcon("icons.dll","MINIMIZE",705,5,16,16)
GUICtrlSetTip(-1,"Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateIcon("icons.dll","CLOSE",730,5,16,16)
GUICtrlSetTip(-1,"Click to close")
GUICtrlCreateLabel("",0,0,765,50,-1,$GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1,$GUI_BKCOLOR_TRANSPARENT)
$Icon_Select_Screen = GUICreate("",760,350,5,50,$ws_popup,bitor($WS_EX_MDICHILD, $WS_EX_LAYERED),$Icon_Select_Screen_Background)
$ReadIcons = IniReadSection("List.ini","Icons")
Add_Icon_Icons()
Icon_Selection()

Func Add_Icon_Icons()
GUISwitch($Icon_Select_Screen)
GUISetState(@sw_hide,$Icon_Select_Screen)
_GUIScrollbars_Scroll_Page($Icon_Select_Screen,0,1)
$Icon_Icon_Startcord_X = 10
$Icon_Icon_Startcord_Y = 10
$Row_Count = 0
$Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
$Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
for $1=1 to $ReadIcons[0][0] step +1
if $Row_Count = 10 Then
$Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
$Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y+74
$Row_count = 0
EndIf
GUICtrlCreatePic(@WorkingDir&"\Överflödigt\Icons in numbers\test\icons\"&$ReadIcons[$1][0]&".jpg",$Icon_Icon_Cord_X,$Icon_Icon_Cord_Y,64,64)
$Icon_Icon_Cord_X = $Icon_Icon_Cord_X+64+$Icon_Icon_Startcord_X
$Row_count=$Row_Count+1
Next
if $Icon_Icon_Cord_Y+64>450 Then
_GUIScrollbars_Generate($Icon_Select_Screen,"",$Icon_Icon_Cord_Y+64)
_GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False)
EndIf

GUISetBkColor(0xacbdef,$Icon_Select_Screen)
_WINAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)
GUISetState(@sw_show,$Icon_Select_Screen)
Icon_Selection()
EndFunc

func Icon_Selection()
GUISetState(@sw_show,$Icon_Select_Screen)
GUISetState(@sw_show,$Icon_Select_Screen_Background)
if GUICtrlRead($Icon_Name_Search) = "" then GUICtrlSetState($Icon_Name_Search,$GUI_FOCUS)
local $CSS_msg
GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS); <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
while 1;$CSS_msg<10
;if WinActive($Icon_Select_Screen_Background) then WinActivate($Icon_Select_Screen)
if GUICtrlRead($Icon_Name_Search) <> "" and GUICtrlRead($Icon_Name_Search) <> "Enter name to search" Then
Clear_Icon_Icons($ReadIcons[0][0])
Icon_Name_Search()
EndIf
$CSS_msg = GUIGetMsg()
if $CSS_msg>8 then
;MsgBox(0,"",guictrlgetstate($Icon_Name_Search))
;MsgBox(0,"",$CSS_msg-8)
$Icon_Selected[0]=$ReadIcons[$CSS_msg-8][0]
$Icon_Selected[1]=$ReadIcons[$CSS_msg-8][1]
MsgBox(0,"",$Icon_Selected[0]&" "&$Icon_Selected[1])
EndIf
switch $CSS_msg
case $Icon_Select_Screen_Minimize
GUISetState(@sw_minimize,$Icon_Select_Screen_Background)
case $Icon_Select_Screen_Close
Exit
case $Icon_Update_Button
Icon_Update()
Case $GUI_EVENT_PRIMARYUP ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
EndSwitch
#cs
$aCInfo = GUIGetCursorInfo($Icon_Select_Screen_Background) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If $aCInfo[1] < 50 Then
     If $fOver_Main = False Then
         GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
         $fOver_Main = True
     EndIf
Else
if $fOver_Main = False then
Else
;if WinActive($Icon_Select_Screen_Background) then
;WinActivate($Icon_Select_Screen)
$fOver_Main = False
; EndIf
EndIf
EndIf ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
#ce
WEnd
Return
EndFunc

I really appreciate you taking your time with me and my problem(s)!

Best regards,

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

This works as advertised for me - scrolls when the cursor is over the icons, with the input focused: :)

#include <ButtonConstants.au3>
#include <GUIScrollbars_Ex.au3>
#include <winapi.au3>

Global $Icon_Selected[2]; $Icon_Selected[0] = Icon number ; $Icon_Selected[1] = Icon name

$Icon_Select_Screen_Background = GUICreate("zvvyt Build Creator for LoL - Icon Select Screen", 765, 400, -1, -1, $WS_MINIMIZEBOX + $ws_popup)
GUISetBkColor(0xFF0000)
;GUICtrlCreatePic(@WorkingDir & "ImagesLayoutIcon Select.jpg", 0, 0, 765, 450, $BS_FLAT)
$Icon_Update_Button = GUICtrlCreateButton("Check for new Icons", 325, 20, 150, 25)
$Icon_Name_Search = GUICtrlCreateInput("Enter name to search", 500, 20, 125, 25)

$Icon_Select_Screen_Minimize = GUICtrlCreateButton("MINIMIZE", 705, 5, 16, 16)
GUICtrlSetTip(-1, "Click to minimize")
$Icon_Select_Screen_Close = GUICtrlCreateButton("CLOSE", 730, 5, 16, 16)
GUICtrlSetTip(-1, "Click to close")
GUICtrlCreateLabel("", 0, 0, 765, 50, -1, $GUI_WS_EX_PARENTDRAG) ;The invisible bar that allows one to drag and move the Icon select screen-window
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

$Icon_Select_Screen = GUICreate("", 755, 345, 5, 50, $ws_popup, BitOR($WS_EX_MDICHILD, $WS_EX_LAYERED), $Icon_Select_Screen_Background)

;$ReadIcons = IniReadSection("List.ini", "Icons")
Add_Icons()
Icon_Selection()

Func Add_Icons()
    GUISwitch($Icon_Select_Screen)
    GUISetState(@SW_HIDE, $Icon_Select_Screen)
    ;_GUIScrollbars_Scroll_Page($Icon_Select_Screen, 0, 1)
    $Icon_Icon_Startcord_X = 10
    $Icon_Icon_Startcord_Y = 10
    $Row_Count = 0
    $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
    $Icon_Icon_Cord_Y = $Icon_Icon_Startcord_Y
    For $1 = 1 To 100
        If $Row_Count = 10 Then
            $Icon_Icon_Cord_X = $Icon_Icon_Startcord_X
            $Icon_Icon_Cord_Y = $Icon_Icon_Cord_Y + 74
            $Row_Count = 0
        EndIf
        GUICtrlCreateLabel("", $Icon_Icon_Cord_X, $Icon_Icon_Cord_Y, 64, 64)
        GUICtrlSetBkColor(-1, 0x00FF00)
        $Icon_Icon_Cord_X = $Icon_Icon_Cord_X + 64 + $Icon_Icon_Startcord_X
        $Row_Count = $Row_Count + 1
    Next
    If $Icon_Icon_Cord_Y + 64 > 450 Then
        _GUIScrollbars_Generate($Icon_Select_Screen, "", $Icon_Icon_Cord_Y + 64)
        _GUIScrollBars_ShowScrollBar($Icon_Select_Screen, $SB_VERT, False)
    EndIf

    GUISetBkColor(0xacbdef, $Icon_Select_Screen)
    _WinAPI_SetLayeredWindowAttributes($Icon_Select_Screen, 0xacbdef, 255)

EndFunc   ;==>Add_Icons

Func Icon_Selection()
    GUISetState(@SW_SHOW, $Icon_Select_Screen)
    GUISetState(@SW_SHOW, $Icon_Select_Screen_Background)
    ;If GUICtrlRead($Icon_Name_Search) = "" Then GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
    Local $CSS_msg
    GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
    While 1;$CSS_msg<10
        ;if WinActive($Icon_Select_Screen_Background) then WinActivate($Icon_Select_Screen)
        If GUICtrlRead($Icon_Name_Search) <> "" And GUICtrlRead($Icon_Name_Search) <> "Enter name to search" Then

            ConsoleWrite("Searching icons" & @CRLF)

            ;Clear_Icon_Icons($ReadIcons[0][0])
            ;Icon_Name_Search()

        EndIf
        $CSS_msg = GUIGetMsg()
        If $CSS_msg > 8 Then
            ;MsgBox(0,"",guictrlgetstate($Icon_Name_Search))
            ;MsgBox(0,"",$CSS_msg-8)
            ;$Icon_Selected[0] = $ReadIcons[$CSS_msg - 8][0]
            ;$Icon_Selected[1] = $ReadIcons[$CSS_msg - 8][1]
            ;MsgBox(0, "", $Icon_Selected[0] & " " & $Icon_Selected[1])
            ConsoleWrite("Icon selected" & @CRLF)
        EndIf
        Switch $CSS_msg
            Case $Icon_Select_Screen_Minimize
                GUISetState(@SW_MINIMIZE, $Icon_Select_Screen_Background)
            Case $Icon_Select_Screen_Close
                Exit
            Case $Icon_Update_Button
                ConsoleWrite("Updating" & @CRLF)
                ;Icon_Update()
            Case $GUI_EVENT_PRIMARYUP
                GUICtrlSetState($Icon_Name_Search, $GUI_FOCUS)
        EndSwitch
    WEnd
EndFunc   ;==>Icon_Selection

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

This works as advertised for me - scrolls when the cursor is over the icons, with the input focused: :)

This is so frustrating .. Tested your script and it won't work for me =/ Don't know if this is OS-related now or if my computer just refuses to let it work, as I'm running latest version of AutoIt and scite.

On a laptop running Windows 7 x64 if that would make any difference ..

Best regards,

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

I asked someone to test the script on their Win7 x64 box and it works for them too. So it must be you. :P

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

I guess then that you don't have a possible solution for this problem I'm now having then? or a workaround of some sort? x)

Compiled the script and sent it to a friend of mine. Didn't work for him either =/

Share this post


Link to post
Share on other sites
Melba23

zvvyt,

you don't have a possible solution

Alas, no. As it works for me and an MVP on Win7 x64 I cannot really offer any more assistance, sorry. :(

M23

Edit: You could go back to the old script I posted at the beginning. ;)

Edit 2: Another MVP cannot get it to run on several systems - including Win7 x64 - so I am now even more confused. :wacko:

Edited by Melba23
Added second edit

Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites
zvvyt

Alas, no. As it works for me and an MVP on Win7 x64 I cannot really offer any more assistance, sorry. :(

Baah, alright. I totally understand that :)

Edit: You could go back to the old script I posted at the beginning. ;)

Yea, I guess that's how it look at the moment.

Edit 2: Another MVP cannot get it to run on several systems - including Win7 x64 - so I am now even more confused. :wacko:

Well, this actually makes me a bit "happy" that it's not only I and my machine that's having trouble! :D

Did try to run my computer in safe mode aswell, in case I had another program running which caused this, but it did still behave the same.

IF you come up with something or just "hears" something about this, would you mind posting here again or send me a PM about it? :)

Most thankful for both your time and effort with this case! You guys are doing an excellent job on the forums!

Best regards,

zvvyt

Share this post


Link to post
Share on other sites
zvvyt

First of all: Sorry for doubleposting!

And second: I just got the problem solved myself.

What I did was I created a hidden inputbox by GUICtrlCreateInput which is automatically focused when the child GUI/"scroll gui" is focused. Then I just had it update the visually shown inputbox in the parent window as soon as its content was changed, so it's more or less like a hidden mirror of the shown inputbox!

Just felt like telling in case someone else finds this thread with a problem similar to mine =)

Best regards,

zvvyt

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Similar Content

    • FrancescoDiMuro
      By FrancescoDiMuro
      Good morning everyone

      I was playing a little bit with "Screen Capture" UDF, and I was trying to make a "Window" capture, but, since I made a GUI which through I fire the event "Capture", my GUI is captured as well, and I don't want to
      This is the line of code that makes the capture:
       
      _ScreenCapture_CaptureWnd($strScreenCaptureFileName, $objActiveWindow, 0, 0, -1, -1, False) And these are the lines of code which select the "active" window:
       
      Local $objCurrentWindow = 9999 If _IsPressed("01") Then $objCurrentWindow = WinGetHandle("[ACTIVE]") If $objCurrentWindow <> $objMyGUI Then $objActiveWindow = $objCurrentWindow EndIf EndIf Sorry If I made stupid mistakes
      Thanks in advance.

      Francesco
    • AdamUL
      By AdamUL
      Here is a function that will return a 2D array of visible windows.  You will notice that windows "Start" and "Program Manager"  windows will always be in the array.  The array returns the title of the window, the window handle, the PID of the process associated with the window, the process name associated with the window, the window's position, and the window's dimension,  Please see comments in the code about the numbers returned about the window's position.
       
      #include <Array.au3> #include <Process.au3> ;Get a list of visable windows with titles. $aWindows = _GetVisibleWindows() _ArrayDisplay($aWindows) Func _GetVisibleWindows() ;Retrieve a list of windows. Local $aWinList = WinList() If Not IsArray($aWinList) Then Return SetError(0, 0, 0) ;Loop through the array deleting no title or invisable windows. Local $sDeleteRows = "" For $i = 1 To $aWinList[0][0] If $aWinList[$i][0] = "" Or Not BitAND(WinGetState($aWinList[$i][1]), $WIN_STATE_VISIBLE) Then $sDeleteRows &= $i & ";" EndIf Next $sDeleteRows = StringTrimRight($sDeleteRows, 1) ;Remove last ";". _ArrayDelete($aWinList, $sDeleteRows) $aWinList[0][0] = UBound($aWinList) - 1 ;Get Window's Processor ID (PID), and add to the array. _ArrayColInsert($aWinList, UBound($aWinList, 2)) For $i = 1 To $aWinList[0][0] $aWinList[$i][2] = WinGetProcess($aWinList[$i][1]) Next ;Get Window's Process Name from PID, and add to the array. _ArrayColInsert($aWinList, UBound($aWinList, 2)) For $i = 1 To $aWinList[0][0] $aWinList[$i][3] = _ProcessGetName($aWinList[$i][2]) Next ;Get Windows's Position and Size, and add it to the array. ;For Position, -3200,-3200 is minimized window, -8,-8 is maximized window on 1st display, and ;x,-8 is maximized windown on the nth display were x is the nth display width plus -8 (W + -8). _ArrayColInsert($aWinList, UBound($aWinList, 2)) ;Position (X,Y). _ArrayColInsert($aWinList, UBound($aWinList, 2)) ;Dimension (WxH). Local $aWinPosSize For $i = 1 To $aWinList[0][0] $aWinPosSize = WinGetPos($aWinList[$i][1]) $aWinList[$i][4] = $aWinPosSize[0] & "," & $aWinPosSize[1] $aWinList[$i][5] = $aWinPosSize[2] & "x" & $aWinPosSize[3] Next Return $aWinList EndFunc ;==>_GetVisibleWindows  
      Adam
       
    • nacerbaaziz
      By nacerbaaziz
      Hello
      I have an inquiry please
      when i use the control get focus
      it don't detect the menu item
      there are any Method to do that?
      i'll use that to make a custom screen reader in my program
      please help me to do that
      I am waiting for your answers
      greetings to you
      Thank you in advance
       
    • kklee69
      By kklee69
      When LISTVIEW loses focus,the selected item will turn gray.
      How can I change It . Let it continue to stay blue
      Do not gray

       
      #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Example() Func Example() Local $listview, $button, $item1, $item2, $item3, $msg GUICreate("LISTVIEW", 220, 250, 100, 200, -1, $WS_EX_ACCEPTFILES) $listview = GUICtrlCreateListView("NO1 |NO2|NO3 ", 10, 10, 200, 150);,$LVS_SORTDESCENDING) $button = GUICtrlCreateButton("BUTTON", 75, 170, 70, 20) $item1 = GUICtrlCreateListViewItem ("A1|A2|A3", $listview) $item2 = GUICtrlCreateListViewItem ("B1|B2|B3", $listview) $item3 = GUICtrlCreateListViewItem ("C1|C2|C3", $listview) $item4 = GUICtrlCreateListViewItem ("D1|D2|D3", $listview) $item5 = GUICtrlCreateListViewItem ("E1|E2|E3", $listview) GUICtrlCreateInput("", 20, 200, 150) GUISetState() Do $msg = GUIGetMsg() Select Case $msg = $button MsgBox(0, "", GUICtrlRead(GUICtrlRead($listview)), 2) Case $msg = $listview MsgBox(0, "", "" & GUICtrlGetState($listview), 2) EndSelect Until $msg = $GUI_EVENT_CLOSE EndFunc ;==>Example  
    • Bilgus
      By Bilgus
      Literally just a list of listview styles / extended styles and WS / WSEX styles prints them in the console by their name
      ;Debug ;Debug_GetLvMStyles($g_hListView) ;Debug_GetHDStyles($g_hListView) ;Debug_GetWSStyles($g_hListView) ;Debug_GetWSStyles($g_hWnd) ;;#include <ListViewConstants.au3> Func Debug_GetLvMStyles($hListView) Local $LVStyle = _WinAPI_GetWindowLong($hListView, -16) Local $LVExStyle = _GUICtrlListView_GetExtendedListViewStyle($hListView) Local $sLVSTYLES Local $sLVExSTYLES If @error Then ConsoleWrite(" Error Debug_GetLvMStyles Couldn't retrieve Styles") Return EndIf If BitAND($LVStyle, $LVS_ALIGNLEFT) Then $sLVSTYLES &= "$LVS_ALIGNLEFT, " If BitAND($LVStyle, $LVS_ALIGNMASK) Then $sLVSTYLES &= "$LVS_ALIGNMASK, " If BitAND($LVStyle, $LVS_ALIGNTOP) Then $sLVSTYLES &= "$LVS_ALIGNTOP, " If BitAND($LVStyle, $LVS_AUTOARRANGE) Then $sLVSTYLES &= "$LVS_AUTOARRANGE, " If BitAND($LVStyle, $LVS_DEFAULT) Then $sLVSTYLES &= "LVS_DEFAULT," If BitAND($LVStyle, $LVS_EDITLABELS) Then $sLVSTYLES &= "LVS_EDITLABELS, " If BitAND($LVStyle, $LVS_ICON) Then $sLVSTYLES &= "LVS_ICON, " If BitAND($LVStyle, $LVS_LIST) Then $sLVSTYLES &= "LVS_LIST, " If BitAND($LVStyle, $LVS_NOCOLUMNHEADER) Then $sLVSTYLES &= "LVS_NOCOLUMNHEADER, " If BitAND($LVStyle, $LVS_NOLABELWRAP) Then $sLVSTYLES &= "LVS_NOLABELWRAP, " If BitAND($LVStyle, $LVS_NOSCROLL) Then $sLVSTYLES &= "LVS_NOSCROLL, " If BitAND($LVStyle, $LVS_NOSORTHEADER) Then $sLVSTYLES &= "LVS_NOSORTHEADER, " If BitAND($LVStyle, $LVS_OWNERDATA) Then $sLVSTYLES &= "LVS_OWNERDATA, " If BitAND($LVStyle, $LVS_OWNERDRAWFIXED) Then $sLVSTYLES &= "LVS_OWNERDRAWFIXED, " If BitAND($LVStyle, $LVS_REPORT) Then $sLVSTYLES &= "LVS_REPORT, " If BitAND($LVStyle, $LVS_SHAREIMAGELISTS) Then $sLVSTYLES &= "LVS_SHAREIMAGELISTS, " If BitAND($LVStyle, $LVS_SHOWSELALWAYS) Then $sLVSTYLES &= "LVS_SHOWSELALWAYS, " If BitAND($LVStyle, $LVS_SINGLESEL) Then $sLVSTYLES &= "LVS_SINGLESEL, " If BitAND($LVStyle, $LVS_SMALLICON) Then $sLVSTYLES &= "LVS_SMALLICON, " If BitAND($LVStyle, $LVS_SORTASCENDING) Then $sLVSTYLES &= "LVS_SORTASCENDING, " If BitAND($LVStyle, $LVS_SORTDESCENDING) Then $sLVSTYLES &= "LVS_SORTDESCENDING, " If BitAND($LVStyle, $LVS_TYPEMASK) Then $sLVSTYLES &= "LVS_TYPEMASK, " If BitAND($LVStyle, $LVS_TYPESTYLEMASK) Then $sLVSTYLES &= "LVS_TYPESTYLEMASK, " If BitAND($LVExStyle, $LVS_EX_AUTOAUTOARRANGE) Then $sLVExSTYLES &= "$LVS_EX_AUTOARRANGE, " If BitAND($LVExStyle, $LVS_EX_AUTOCHECKSELECT) Then $sLVExSTYLES &= "$LVS_EX_AUTOCHECKSELECT, " If BitAND($LVExStyle, $LVS_EX_AUTOSIZECOLUMNS) Then $sLVExSTYLES &= "$LVS_EX_AUTOSIZECOLUMNS, " If BitAND($LVExStyle, $LVS_EX_BORDERSELECT) Then $sLVExSTYLES &= "$LVS_EX_BORDERSELECT, " If BitAND($LVExStyle, $LVS_EX_CHECKBOXES) Then $sLVExSTYLES &= "$LVS_EX_CHECKBOXES, " If BitAND($LVExStyle, $LVS_EX_COLUMNOVERFLOW) Then $sLVExSTYLES &= "$LVS_EX_COLUMNOVERFLOW, " If BitAND($LVExStyle, $LVS_EX_COLUMNSNAPPOINTS) Then $sLVExSTYLES &= "$LVS_EX_COLUMNSNAPPOINTS, " If BitAND($LVExStyle, $LVS_EX_DOUBLEBUFFER) Then $sLVExSTYLES &= "$LVS_EX_DOUBLEBUFFER, " If BitAND($LVExStyle, $LVS_EX_FLATSB) Then $sLVExSTYLES &= "$LVS_EX_FLATSB, " If BitAND($LVExStyle, $LVS_EX_FULLROWSELECT) Then $sLVExSTYLES &= "$LVS_EX_FULLROWSELECT, " If BitAND($LVExStyle, $LVS_EX_GRIDLINES) Then $sLVExSTYLES &= "$LVS_EX_GRIDLINES, " If BitAND($LVExStyle, $LVS_EX_HEADERDRAGDROP) Then $sLVExSTYLES &= "$LVS_EX_HEADERDRAGDROP, " If BitAND($LVExStyle, $LVS_EX_HEADERINALLVIEWS) Then $sLVExSTYLES &= "$LVS_EX_HEADERINALLVIEWS, " If BitAND($LVExStyle, $LVS_EX_HIDELABELS) Then $sLVExSTYLES &= "$LVS_EX_HIDELABELS, " If BitAND($LVExStyle, $LVS_EX_INFOTIP) Then $sLVExSTYLES &= "$LVS_EX_INFOTIP, " If BitAND($LVExStyle, $LVS_EX_JUSTIFYCOLUMNS) Then $sLVExSTYLES &= "$LVS_EX_JUSTIFYCOLUMNS, " If BitAND($LVExStyle, $LVS_EX_LABELTIP) Then $sLVExSTYLES &= "$LVS_EX_LABELTIP, " If BitAND($LVExStyle, $LVS_EX_MULTIWORKAREAS) Then $sLVExSTYLES &= "$LVS_EX_MULTIWORKAREAS, " If BitAND($LVExStyle, $LVS_EX_ONECLICKACTIVATE) Then $sLVExSTYLES &= "$LVS_EX_ONECLICKACTIVATE, " If BitAND($LVExStyle, $LVS_EX_REGIONAL) Then $sLVExSTYLES &= "$LVS_EX_REGIONAL, " If BitAND($LVExStyle, $LVS_EX_SIMPLESELECT) Then $sLVExSTYLES &= "$LVS_EX_SIMPLESELECT, " If BitAND($LVExStyle, $LVS_EX_SNAPTOGRID) Then $sLVExSTYLES &= "$LVS_EX_SNAPTOGRID, " If BitAND($LVExStyle, $LVS_EX_SUBITEMIMAGES) Then $sLVExSTYLES &= "$LVS_EX_SUBITEMIMAGES, " If BitAND($LVExStyle, $LVS_EX_TRACKSELECT) Then $sLVExSTYLES &= "$LVS_EX_TRACKSELECT, " If BitAND($LVExStyle, $LVS_EX_TRANSPARENTBKGND) Then $sLVExSTYLES &= "$LVS_EX_TRANSPARENTBACKGROUND, " If BitAND($LVExStyle, $LVS_EX_TRANSPARENTSHADOWTEXT) Then $sLVExSTYLES &= "$LVS_EX_TRANSPARENTTEXTSHADOW, " If BitAND($LVExStyle, $LVS_EX_TWOCLICKACTIVATE) Then $sLVExSTYLES &= "$LVS_EX_TWOCLICKACTIVATE, " If BitAND($LVExStyle, $LVS_EX_UNDERLINECOLD) Then $sLVExSTYLES &= "$LVS_EX_UNDERLINECOLD, " If BitAND($LVExStyle, $LVS_EX_UNDERLINEHOT) Then $sLVExSTYLES &= "$LVS_EX_UNDERLINEHOT, " ConsoleWrite("Lv Styles= " & $sLVSTYLES & @CRLF) ConsoleWrite("Lv Ex Styles= " & $sLVExSTYLES & @CRLF) EndFunc ;==>Debug_GetLvMStyles ;;#include <HeaderConstants.au3> Func Debug_GetHDStyles($hListView) Local $hHeader = _GUICtrlListView_GetHeader($hListView) Local $HDStyle = _WinAPI_GetWindowLong($hHeader, -16) Local $sHDSTYLES If @error Then ConsoleWrite(" Error Debug_GetHDStyles Couldn't retrieve Styles") Return EndIf If BitAND($HDStyle, $HDS_BUTTONS) Then $sHDSTYLES &= "$HDS_STYLES, " ;0x00000002 ; Each item in the control looks and behaves like a push button If BitAND($HDStyle, $HDS_CHECKBOXES) Then $sHDSTYLES &= "$HDS_CHECKBOXES, " ;0x00000400 ; Allows the placing of checkbo ;es on header items on Vista If BitAND($HDStyle, $HDS_DRAGDROP) Then $sHDSTYLES &= "$HDS_DRAGDROP, " ;0x00000040 ; Allows drag-and-drop reordering of header items If BitAND($HDStyle, $HDS_FILTERBAR) Then $sHDSTYLES &= "$HDS_FILTERBAR, " ;0x00000100 ; Include a filter bar as part of the standard header control If BitAND($HDStyle, $HDS_FLAT) Then $sHDSTYLES &= "$HDS_FLAT, " ;0x00000200 ; Control is drawn flat when XP is running in classic mode If BitAND($HDStyle, $HDS_FULLDRAG) Then $sHDSTYLES &= "$HDS_FULLDRAG, " ;0x00000080 ; Column contents are displayed while the user resizes a column If BitAND($HDStyle, $HDS_HIDDEN) Then $sHDSTYLES &= "$HDS_HIDDEN, " ;0x00000008 ; Indicates a header control that is intended to be hidden If BitAND($HDStyle, $HDS_HORZ) Then $sHDSTYLES &= "$HDS_HORZ, " ;0x00000000 ; Creates a header control with a horizontal orientation If BitAND($HDStyle, $HDS_HOTTRACK) Then $sHDSTYLES &= "$HDS_HOTTRACK, " ;0x00000004 ; Enables hot tracking If BitAND($HDStyle, $HDS_NOSIZING) Then $sHDSTYLES &= "$HDS_NOSIZING, " ;0x0800 ; The user cannot drag the divider on the header control on Vista If BitAND($HDStyle, $HDS_OVERFLOW) Then $sHDSTYLES &= "$HDS_OVERFLOW, " ;0x1000 ; A button is displayed when not all items can be displayed within the header control's rectangle on Vista If BitAND($HDStyle, $HDS_DEFAULT) Then $sHDSTYLES &= "$HDS_DEFAULT, " ;0x00000046 ; Default header style $HDS_DRAGDROP + $HDS_HOTTRACK + $HDS_BUTTONS ConsoleWrite("Header Styles= " & $sHDSTYLES & @CRLF) EndFunc ;==>Debug_GetHDStyles Func Debug_GetWSStyles($hWnd) ;#include <WindowsConstants.au3> Local $WSStyle = _WinAPI_GetWindowLong($hWnd, -16) Local $sWSSTYLES Local $WSEXStyle = _WinAPI_GetWindowLong($hWnd, -20) ;_GUICtrlListView_GetExtendedListViewStyle($hListView); Local $sWSEXSTYLES If @error Then ConsoleWrite(" Error Debug_GetWSStyles Couldn't retrieve Styles") Return EndIf If BitAND($WSStyle, $WS_OVERLAPPED) Then $sWSSTYLES &= "$WS_OVERLAPPED, " If BitAND($WSStyle, $WS_TILED) Then $sWSSTYLES &= "$WS_TILED, " If BitAND($WSStyle, $WS_MAXIMIZEBOX) Then $sWSSTYLES &= "$WS_MAXIMIZEBOX, " ;0x00010000 If BitAND($WSStyle, $WS_MINIMIZEBOX) Then $sWSSTYLES &= "$WS_MINIMIZEBOX, " ;0x00020000 If BitAND($WSStyle, $WS_TABSTOP) Then $sWSSTYLES &= "$WS_TABSTOP, " ;0x00010000 If BitAND($WSStyle, $WS_GROUP) Then $sWSSTYLES &= "$WS_GROUP, " ;0x00020000 If BitAND($WSStyle, $WS_SIZEBOX) Then $sWSSTYLES &= "$WS_SIZEBOX, " ;0x00040000 If BitAND($WSStyle, $WS_THICKFRAME) Then $sWSSTYLES &= "$WS_THICKFRAME, " If BitAND($WSStyle, $WS_SYSMENU) Then $sWSSTYLES &= "$WS_SYSMENU, " ;0x00080000 If BitAND($WSStyle, $WS_HSCROLL) Then $sWSSTYLES &= "$WS_HSCROLL, " ;0x00100000 If BitAND($WSStyle, $WS_VSCROLL) Then $sWSSTYLES &= "$WS_VSCROLL, " ;0x00200000 If BitAND($WSStyle, $WS_DLGFRAME) Then $sWSSTYLES &= "$WS_DLGFRAME, " ;0x00400000 If BitAND($WSStyle, $WS_BORDER) Then $sWSSTYLES &= "$WS_BORDER, " ;0x00800000 If BitAND($WSStyle, $WS_CAPTION) Then $sWSSTYLES &= "$WS_CAPTION, " ;0x00C00000 If BitAND($WSStyle, $WS_OVERLAPPEDWINDOW) Then $sWSSTYLES &= "$WS_OVERLAPPEDWINDOW, " If BitAND($WSStyle, $WS_TILEDWINDOW) Then $sWSSTYLES &= "$WS_TILEDWINDOW, " If BitAND($WSStyle, $WS_MAXIMIZE) Then $sWSSTYLES &= "$WS_MAXIMIZE, " ;0x01000000 If BitAND($WSStyle, $WS_CLIPCHILDREN) Then $sWSSTYLES &= "$WS_CLIPCHILDREN, " ;0x02000000 If BitAND($WSStyle, $WS_CLIPSIBLINGS) Then $sWSSTYLES &= "$WS_CLIPSIBLINGS, " ;0x04000000 If BitAND($WSStyle, $WS_DISABLED) Then $sWSSTYLES &= "$WS_DISABLED, " ;0x08000000 If BitAND($WSStyle, $WS_VISIBLE) Then $sWSSTYLES &= "$WS_VISIBLE, " ;0x10000000 If BitAND($WSStyle, $WS_MINIMIZE) Then $sWSSTYLES &= "$WS_MINIMIZE, " ;0x20000000 If BitAND($WSStyle, $WS_ICONIC) Then $sWSSTYLES &= "$WS_ICONIC, " If BitAND($WSStyle, $WS_CHILD) Then $sWSSTYLES &= "$WS_CHILD, " ;0x40000000 If BitAND($WSStyle, $WS_CHILDWINDOW) Then $sWSSTYLES &= "$WS_CHILDWINDOW, " If BitAND($WSStyle, $WS_POPUP) Then $sWSSTYLES &= "$WS_POPUP, " ;0x80000000 If BitAND($WSStyle, $WS_POPUPWINDOW) Then $sWSSTYLES &= "$WS_POPUPWINDOW, " ;0x80880000 If BitAND($WSEXStyle, $WS_EX_ACCEPTFILES) Then $sWSEXSTYLES &= "$WS_EX_ACCEPTFILES, " ;0x00000010 If BitAND($WSEXStyle, $WS_EX_APPWINDOW) Then $sWSEXSTYLES &= "$WS_EX_APPWINDOW, " ;0x00040000 If BitAND($WSEXStyle, $WS_EX_COMPOSITED) Then $sWSEXSTYLES &= "$WS_EX_COMPOSITED, " ;0x02000000 If BitAND($WSEXStyle, $WS_EX_CONTROLPARENT) Then $sWSEXSTYLES &= "$WS_EX_CONTROLPARENT, " ;0x10000 If BitAND($WSEXStyle, $WS_EX_CLIENTEDGE) Then $sWSEXSTYLES &= "$WS_EX_CLIENTEDGE, " ;0x00000200 If BitAND($WSEXStyle, $WS_EX_CONTEXTHELP) Then $sWSEXSTYLES &= "$WS_EX_CONTEXTHELP, " ;0x00000400 If BitAND($WSEXStyle, $WS_EX_DLGMODALFRAME) Then $sWSEXSTYLES &= "$WS_EX_DLGMODALFRAME, " ;0x00000001 If BitAND($WSEXStyle, $WS_EX_LAYERED) Then $sWSEXSTYLES &= "$WS_EX_LAYERED, " ;0x00080000 If BitAND($WSEXStyle, $WS_EX_LAYOUTRTL) Then $sWSEXSTYLES &= "$WS_EX_LAYOUTRTL, " ;0x400000 If BitAND($WSEXStyle, $WS_EX_LEFT) Then $sWSEXSTYLES &= "$WS_EX_LEFT, " ;0x00000000 If BitAND($WSEXStyle, $WS_EX_LEFTSCROLLBAR) Then $sWSEXSTYLES &= "$WS_EX_LEFTSCROLLBAR, " ;0x00004000 If BitAND($WSEXStyle, $WS_EX_LTRREADING) Then $sWSEXSTYLES &= "$WS_EX_LTRREADING, " ;0x00000000 If BitAND($WSEXStyle, $WS_EX_MDICHILD) Then $sWSEXSTYLES &= "$WS_EX_MDICHILD, " ;0x00000040 If BitAND($WSEXStyle, $WS_EX_NOACTIVATE) Then $sWSEXSTYLES &= "$WS_EX_NOACTIVATE, " ;0x08000000 If BitAND($WSEXStyle, $WS_EX_NOINHERITLAYOUT) Then $sWSEXSTYLES &= "$WS_EX_NOINHERITLAYOUT, " ;0x00100000 If BitAND($WSEXStyle, $WS_EX_NOPARENTNOTIFY) Then $sWSEXSTYLES &= "$WS_EX_NOPARENTNOTIFY, " ;0x00000004 If BitAND($WSEXStyle, $WS_EX_RIGHT) Then $sWSEXSTYLES &= "$WS_EX_RIGHT, " ;0x00001000 If BitAND($WSEXStyle, $WS_EX_RIGHTSCROLLBAR) Then $sWSEXSTYLES &= "$WS_EX_RIGHTSCROLLBAR, " ;0x00000000 If BitAND($WSEXStyle, $WS_EX_RTLREADING) Then $sWSEXSTYLES &= "$WS_EX_RTLREADING, " ;0x2000 If BitAND($WSEXStyle, $WS_EX_STATICEDGE) Then $sWSEXSTYLES &= "$WS_EX_STATICEDGE, " ;0x00020000 If BitAND($WSEXStyle, $WS_EX_TOOLWINDOW) Then $sWSEXSTYLES &= "$WS_EX_TOOLWINDOW, " ;0x00000080 If BitAND($WSEXStyle, $WS_EX_TOPMOST) Then $sWSEXSTYLES &= "$WS_EX_TOPMOST, " ;0x00000008 If BitAND($WSEXStyle, $WS_EX_TRANSPARENT) Then $sWSEXSTYLES &= "$WS_EX_TRANSPARENT, " ;0x00000020 If BitAND($WSEXStyle, $WS_EX_WINDOWEDGE) Then $sWSEXSTYLES &= "$WS_EX_WINDOWEDGE, " ;0x00000100 If BitAND($WSEXStyle, $WS_EX_OVERLAPPEDWINDOW) Then $sWSEXSTYLES &= "$WS_EX_OVERLAPPEDWINDOW, " If BitAND($WSEXStyle, $WS_EX_PALETTEWINDOW) Then $sWSEXSTYLES &= "$WS_EX_PALETTEWINDOW, " ConsoleWrite("WS Styles= " & $sWSSTYLES & @CRLF) ConsoleWrite("WS EX Styles= " & $sWSEXSTYLES & @CRLF) EndFunc ;==>Debug_GetWSStyles  
×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.