Чувствую каплю ленивости, поэтому попробуйте такой вариант.)

http://forum.tslab.ru/ubb/ubbthreads.php?ubb=showflat&Number=53175#Post53175
_________________________
Обучение TSLab
https://www.youtube.com/channel/UC_ifEsHB5QTxG7LPr9n7KtA?view_as=subscriber