Help File/Documentation Issues. (Discussion Only)

[pixelsearch]

13 hours ago, mLipok said:

Could somebody show example when Test 1 result is different from Test 2 ?

 

; Local $hWnd_2 = GUICreate("Window 2", Default, Default, -1, -1, -1, -1, $hWnd_0) ; owned window
Local $hWnd_2 = GUICreate("Window 2", Default, Default, -1, -1, $WS_CHILD, -1, $hWnd_0) ; child window

[pixelsearch]

For the record, I found a possible issue with the extended style $WS_EX_MDICHILD
Though the window is created with this extended style, its value doesn't appear with AutoIt Window Info Tool or with _WinAPI_GetWindowLong etc...
To make it appear, I need to force it, after the window creation, with _WinAPI_SetWindowLong
Don't know if it's only on my computer or if it can be reproduced on other computers.

Here is an example, just look at the Console after you close the MsgBox :
* First  line indicates 0x00000100 (the forced Exstyle $WS_EX_WINDOWEDGE)
* Second line indicates 0x00000140 ($WS_EX_WINDOWEDGE + $WS_EX_MDICHILD which is 0x00000040)

If you think it is a bug, then I'll create a Trac Ticket with a simpler script than the following :

expandcollapse popup

#include <MsgBoxConstants.au3>
#include <WinAPISysWin.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", 1)

Example()

Func Example()
    Local $hGUI, $hMdiChild

    $hGUI = GUICreate("")
    WinSetTitle($hGUI, "", "GUI  " & $hGUI)
    GuiCtrlCreateLabel("Label in GUI", 200, 0, 90, 20)
    GUICtrlSetBkColor(-1, 0xFFFF00)

    $hMdiChild = GUICreate("", 300, 200, 0, 0, -1, $WS_EX_MDICHILD, $hGUI)
    WinSetTitle($hMdiChild, "", "MdiChild  " & $hMdiChild)
    GuiCtrlCreateLabel("Label in MdiChild", 200, 0, 90, 20)
    GUICtrlSetBkColor(-1, 0x00FFFF)

    GUISetState(@SW_SHOW, $hGUI)
    GUISetState(@SW_SHOW, $hMdiChild)

    MsgBox($MB_TOPMOST, "Parent/Ancestors of MdiChild window "  & $hMdiChild , _
        "Reminder : $hGUI = " & $hGUI & @crlf & _
        "Reminder : $hMdiChild = " & $hMdiChild & @crlf & @crlf & _
        "_WinAPI_GetParent = " & _WinAPI_GetParent($hMdiChild) & " (owner, not parent +++)" & @crlf & @crlf & _
        "_WinAPI_GetAncestor (Parent)   = " & _WinAPI_GetAncestor($hMdiChild, $GA_PARENT) & " (desktop)" & @crlf & _
        "_WinAPI_GetAncestor (Root)     = " & _WinAPI_GetAncestor($hMdiChild, $GA_ROOT) & " (itself)" & @crlf & _
        "_WinAPI_GetAncestor (Owner)  = "   & _WinAPI_GetAncestor($hMdiChild, $GA_ROOTOWNER) & " (gui)")

    ConsoleWrite("1 - ExStyles of $hMdiChild : 0x" & Hex(_WinAPI_GetWindowLong($hMdiChild, $GWL_EXSTYLE), 8) & @crlf)

    _WinAPI_SetWindowLong($hMdiChild, $GWL_EXSTYLE, $WS_EX_MDICHILD)
    ConsoleWrite("2 - ExStyles of $hMdiChild : 0x" & Hex(_WinAPI_GetWindowLong($hMdiChild, $GWL_EXSTYLE), 8) & @crlf)

    Do
    Until GUIGetMsg() = -3

    GuiDelete($hMdiChild)
    GuiDelete($hGUI)
EndFunc   ;==>Example

 

Edited 2 hours ago by pixelsearch
typo

[donnyh13]

5 hours ago, jpm said:

Many Thanks I have committed something similar based on wikipedia x11

Looks good @jpm, Thanks very much!

Best regards,

Donny