GOOSE
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вкладка On Preload
Код:
tblDisp = System.GetDisplayInfo()-- получаем таблицу размера экрана
strW = tblDisp.Width-- получаем ширину
strH = tblDisp.Height-- получаем высоту
|
Вкладка On Show
Код:
tblImages = File.Find("AutoPlay\\Images", "*.*", true, true, nil, nil)-- ищем файлы
thmbImages = ThumbList.AddFiles("Plugin1", tblImages, nil)-- добавляем их в ThumbList
strCWF = Folder.GetCurrent()-- получаем путь текущей папки
|
Плагин, вкладка On Double-Click
Код:
tblSelected = ThumbList.GetSelectedItems("Plugin1")
tblImageInfo = ThumbList.GetItemInfo("Plugin1", tblSelected[1])-- получаем таблицу данных выделенного файла
strHTML = strHTMLTMP]
strHTMLFIN = String.Replace(strHTML, "###", "\""..tblImageInfo.filepath.."\"", true)]
TextFile.WriteFromString(strCWF.."\\fullview.html", strHTMLFIN, false)-- заменяем в шаблоне путь к картинке согласно выделению
-- Открываем I.E. на развернутый просмотр выделенной картинки
oIE=luacom.CreateObject("InternetExplorer.Application.1")
--открываем в IE наш шаблон
oIE:Navigate2(strCWF.."\\fullview.html")
--убираем лишние панели в браузере
oIE.Menubar = true;
oIE.AddressBar = false;
oIE.ToolBar = false;
--другие настройки...
oIE.Top = 0
oIE.Left = 0
oIE.Width = strW
oIE.Height = strH
oIE.FullScreen = false;
oIE.Resizable = true;
--показываем IE
oIE.Visible = true
|
Вкладка Глобальные функции
Код:
strHTMLTMP = "<HTML><HEAD><TITLE> Full-View of Images </TITLE></HEAD><BODY><img src=###></BODY></HTML>"-- html нашего шаблона
|
|
Всего записей: 903 | Зарегистр. 17-10-2001 | Отправлено: 14:49 23-10-2006 | Исправлено: GOOSE, 14:53 23-10-2006 |
|
