Image viewer

[ileandros]

Hello,

I want to create a image viewer, Is it possible?? I was checking google and autoit for some help but i didnt find something...

This some kind of code to help me.

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Image Viewer", 615, 438, 192, 124)
$Group1 = GUICtrlCreateGroup("Image Viewer", 8, 8, 601, 385)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Browser...", 328, 400, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 400, 265, 21)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
   GUICtrlSetData($Input1, $file)
EndSwitch
WEnd

Edited April 8, 2012 by ileandros

[DCCD]

Hi there, take a look creates a picture control for the GUI., I hope this help.

[PhoenixXL]

Try This!!

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Image Viewer", 615, 438, 192, 124)
$Group1 = GUICtrlCreateGroup("Image Viewer", 8, 8, 601, 385)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Browser...", 328, 400, 75, 25)
$Input1 = GUICtrlCreateInput("", 8, 400, 265, 21)
$Image=GUICtrlCreatePic('',9,9,600,384)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Button1
   $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)")
   GUICtrlSetData($Input1, $file)
   _setImage($Image,$file)
EndSwitch
WEnd
Func _setImage($Control,$Image)
If GUICtrlSetImage($Control,$Image)=0 Then Return @error
Return 0
EndFunc

[AutoBert]

If you need some ideas have a look in the source of: [beispiel] BMP-, GIF-, PNG- & JPG-Viewer (Stand: 10.02.2012). To run this example you need the GUICtrlPic.au3 (@Großvater autoit.de) also.

greetings from germany

autobert

Edited April 8, 2012 by AutoBert

[ileandros]

Thanks guys. Gj PhoenixXl

[armoros]

Thanks guys. Gj PhoenixXl

thats nice

Ελληνας Εισαι φιλΕ...?

just asking

[ileandros]

thats nice

Ελληνας Εισαι φιλΕ...?

just asking

Kai nai kai oxi

[PhoenixXL]

Ελληνας Εισαι φιλΕ...?

Wat iz This I dont Understand

[KaFu]

It's greek and google translates it to "Net ... Are you Greek" ... luckily all members from Greece are obliged by policy to add a "ros" suffix to their username ...

[PhoenixXL]

Ok!!

Thnx KaFu For the Reply

[ileandros]

Phoenix the quote ur asking for translation was for me

Anyway thats greek and means "Are you greek buddy?"

[PhoenixXL]

Well That means U R Greek

Anyways Thnx

[armoros]

It's greek and google translates it to "Net ... Are you Greek" ... luckily all members from Greece are obliged by policy to add a "ros" suffix to their username ...

Yes "os" or "as"