likbez
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
GOOSE
Чем больше работаю с прогой - тем больше она мне нравится. В ней наверное можно сделать в принципе "любой каприз", только вот знаний в области программирования катастрофически не хватает! вот снова нужна помощь знающих людей:
как сделать управление размером картики, загруженной в Веб-объект из "Плагина Миниатюр"? чтобы понятнее был вопрос - это выглядит так
_http://mail.expert.kiev.ua/mmp.jpg
Оригинальные картинки - более 2000 пикселей по горизонтали. сначала нужно, чтобы после клика на миниатюре в "основном окне" (например - в Веб-объекте) загружалась вся картинка (то есть - уменьшенная), а потом чтобы слайдером например можно было ее увеличивать постепенно до оригинального размера в этом-же окне.
Легко получается - если просто грузить картинку как объект, но тогда при увеличении большая ёё часть уходит вникуда так как нет гор. и верт. скроллингов. а в Веб-объекте эти скролинги есть, но не удается динамически менять размер самой картинки.
Вот как выглядит код:
result = ThumbList.GetSelectedItems("img_list");
if result then
Web.SetVisible("PhotoW", false)
SelectedInfo = ThumbList.GetItemInfo("img_list", result[1]);
Caption = SelectedInfo.filetitle
DisplayImage = SelectedInfo.filepath
ImgW = SelectedInfo.image_width
ImgH = SelectedInfo.image_height
if ImgW <= 790 and ImgH <=500 then
Image.SetSize("PhotoW", ImgW, ImgH)
end
if ImgW > ImgH then
Image.SetSize("PhotoW", 790, ImgH / (ImgW / 790))
else
Image.SetSize("PhotoW", 790, ImgH / (ImgW / 790))
end
--ImgT = 313 - (ImgH / 2)
--ImgL = 475 - (ImgW / 2)
ImgT = 145
ImgL = 232
Web.SetPos("PhotoW", ImgL, ImgT)
Web.LoadURL("PhotoW", DisplayImage)
Image.SetVisible("PrintImage", true)
Button.SetVisible("SaveImage", true)
Web.SetVisible("PhotoW", true)
Label.SetText("Caption", Caption)
else
Image.SetVisible("PrintImage", false)
Button.SetVisible("SaveImage", false)
Web.LoadURL("PhotoW", DisplayImage)
end
а в слайдере:
Photo = DisplayImage;
WebPosition = Image.GetPos("Photo");
OldWebSize = Image.GetSize("Photo");
if Slider.GetSliderPos("Plugin1") > 0 then
slider = Slider.GetSliderPos("Plugin1");
Image.SetSize("Photo", (slider*20), (slider*(20*0.7)));
--(OldWebSize.Height/OldWebSize.Width))));
NewWebSize = Image.GetSize("Photo");
else Slider.SetSliderPos("Plugin1", 1, 1)
end
-- Web.SetPos("DisplayImage", (400-(NewWebSize.Width/2)), (300-(NewWebSize.Height/2)));
-- Image.SetSize("Photo", ImgW, ImgH)
Посоветуйте, плиз, что можно сделать? |
Это о чем речь? 