[AZJIO]

Код:

Func _FileTheme()
    $FileINI = @ScriptDir & '\Setting.ini'
    Local $sData
    $key1 = GUICtrlRead($vInput1)
    If $key1 Then $sData &= "BkColor=" & $key1 & @LF
    $key2 = GUICtrlRead($vInput2)
    If $key2 Then $sData &= "IconBkColor=" & $key2 & @LF
    $key3 = GUICtrlRead($vInput3)
    If $key3 Then $sData &= "IconBkGrdColor=" & $key3 & @LF
    $key4 = GUICtrlRead($vInput4)
    If $key4 Then $sData &= "SelectBkColor=" & $key4 & @LF
    $key5 = GUICtrlRead($vInput5)
    If $key5 Then $sData &= "SelectRectColor=" & $key5 & @LF
    $key6 = GUICtrlRead($vInput6)
    If $key6 Then $sData &= "TextColor=" & $key6 & @LF
    $key7 = GUICtrlRead($vInput7)
    If $key7 Then $sData &= "SelectTextColor=" & $key7 & @LF
    $sData = StringTrimLeft($sData, 1)
    IniWriteSection($FileINI, "TEST", $sData)
EndFunc   ;==>_FileTheme