Subform not appearing with same Windows style

[mtmartis]

I have a form that calls a sub form. The first form window shows correctly (I have Windows 7 so the title bar has the transparent effect), but when the second verification sub form appears, it looks has the Windows 9x style. I am using the Winapiex UDF from

If I remove the Winapiex functions:

_WinAPI_SetThemeAppProperties($STAP_ALLOW_NONCLIENT)

$Theme = _WinAPI_GetThemeAppProperties()

then the sub form appears correctly with the Windows 7 Aero Windows style.

So am I missing something in the sub-form? Or is it a limitation of the UDF? I am hoping for the prior.

expandcollapse popup

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <winapiex.au3>

Global $STAP_ALLOW_NONCLIENT , $Msg
$Image = "Image.jpg"
$Theme = _WinAPI_GetThemeAppProperties()
$GUI_Main = GUICreate("Installation", 500, 375,-1,-1)
$Picture = GUICtrlCreatePic(@ScriptDir & "" & $image, 0, 0, 500, 375,$WS_GROUP,$WS_EX_LAYERED)
GUICtrlSetState(-1,$GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Installer", 65, 10, 475, 30)
GUICtrlSetFont(-1, 16, 800, 0, "Calibri")
GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT)
$Label2 = GUICtrlCreateLabel("Please select your desired product:", 10, 45, 275, 20)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetBkColor(Default, $GUI_BKCOLOR_TRANSPARENT)
_WinAPI_SetThemeAppProperties($STAP_ALLOW_NONCLIENT)
$StdEn32 = GUICtrlCreateRadio ("Software Product 1 ",25, 80, 475, 20)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetState(-1, $GUI_CHECKED)
$ButtonOK = GUICtrlCreateButton ("OK",130,335,100,25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$ButtonCancel = GUICtrlCreateButton ("Cancel",270,335,100,25)
GUICtrlSetFont(-1, 14, 400, 0, "Calibri")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState()
While 1
$Msg = GUIGetMsg()
Select
  Case $Msg = $GUI_EVENT_CLOSE
   ExitLoop
  Case $Msg = $ButtonCancel
   ExitLoop
  Case $Msg = $ButtonOK And $StdEn32 And BitAND(GUICtrlRead($StdEn32), $GUI_CHECKED) = $GUI_CHECKED
       GUIDelete ()
       _CU_MessageBox()
EndSelect
WEnd

Func _CU_MessageBox()
$Form1 = GUICreate("Installation", 353, 171, -1, -1)
GUISetBkColor(0xFFFFFF)
$Yes = GUICtrlCreateButton("Yes", 200, 128, 75, 25)
$No = GUICtrlCreateButton("No", 88, 128, 75, 25)
$Label1 = GUICtrlCreateLabel("Text", 136, 16, 214, 30)
GUICtrlSetFont(-1, 16, 400, 0, "Calibri")
GUISetState(@SW_SHOW)
While 1
  $nMsg = GUIGetMsg()
  Switch $nMsg
   Case $GUI_EVENT_CLOSE
    Exit
  EndSwitch
WEnd
EndFunc

Edited February 1, 2012 by mtmartis

[BrewManNH]

You're changing the theme so of course the window will look different, did you expect something else?