24.09.2016 [15.4]
[+] Оптимизирована команда textv
- добавлены глобальные переменные GLOBALTEXTV и GLOBALTEXTV1
- добавлена кнопка передающая информацию в GLOBALTEXTV
- добавлен параметр "save<>"
[+] Добавлен в команду color параметр
"pos<>"
- в TCIMG.ini в секцию [Color] добавлен ключ Size
[±] Исправлены и добавлены ряд описаний в справке
[±] Заменены ряд изображений в справке
[+] Добавлен тег :NOEXIT: в команду shape
[+] Оптимизирован диалог [check] и [group] (см. Дополнение №18)
- добавлены теги §...§ , которые не влияют на создание окна
[+] Добавлена UDF функция _CmdCm()
[+] Оптимизированы команды imgcg и imgcr
- добавлена запись WidthxHeight в параметр ширины и высоты
- добавлены математические действия в этом параметре
[+] Оптимизирована команда cmdbt
- добавлен приём информации от глобальных переменных
- добавлен перевод относительных путей в абсолютные
[+] Добавлен в команду close параметр ^^
[+] Оптимизированы команды picsf и picss
- переписан код некоторых функций
- ускорена работа параметра perimeter<>
- добавлен подпараметр "2" в параметр perimeter<>
[±] Исправлена ошибка в команде marks
[+] Дописан код абфускации+компиляции - размер TCIMG.exe уменьшен на 10 Kb

