#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
StyleToggle(1 )
$Form1_1 = GUICreate("Amortization Plus" , 644 , 303 , 207 , 200 )
GUISetBkColor(0x000080 )
$Group1 = GUICtrlCreateGroup("Amortization Table" , 8 , 0 , 625 , 81 , BitOR($BS_CENTER, $BS_FLAT))
GUICtrlSetColor(-1 , 0xFFFFFF )
GUICtrlSetFont(-1 , 10 , 400 , 0 , "System" )
StyleToggle(0 )
GUISetState(@SW_SHOW )
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func StyleToggle( $Off = 1)
If Not StringInStr( @OSType, "WIN32_NT") Then Return 0
$XS_n = DllCall("uxtheme.dll" , "int" , "GetThemeAppProperties" )
If $Off Then
DllCall("uxtheme.dll" , "none" , "SetThemeAppProperties" , "int" , 0 )
Return 1
ElseIf IsArray( $XS_n) Then
DllCall("uxtheme.dll" , "none" , "SetThemeAppProperties" , "int" , $XS_n[0 ])
$XS_n = ""
Return 1
EndIf
Return 0
EndFunc ;==>StyleToggle
|