' SetBackgroundForTheme.vbs
'======================== Описание =====================================
' Установка фонового изображения для темы
'======================= Параметры ======================================
' 1-й параметр:
' "" - для активной темы
' "Имя_темы" - для указанной темы
' 2-й параметр: путь к изображению (bmp,jpg,gif)
'======================== Примеры ======================================
' -"Без изображения" Call("Scripts::Main", 1, "SetBackgroundForTheme.vbs", `"" ""`)
' -"Установить фон light" Call("Scripts::Main", 1, "SetBackgroundForTheme.vbs", `"" "%a\AkelFiles\Image\light.gif"`)
' -"Установить фон lightflower" Call("Scripts::Main", 1, "SetBackgroundForTheme.vbs", `"" "%a\AkelFiles\Image\lightflower.jpg"`)
'
' используется Functions.vbs и FunctionsINITextRWS.vbs, которые следует положить в ...AkelFiles\Plugs\Scripts\Include\
'
' Автор: Аверин Андрей
' Версия: 1.3 (20.07.2012 - 14.09.2012)
' Mail:
Averin-And@yandex.ru
' Site:
http://tc-image.3dn.ru/forum/9-609-2873-16-1345473440
'===========================================================================
If WScript.Arguments.Count < 2 Then WScript.Quit
ImgFile = WScript.Arguments(1)
With AkelPad aPath = .GetAkelDir(0)
ImgFile = Replace(ImgFile, aPath, "%a")
NirCmd = .GetAkelDir(1) & "\Tools\NirCmd\NirCmd.exe"
Akel = aPath & "\NotePad.exe"
Theme = WScript.Arguments(0)
SetFileCoder = .GetAkelDir(4) & "\Coder.ini"
cText = .ReadFile(SetFileCoder)
Call .Include("FunctionsINITextRWS.vbs")
If Len(Theme) = 0 Then : Th = ReadINIText(cText, "Options", "VarThemeActive") : Theme = "/" & Th : End If
SetTheme = ReadINIText(cText, "Options", Theme)
List = ReadINIText(cText, "Options", "VarThemeList")
If InStr(List, Th) > 0 Then
Call .Include("Functions.vbs")
tTheme = GetHex(SetTheme, "", "", 26)
cKey = "HighLight_BkImageFile """
aImgFile = ExtractSegmentText(tTheme, cKey, Chr(34))
tTheme = Replace(tTheme, cKey & aImgFile, cKey & ImgFile)
HexTheme = GetHex(tTheme, "", "", 25) & "0000"
cText = WriteINIText(cText, "Options", Theme, HexTheme)
If Len(ImgFile) = 0 Then Call CreationNastrekAkel("")
Call AccountSettingsFiles(SetFileCoder, cText)
Else
Call CreationNastrekAkel(ImgFile)
End If
intButtonClicked = MsgBox("Для обновленя фона темы" & vbNewLine & "требуется перезапуск AkelPad" & vbNewLine & "Перезапустить сейчас?", 33, "Установка фона для AkelPad")
NirCmd = Chr(34) & NirCmd & Chr(34)
If intButtonClicked = 1 Then CreateObject("WScript.Shell").Run NirCmd & " execmd (" & NirCmd & " closeprocess NotePad.exe) && (" & NirCmd & " waitprocess NotePad.exe) && (" & NirCmd & " exec show " & Chr(34) & Akel & Chr(34) & ")", 1, True
WScript.Quit
End With
Sub AccountSettingsFiles(File, wText)
CreateObject("Scripting.FileSystemObject").OpenTextFile(File, 2, False, -1).Write wText
End Sub
Sub CreationNastrekAkel(ImF)
SetFile = aPath & "\AkelPad.ini" : aText = AkelPad.ReadFile(SetFile)
aText = WriteINIText(aText, "Options", "BkImageFile", ImF)
Call AccountSettingsFiles(SetFile, aText)
End Sub
