SetHotkeyAction /K:C /K:S /V:187 SetBackGround 1 SetHotkeyAction /K:C /K:S /V:189 SetBackGround 2 Func SetBackGround(pAction) Local bkg1, bkg2, upd = 1 IniRead /R bkg1 %COMMANDER_INI% "Colors" "BackColor" -1 IniRead /R bkg2 %COMMANDER_INI% "Colors" "BackColor2" -1 if bkg1 = -1 or bkg2 = -1 then MsgBox("Default value in bkg1 or bkg2") Return endif if pAction = 1 then bkg1 = bkg1 + 1 + 256 + 65536 bkg2 = bkg2 + 1 + 256 + 65536 else bkg1 = bkg1 - 1 - 256 - 65536 bkg2 = bkg2 - 1 - 256 - 65536 endif if bkg1 < -1 or bkg2 < -1 then MsgBox("bkg1 или bkg2 is out of range") Return endif IniWrite /R %COMMANDER_INI% "Colors" "BackColor" %bkg1% IniWrite /R %COMMANDER_INI% "Colors" "BackColor2" %bkg2% If upd = 1 Then SendCommand 2957 EndIf EndFunc
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
Hidden text
