'================================================================
'= タイトルバーのグラデーション効果

'=    (SetGradientCaptions.bas)
'================================================================
#include "Windows.bi"

#define SPI_SETGRADIENTCAPTIONS &H1009        'システムに関するパラメータを示す定数の宣言
#define SPIF_UPDATEINIFILE &H1                'ユーザープロファイルの更新を指定する定数の宣言
#define SPIF_SEndWININICHANGE &H2             'すべてのトップレベルウィンドウに変更を通知する定数の宣言
#define SPIF_SEndCHANGE SPIF_SEndWININICHANGE

' システム全体に関するパラメータを取得・設定
Declare Function Api_SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uiAction&, ByVal uiParam&, pvParam As Any, ByVal fWinIni&)

'================================================================
'=
'================================================================
Declare Function Index bdecl () As Long
Function Index()
    Index = Val(Mid$(GetDlgRadioSelect("Radio1"), 6)) - 1
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Ret = Api_SystemParametersInfo(SPI_SETGRADIENTCAPTIONS, 0, ByVal Index, SPIF_UPDATEINIFILE Or SPIF_SEndCHANGE)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End