$GUI_WS_EX_PARENTDRAG Question

[alawoona]

I have a script where I define a Label style as:

GUICtrlSetStyle ($cLabel01, -1, $GUI_WS_EX_PARENTDRAG).

This works as I can drag the GUI across my screen by clicking and dragging the label. My question is how do I turn off this function by changing the style of the label. I can do it now by deleting the control and then recreating it with default styles, i.e. not-draggable. Is there a more elegant solution?

[Guest]

You can turn it off by using this code: GUICtrlSetStyle ($cLabel01, -1, 0)

and to turn it on again use this code: GUICtrlSetStyle ($cLabel01, -1, $GUI_WS_EX_PARENTDRAG)

[alawoona]

thank you

[Melba23]

alawoona,

Becareful if you have other styles applied to the label in addition to $GUI_WS_EX_PARENTDRAG as they will be removed when you use the GUICtrlSetStyle function - applying a new style value overwrites existing style values.

You can get round this in 2 ways:

- 1. Store the current style value in a variable, adjust it as required and then use it when resetting the style.

- 2. Read the current style value each time by calling the Windows API directly:

#include <Constants.au3> ; Do not forget these include files!
#include <WinAPI.au3>

$iStyle   = _WinAPI_GetWindowLong(GUICtrlGetHandle($iControlID), $GWL_STYLE)
$iExStyle = _WinAPI_GetWindowLong(GUICtrlGetHandle($iControlID), $GWL_EXSTYLE)

; Once you have the current value then you can easily add or subtract other styles from it.

; Adding a new style is simple - we just use BitOR as usual:
GUICtrlSetStyle($iControlID, BitOR($iOldStyleValue, $iNewStyle))

; Subtracting a style can be done in 2 ways - although one is much easier to use:
GUICtrlSetStyle($iControlID, BitXOR($iOldStyleValue, $iStyleToRemove))
GUICtrlSetStyle($iControlID, BitAnd($iOldStyleValue, BitNOT($iStyleToRemove)))

; You can do a similar operation for the extended style value

If you want to learn more about styles and why you have to go through this pretty complex procedure, I recommend the Setting Styles tutorial in the Wiki.

M23

[alawoona]

Great! Thank you Melba23