"global slist=%L||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> renms=FOLDM<%L!!-1!!0>||$$_<Info=f61::>||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1>" - переименовать файлы выделенных папок и выделенные файлы добавив в конец имен через _ имя родительской папки
"global sends="%O" marks=0||test<1n!!GLOBALSENDS<1>>" - выделить в активной панели объекты с идентичным именем объекта под курсором
"global slist=FOLDM<%L!!-2!!-1!!*<input=Получить~~список~~папок|Введите~~фрагмент~~имени||500||100>*> GLOBALSLIST<b> sends=GLOBALARRAY<t>!!-1 delss=GLOBALSENDS<t>||1" - из выделенных папок получить список папок имеющих в именах совпадения с вводимым в диалоговом окне и отметив чекбоксы УДАЛИТЬ выбранные папки
"global slist=FOLDM<%L!!-2!!-1!!*<input=Получить~~список~~папок|Введите~~фрагмент~~имени||500||100>*> GLOBALSLIST<a>" - получить в выделенных папках пути всех подпапок имеющих в именах фрагмент введенный в диалоговом окне
"delss=FOLDM<%L!!-2!!-1!!*<input=Удаление~~подпапок|Введите~~фрагмент~~имени||500||100>*>||1" - удалить в выделенных папках все подпапки имеющие в именах фрагмент введенный в диалоговом окне
"exect=$var_n=MsgBox(4+32+262144,'Сообщение','Отменить~~последнее~~переименование?')||$var_i=$var_n=7?_Exit():1 renms=$f200Lists\AfterRenaming.txt||list<$f200Lists\BeforeRenaming.txt>||upd<1>" - отменить последнее переименование осуществленное командами TCIMG( требуется подтверждение)
"renms=%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt||list<%%TCIMG_PATH%%\Files\Lists\AfterRenaming.txt>||upd<1>" - отменить откат, возврат к переименованным именам
"renms=$f200Lists\AfterRenaming.txt||list<$f200Lists\BeforeRenaming.txt>||upd<1>" - отменить последнее переименование осуществленное командами TCIMG
"global slist=%L||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> shape=5 renms=%L||&&^(.{[combo=Переименование||Введите~~сколько~~оставить~~символов~~с~~НАЧАЛА:||~~|5|8|10||450||120]}).*!!$1||&&.*(.{[combo=Переименование||Введите~~сколько~~оставить~~символов~~с~~КОНЦА:||~~|5|8|10||450||120]})$!!$1||upd<1> creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1>" - переименование выделенных объектов: оставить с начала или с конца имени определенное количество символов вводимое в диалоговом окне (возможность отката)
"shape=5 renms=%L||&&^(.{[combo=Переименование||Введите~~сколько~~оставить~~символов~~с~~НАЧАЛА:||~~|5|8|10||450||120]}).*!!$1||&&.*(.{[combo=Переименование||Введите~~сколько~~оставить~~символов~~с~~КОНЦА:||~~|5|8|10||450||120]})$!!$1||upd<1>" - переименование выделенных объектов: оставить с начала или с конца имени определенное количество символов (количество вводится в диалоге)
"patht=%P%N||fold<>" - перейти к объекту под курсором в панели назначения
"imgpr=1 lists=PS<"%p"!!1!!0>||##path<2>||formt<1>||inline<|!!|!!>" - записать расширения всех файлов активной панели (без рекурсии) в буфер обмена одной строкой, удаляя дубликаты (|txt|html|ini)
"imgpr=1 lists=%L||##path<2>||formt<1>||inline<;*.!!;*.!!>" - записать расширения выделенных файлов в буфер обмена одной строкой, удаляя дубликаты (;*.txt;*.html;*.ini)
"watch=1 lists=PS<"%p"!!1!!-1>||##path<2>||formt<1>||inline<!!;!!>" - записать расширения всех файлов активной панели (с рекурсией) в буфер обмена одной строкой, удаляя дубликаты (txt;bak;lng)
"imgpr=1 lists=%L||##path<2>||formt<1>||inline<!!;!!>" - записать расширения выделенных файлов одной строкой, удаляя дубликаты (txt;bak;lng)
"watch=1 lists=PS<"%p">||##path<2>||formt<1>||inline<.!!;~~.!!;>" - записать расширения всех файлов активной панели (с рекурсией) в буфер обмена одной строкой, удаляя дубликаты (.txt; .bak; .lng <img rel="usm" src="/sml/wink.gif" border="0" align="absmiddle" alt=";)" />
"imgpr=1 lists=%L||##path<2>||formt<1>||inline<.!!;~~.!!;>" - записать расширения выделенных файлов в буфер обмена одной строкой, удаляя дубликаты (.txt; .bak; .lng <img rel="usm" src="/sml/wink.gif" border="0" align="absmiddle" alt=";)" />
"exect=$var_i1=[info=x10]||$var_i2=[info=x11]||$var_i3=($var_i1=0~~Or~~$var_i2=0)?_Exit() <img rel="usm" src="/sml/sad.gif" border="0" align="absmiddle" alt=":(" /> $var_i1>$var_i2?$var_i2:$var_i1) slist=[tc=AL] sends=[tc=TL]!!-1 forpgs <FOR> 1 <TO> $var_i3 movee=GLOBALSLIST<:INDEX:>||GLOBALSENDS<:INDEX:> <NEXT> desel=10" - переместить выделенные файлы по одному в соответствующие порядку выделения папки другой панели
"exect=$var_i1=[info=x10]||$var_i2=[info=x11]||$var_i3=($var_i1=0~~Or~~$var_i2=0)?_Exit() <img rel="usm" src="/sml/sad.gif" border="0" align="absmiddle" alt=":(" /> $var_i1>$var_i2?$var_i2:$var_i1) slist=[tc=AL] sends=[tc=TL]!!-1 forpgs <FOR> 1 <TO> $var_i3 copyy=GLOBALSLIST<:INDEX:>||GLOBALSENDS<:INDEX:> <NEXT> desel=10" - копировать выделенные файлы по одному в соответствующие порядку выделения папки другой панели
"renms=PS<"%p"!!1!!0>||test<2l!!n!!4>||#Sfun_numplus13||upd<1>" - переименование: файлам в текущей папке, в базовом имени которых 4 символа увеличить число после дефиса на единицу
"global slist=%L||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> renms=%L||&&([^~~]+)~~([^~~]+)~~([^~~]+)!!$3~~$1~~$2 creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1>" - переименование выделенных объектов: 3-е слово базовых имен переместить на место первого слова (кнопка с возможностью с отката)
"global slist=%L||##path<0>||save<%%TCIMG_PATH%%\Files\Lists\BeforeRenaming.txt> renms=%L||&&([^~~]+)~~([^~~]+)~~([^~~]+)!!$2~~$3~~$1 creat=%%TCIMG_PATH%%\Files\Lists\||AfterRenaming||content<GLOBALRENMS<t>>||owrite<1>" - переименование выделенных объектов: 1-е слово базовых имен переместить на место треьего слова (кнопка с возможностью отката)
"renms=%L||&&\(.*$!!||&&\[.*$!!||&&[^\d]+$!!||~~!!_ ||upd<1>" - переименовать выделенные объекты: удалить в имени всё после крайней цифры и заменить пробелы на подчеркивание
"sends=@<info=x54> xends=@<info=x58> copyy=GLOBALXENDS<1>[Backup]_<Info=f61GLOBALSENDS<1>>\<Info=x51>.bkp||GLOBALXENDS<1>!!1||&&\.bkp$!!||**2!!||modfs<0||#SISDATE> barupd" - восстановить активную панель инструментов из бэкапа с изменением даты на текущую
"xends=@<info=x58> copyy=$f85||GLOBALXENDS<1>[Backup]_<Info=f61::>!!1||**1!!?.bkp" - создать заменяемый бэкап активной панели инструментов в папке [Backup]_имя папки bar'ов
"global copys=%L||"%t" renms=FOLDM<GLOBALCOPYS<t>!!-3!!0>||&&(.{0,[input]})(.*)!!$1||~~!!_||upd<3>" - копировать выделенные объекты в другую панель с обрезанием базовых имен файлов до - прописанного числа в диалоговом окне и с заменой пробелов на нижнее подчеркивание _
"global copys=%L||"%t" renms=FOLDM<GLOBALCOPYS<t>!!-3!!0>||&&(.{0,[input]})(.*)!!$1||upd<3>" - копировать выделенные объекты в другую панель с обрезанием базовых имен файлов до - прописанного числа в диалоговом окне
"global copys=%L||"%t" renms=FOLDM<GLOBALCOPYS<t>!!-3!!0>||&&(.{0,90})(.*)!!$1||upd<3>" - копировать выделенные объекты в другую панель с обрезанием базовых имен файлов до 90 символов
"renms=%L||#G7||&&([^~~]+)~~([^~~]+)~~([^~~]+)!!$3~~$1~~$2" - преименование: 3-е слово базовых имён выделенных объектов переместить на место первого слова, предварительно удалив в именах лишние пробелы
"renms=%L||#G7||&&([^~~]+)~~([^~~]+)~~([^~~]+)!!$2~~$1~~$3" - преименование:2-е слово базовых имён выделенных объектов переместить на место первого слова, предварительно удалив в именах лишние пробелы
"forpgs shape=5 lends=[combo=BOX_U59] zends=[group=BOX_U12] global xlist=%L slist=%L||##path<4>||#G7 <FOR> 1 <TO> GLOBALXLIST<0> sends=GLOBALSLIST<:INDEX:>||formt<0!![^\s]+>||#LGLOBALLENDS<1> xends=GLOBALSLIST<:INDEX:>!!-1||formt<0!![^\s]+>||?T|d,GLOBALLENDS<1> kends=GLOBALXENDS<t>!!-1||GLOBALZENDS<1>||&&[\r\n]+!!~~ renmm=GLOBALXLIST<:INDEX:>||GLOBALKENDS<:INDEX:>||#G7 <NEXT>" - преименование: перемещение слова в базовых именах выделенных объектов,предварительно удалив в именах лишние пробелы, выбор слова и позиции перемещения в диалоговом окне
"renms=FOLDM<%L!!-1!!0>||##<Info=f61::>||$$_cntr<1|1|2>||ext<>||[double]||upd<1>" - переименовать файлы выделенных папок (без рекурсии) именем родительской папки с счетчиком (каждоиу типу файлов отдельный счетчик)
"moves=%L||"%t"||group<1|2>||upd<3>" - переместить выделенные элементы в другую панель, каждый в отдельную папку (именами папок будет нумерация 01, 02, ...0N)
"moves=%L||"%p"||group<1|2|Groupe_>||upd<1>" - переместить выделенные элементы, в активной панели, каждый в отдельную папку с именем Groupe_№ (минимальное количество цифр в счётчике (N) 2)
"moves=%L||"%p"::!!0!!(.*)(\w:.*\\)([^\.\\]*)(.+)!!$1$3||upd<1>" - переместить выделенные элементы в именные папки в текущей панели
"moves=%L||"%t"||group<100|4>||upd<3>" - переместить выделенные файлы в другую панель, разбив по 100 файлов и поместив в отдельныые папки (именами папок будет нумерация 0001, 0002, ...000N)
"moves=%L||"%t"||group<100|4>||upd<3>" - переместить выделенное в другую панель, по 100 файлов в отдельные папки (именами папок будет нумерация 0001, 0002, ...000N)

"global textv=%L GLOBALTEXTV<a>" - выделенные пути вывести в textv, по нажатию на ==> отобразить в таблице
"global textv= GLOBALTEXTV<a>" - открыть пустой textv, по нажатию на ==> отобразить в таблице вставленную информацию
"global textv=cliptext GLOBALTEXTV<a>" - открыть содержимое буфера обмена textv, по нажатию на ==> отобразить в таблице вставленную информацию
"global textv=%L||save<C:\Name.txt> GLOBALTEXTV1<a> GLOBALTEXTV<a>" - выделенные пути вывести в textv, при сохранении файла сохранить информацию в заданный файл (добавлять счётчик, если файл существует), по нажатию на ==> вывести путь файла в GLOBALTEXTV1
"global textv=%L||save<C:\Name.txt|1> GLOBALTEXTV1<a>" - выделенные пути вывести в textv, при сохранении файла сохранить информацию в заданный файл (перезаписывать, если файл существует), по нажатию на ==> вывести путь файла в GLOBALTEXTV1
"global textv=%L||save<C:\Name.txt|2> GLOBALTEXTV1<a>" - выделенные пути вывести в textv, при сохранении файла сохранить информацию в заданный файл (дозаписывать в конец, если файл существует), по нажатию на ==> вывести путь файла в GLOBALTEXTV1
"global textv=%L||save<C:\Name.txt|3> GLOBALTEXTV1<a>" - выделенные пути вывести в textv, при сохранении файла сохранить информацию в заданный файл (дозаписывать в начало, если файл существует), по нажатию на ==> вывести путь файла в GLOBALTEXTV1
"global textv=%L||save<C:\0Test\02511377\Name.txt>||code<3> GLOBALTEXTV1<a>" - выделенные пути вывести в textv, при сохранении файла сохранить информацию в заданный файл в кодировке UTF-8 (добавлять счётчик, если файл существует), по нажатию на ==> вывести путь файла в GLOBALTEXTV1

"color=fullcolor||pos<1>" - вывести программу работы с цветом с дополнительными панелями (сохранять позицию окна)

"exect=$var_n=1||$var_i=$var_n=1?_CmdCm('infbx=InfoBox_TEST1'):_CmdCm('infbx=InfoBox_TEST2')" - пример: если $var_n=1 , то выполняется одна команда, в ином случае другая Ternary()
"exect=$var_n=0||$var_i=$var_n=1?_CmdCm('infbx=InfoBox_TEST1'):_CmdCm('infbx=InfoBox_TEST2')" - пример: если $var_n=0 , то выполняется одна команда, в ином случае другая Ternary()

"exect=$var_s=##@[tc=TA]||$var_p=StringRight('$var_s',1)='\'?'$var_s':''''||_ViewValues('$var_p')" - проверяет наличия папки под курсором в другой панели, если папка, то переменная $var_p содержит её путь, если файл, то пустоту Ternary()
"exect=$var_n=1||$var_i=$var_n=1?_CmdCm('sends=%P%N!!-1¦¦formt<1,63><¤>GLOBALSENDS<a>'):''''" - пример: если $var_n=1, то прочитать файл под курсором и вывести в таблице Ternary()

"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> imgcg="%%TCIMG_TEMP%%\Img.png"!!0||<info=i3GLOBALSLIST<:INDEX:>>||0000FF,FF0000,0 <NEXT>" - для выделенных изображений создать во временной папке градиентные изображения из синего 0000FF и красного FF0000 цвета с соответствующими размерами
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> imgcg="%%TCIMG_TEMP%%\Img.png"!!0||<info=i3GLOBALSLIST<:INDEX:>>||#,#,0 <NEXT>" - для выделенных изображений создать во временной папке градиентные изображения случайного цвета с соответствующими размерами
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> imgcg="%t<info=f12GLOBALSLIST<:INDEX:>>.png"!!0||<info=i3GLOBALSLIST<:INDEX:>>||#,#,0 <NEXT>" - для выделенных изображений создать в другой панели именные градиентные изображения случайного цвета с соответствующими размерами
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> imgcg="%t<info=f12GLOBALSLIST<:INDEX:>>.png"!!0||50+<info=i3GLOBALSLIST<:INDEX:>>+50||#,#,0 <NEXT>" - для выделенных изображений создать в другой панели именные градиентные изображения случайного цвета, увеличив соответствующие размеры на 50px по ширине и высоте
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> rends=50+<info=i3GLOBALSLIST<:INDEX:>>+50 imgcg="%%TCIMG_TEMP%%\Img.png"!!0||GLOBALRENDS<1>||#,#,0 imgcg="%t<info=f12GLOBALSLIST<:INDEX:>>.png"!!0||GLOBALRENDS<1>||#,#,0||framewh<GLOBALIMGCG<1>|30> <NEXT> tcimg=$cm4006|540 tempxx" - для выделенных изображений создать в другой панели именные изображения с 2-м градиентом случайного цвета с соответствующими размерами
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> sends=@GLOBALSLIST<:INDEX:> imgcg="%%TCIMG_TEMP%%\Img.png"!!0||50+<info=i3GLOBALSENDS<1>>+50||#,#,0 imgnz=GLOBALSENDS<t>||"%t"||1x#||png||framewh<GLOBALIMGCG<1>|50|50> <NEXT> tcimg=$cm4006|540 tempxx" - для выделенных изображений создать в другой панели именные изображения с градиентной рамкой 50px случайного цвета
"global slist=%L <FOR> 1 <TO> GLOBALSLIST<0> sends=@GLOBALSLIST<:INDEX:> rends=50+<info=i3GLOBALSENDS<1>>+50 imgcg="%%TCIMG_TEMP%%\Img.png"!!0||GLOBALRENDS<1>||#,#,0 imgcg="%%TCIMG_TEMP%%\Img.png"!!0||GLOBALRENDS<1>||#,#,0||framewh<GLOBALIMGCG<1>|30> imgnz=GLOBALSENDS<t>||"%t"||1x#||png||framewh<GLOBALIMGCG<1>|50|50> <NEXT> tcimg=$cm4006|540 tempxx" - для выделенных изображений создать в другой панели именные изображения с 2-й градиентной рамкой 50px и 30px случайного цвета

"exect=$var_put=##@[tc=AP]||$var_put=StringTrimRight('$var_put',1) xends=-1||formt<56,54,51> rends=GLOBALXENDS<1>||formt<lin131,63,56,54,51> rends=GLOBALXENDS<1>!!2||formt<lin133,63,56,54,51> sends=#GLOBALRENDS<1>\\4||formt<serch48,lin132,lin135,1,63,56,54,51>  sends=#GLOBALRENDS<2>\\4!!2||formt<serch49,lin132,lin134,lin135,1,63,56,54,51> zends=GLOBALSENDS<t1,2>!!-1 GLOBALZENDS<c> creat=$var_put||Youtube-list-GLOBALXENDS<1>-@<info=s47>.txt||content<GLOBALZENDS<t>>||empty<1>" - Создать в активной панели файл список со ссылками всех роликов и плей листов на ютубе, пользователя, чье имя (например Thoisoi) находится в буфере обмена + копировать этот список в буфер

"global sends=-1!!-1||formt<1,63,54,51> cmdbt=''%%COMMANDER_PATH%%\Downloads\youtube\youtube\youtube-dl.exe''~~-F~~GLOBALSENDS<1> GLOBALCMDBT<a>" - проверить ссылку из буфера обмена с youtube в программе youtube-dl.exe через консоль и получить информацию

"close=^^CabinetWClass" - закрыть все окна Проводника (Мой компьютер, папки, и т.д.) класс CabinetWClass

"picss=%L||"%t"||0:0!!#||perimeter<1>||progres<>||upd<3>" - в выделенных изображениях заменить весь найденный цвет 1-го пикселя левого верхнего угла по периметру на прозрачный цвет и сохранить в другой панели
"picss=%L||"%t"||W/2:H/2!!#||perimeter<2>||progres<>||upd<3>" - в выделенных изображениях залить цвет в центре прозрачным цветом и сохранить в другой панели

"textt=%P%N||^^@CRLF||@CRLF[Section1]@CRLF!!@CRLF[Section2]@CRLF||?B2!!@CRLF||swap<>" - в файле под курсором поменять местами имена секций [Section1] и [Section2]

"global picss=%L||"%t"||0:0!!#||perimeter<1>||progres<>||upd<3> picss=GLOBALPICSS<t>||::!!1||W/2:H/2!!#||perimeter<2>||progres<>||upd<3>" - в выделенных изображениях заменить весь найденный цвет 1-го пикселя левого верхнего угла по периметру на прозрачный цвет + залить цвет в центре прозрачным цветом и сохранить в другой панели

"global icomm=%L||"%t"||png||foldformat<Name>||progres<> picss=GLOBALICOMM<t>||::!!1||0:0!!#||perimeter<1>||progres<>||upd<3>" - извлечь из выделенных ico файлов изображения всех форматов, создав в другой панели именные png файлы в папках форматов с начальной приставкой Name, заменить весь найденный цвет 1-го пикселя левого верхнего угла по периметру на прозрачный цвет + отображать процесс

"global imgcn=%L||"%t"!!0!!x!!**png||imgcnv<>||resize<5,96,96>||progres<> picss=GLOBALIMGCN<t>||::!!1||0:0!!#||progres<>||upd<3>" - изменить размеры выделенных изображений  на 96х96 и преобразовать в png + заменить весь найденный цвет 1-го пикселя левого верхнего угла на прозрачный цвет и сохранить в другой панели
"global imgcn=%L||"%t"!!0!!x!!**png||imgcnv<>||resize<5,96,96>||progres<> picss=GLOBALIMGCN<t>||::!!1||0:0!!#||perimeter<1>||progres<>||upd<3>" - изменить размеры выделенных изображений на 96х96 и преобразовать в png + заменить весь найденный цвет 1-го пикселя левого верхнего угла на прозрачный цвет по периметру и сохранить в другой панели
"global imgcn=%L||"%t"!!0!!x!!**png||imgcnv<>||resize<5,96,96>||progres<> picss=GLOBALIMGCN<t>||::!!1||10:10!!#||perimeter<2>||progres<>||upd<3>" - изменить размеры выделенных изображений  на 96х96 и преобразовать в png + залить прозрачным фоном цвет пикселя 10x10 и сохранить в другой панели