Loading ...
Sorry, an error occurred while loading the content.

Viewing an image

Expand Messages
  • Adrian/ Rosemary Worsfold
    This is a clip that allows an image to be viewed full screen in IrfanView. Settings for the location of images and programs need to be altered. It is my own
    Message 1 of 1 , Mar 17, 2005
    • 0 Attachment
      This is a clip that allows an image to be viewed full screen in IrfanView. Settings for the
      location of images and programs need to be altered. It is my own working added to parts of
      what others have done.

      ^!ClearVariables
      ^!Toolbar New Document
      ^!Save As C:\My Pictures\temp.tmp

      ^!SetWizardLabel Press OK for text and similar file or navigate
      ^!Set %Foldera%=^?{(T=D)&Browse: Confirm OK or press the button=^$GetValue
      (DirStuff:Browse)$}

      ^!StatusShow Finding files
      ^!SetScreenUpdate Off

      ^!Set %Typea%=*.jpg;*.jpeg;*.gif;*.bmp;*.png;*.wmf
      ^!Set %Sorta%=Name

      ^!DestroyDoc C:\My Pictures\temp.tmp
      ^!FocusDoc

      ^!Set %FullPatha%=^$GetFileFirst(^%Foldera%;"^%Typea%";^%Sorta%)$
      ; Checks to see if files are found by search criteria
      ^!IfTrue ^$IsEmpty("^%FullPatha%")$ END

      :LOOP1

      ^!IfTrue ^$IsEmpty(^%FullPatha%)$ DOARRAY
      ^!Append %Filesa%=^%FullPatha%|
      ^!Set %FullPatha%=^$GetFileNext$
      ^!Goto LOOP1

      :DOARRAY
      ^!StatusShow Click on the wanted filename...
      ^!Delay 10
      ^!StatusShow ...even if there is only one
      ^!Delay 10
      ^!StatusClose

      ^!CloseFileFind
      ^!SetWizardLabel *Highlight the choice* even if one only
      ^!SetArray %EditLista%=^?{(T=L;H=10)Choose=^%Filesa%}
      ^!Set %Counta%=^%EditLista0%
      ^!Set %Indexa%=0

      :LOOP2
      ^!Inc %Indexa%
      ^!If ^%Indexa% > ^%Counta% TOPROG
      ^!Set %ThisName%=^%EditLista^%Indexa%%
      ^!GoTo LOOP2

      :TOPROG

      ^!Set %OtherProg%=c:\progra~1\irfanv~1\i_view32.exe

      ^!Set %GoName%=^$GetShort(^%ThisName%)$
      ^!Shell ^%OtherProg% ^%GoName%

      ^!Delay 20
      ^!FocusApp *IrfanView
      ^!KeyBoard Alt+K &5 ENTER

      :END

      Adrian Worsfold

      http://www.pluralist.co.uk
    Your message has been successfully submitted and would be delivered to recipients shortly.