#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Skin.au3>
#include <StaticConstants.au3>
#include <GDIPlus.au3>
#include <WinAPIMisc.au3>
Global $Form1, $Button1, $Skin = True
$Form1 = GUICreate("Form1", 300, 180, -1, -1, $WS_BORDER + $WS_POPUP, 0);, $WS_EX_CONTROLPARENT)
GUICtrlCreatePic (@ScriptDir & '\bck.bmp.png', 0, 0, 300, 180)
GUICtrlSetState(-1, $GUI_DISABLE)
$Button1 = _Skin_AddButton(90, 90, 120, 42, '1.png', '2.png', '3.png', '3.png', '3.png', 1)
$Combo1 = GUICtrlCreateCombo('English', 80, 55, 140, 25, $CBS_DROPDOWNLIST + $WS_VSCROLL)
GUICtrlSetData (-1, 'Русский')
GUICtrlSetFont(-1, 10, 400, 0, 'Arial')
;_Skin_EnableFocus(1)
GUIRegisterMsg($WM_COMMAND, 'WM_COMMAND')
GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')
GUISetState(@SW_SHOW)
While 1
If $Skin Then
_Skin_Helper($Form1)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;SoundPlay ("zvyuk.wav")
;_WinAPI_PlaySound ("zvvv.wav", $SND_ASYNC + $SND_NOWAIT)
MsgBox (0, 0, GUICtrlRead($Combo1))
EndSwitch
WEnd
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
Local $Msg = BitShift($wParam, 16)
Switch $hWnd
Case $Form1
Switch BitAND($wParam, 0xFFFF)
Case $Combo1
Switch $Msg
Case $CBN_CLOSEUP
$Skin = 1
Case $CBN_DROPDOWN
$Skin = 0
Case Else
EndSwitch
EndSwitch
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND
Func WM_NCHITTEST($hWnd, $iMsg, $wParam, $lParam)
Switch $hWnd
Case $Form1
If $skData[0][3] > 0 Then
Return $GUI_RUNDEFMSG
EndIf
Local $Info = GUIGetCursorInfo($Form1)
If Not @Error Then
Switch $Info[4]
Case $Button1
; Nothing
Case Else
Return $HTCAPTION
EndSwitch
EndIf
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NCHITTEST