It is a subject that some users rarely wonder about.
View the images stored in the selected process.
That's why I'm archiving a plugin for it here.
+Option: When the displayed image is clicked, I will add the option to save the image to the folder, if there is a request, to the existing code.
The code below; Create a ".lua" file, put it in, save it and drop it in CE>>autorun folder.
Or edit the code according to your choice and use it as you wish.
Code:
------------------------ GUI
function loadImgWiew()
if f then f.destroy() f=nil end
f = createForm() f.setSize(600,430) f.Caption = "By AylinCE - Image Viewer" setProperty(f , "BiDiMode", "bdLeftToRight")
f.Color=0xFF0000 f.Position=poDesktopCenter f.Popupmode=0;
list = createListBox(f) list.Height=310 list.Width=150 list.setPosition(5,85) list.color=0x00FFFF
list.Font.Style="fsBold"
local lx1 = createLabel(f)
lx1.AutoSize=false lx1.Height=80 lx1.Left=5 lx1.Top=1 lx1.Width=150
lx1.Font.Size=10 lx1.Font.Color=0xFFFFFF lx1.OptimalFill=true lx1.Font.Style="fsBold"
lx1.Alignment= "taCenter"
lx1.caption = 'Double-click the\nselection to view it.\nGörmek için,\nseçimi çift tıklayın.'
local bx1=createButton(f)
bx1.Left=5 bx1.Top=400 bx1.Width=150
bx1.Font.Size=12 bx1.Font.Style="fsBold" bx1.caption="Load List"
local pnl1 = createPanel(f)
pnl1.Left=160 pnl1.Height=390 pnl1.Top=5 pnl1.Width=435 pnl1.Color=0xFFFFFF
local Img1 = createImage(pnl1)
Img1.Left=5 Img1.Height=380 Img1.Top=5 Img1.Width=425
local items = list.Items
for i,k in pairs(aa3) do
strings_add(items,k)
end
function loadUrl(link)
local int=getInternet()
s=int.getURL(link)
int.destroy()
return s
end
function crtPictures11(link)
aLnk=loadUrl(link)
local ss222=createStringStream(aLnk)
p1=createPicture()
p1.loadFromStream(ss222)
ss222.destroy()
return p1
end
function selectLinks()
local a1 = list.ItemIndex
local pro1 = list.Items
local Links = pro1[a1]
--print(Links)
if Links then
newLink=crtPictures11(Links)
if newLink then
Img1.AutoSize=true
Img1.Stretch=false
Img1.Picture=newLink
lx2.caption = "Picture Original Size, Height: " .. Img1.Height .. " / Width: " .. Img1.Width
--print(Img1.Height,Img1.Width)
if Img1.Width<pnl1.Width or Img1.Height<pnl1.Height then
Img1.AutoSize=true
Img1.Left=pnl1.Width / 2 - Img1.Width / 2
Img1.Top=pnl1.Height / 2 - Img1.Height / 2
--print(Img1.Left,Img1.Top)
else
Img1.AutoSize=false
Img1.Width=pnl1.Width - 10
Img1.Height=pnl1.Height - 10
Img1.setPosition(5,5)
Img1.Stretch=true
end
end
end
end
if aob~=nil then
for i=1, aob.Count -1 do
ms=getCurrentMemscan()
a=tonumber(aob[i],16)
item=readString(a,200,ms.Unicode)
if item~=nil then
item1=(item):match("(.-).png")
item11=(item):match("(.-).jpg")
if item1~=nil then
item2=(item):match("https://(.-).png")
item3="https://" .. item2 .. ".png"
strings_add(items,item3)
--print(item3)
end
if item4~=nil then
item5=(item):match("https://(.-).jpg")
item6="https://" .. item5 .. ".jpg"
strings_add(items,item6)
--print(item3)
end
end
end
end
aob=nil
bx1.caption="Load List"
end
bx1.OnClick=loadPngList
list.onDblClick=selectLinks
end
--------------------- CE Menu
mf = getMainForm()
mainMenu = mf.Menu.Items
local IWiew = createMenuItem(mf.MainMenu)
IWiew.Name = 'IWiew'
IWiew.Caption = 'ImgWiewer'
mainMenu.insert(mainMenu.Count-1,IWiew)
IWiew.onClick = loadImgWiew
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum