1 files changed, 76 insertions, 0 deletions
diff --git a/html/examples/view_image.wlua b/html/examples/view_image.wlua
new file mode 100644
index 0000000..c156bd3
--- /dev/null
+++ b/html/examples/view_image.wlua
@@ -0,0 +1,76 @@
+require"imlua"
+require"cdlua"
+require"cdluaim"
+require"iuplua"
+require"iupluacd"
+
+iup.key_open()
+
+function View_Image(image, title)
+  ret = false
+
+  cnv = iup.canvas{}
+  
+  function cnv:action()
+    local canvas = dlg.canvas
+    local image = dlg.image
+    
+    if (not canvas) then return end
+    
+    canvas:Activate()
+    cw, ch = canvas:GetSize()
+    iw = image:Width()
+    ih = image:Height()
+    
+    if (iw > ih) then
+      h = iw/iw * ch
+      y = (ch-h)/2
+      x = 0
+      w = cw
+    else
+      w = iw/ih * ch
+      x = (cw-w)/2
+      y = 0
+      h = ch
+    end
+    
+    canvas:Clear()
+    image:cdCanvasPutImageRect(canvas, x, y, w, h, 0, 0, 0, 0)
+  end
+
+  function cnv:button_cb()
+    dlg:close_cb()
+    ret = true
+    return iup.CLOSE
+  end
+  
+  dlg = iup.dialog{iup.vbox{cnv, iup.label{title="Click to accept or press Esc to abort."}}}
+  dlg.placement="maximized"
+  dlg.title = title
+  dlg.cnv = cnv
+  dlg.image = image
+  
+  function dlg:k_any(c)
+  print("K_any("..c..")")
+    if (c == iup.K_ESC) then
+      dlg:close_cb()
+      return iup.CLOSE
+    end
+  end
+
+  function dlg:close_cb()
+    local canvas = self.canvas
+    if canvas then canvas:Kill() end
+  end
+
+  function dlg:map_cb()
+    canvas = cd.CreateCanvas(cd.IUP, self.cnv)
+    self.canvas = canvas
+  end
+  
+  dlg:show()
+  iup.MainLoop()
+  dlg:destroy()
+  
+  return ret
+end