@klx300r

Quote:

i like the thumbnail viewer in LoView

Yes it is very fast here on my SAM460, a pleasure to use

_________________
SAM 460 with 2GB or RAM, 1000GB HD, 4 port SATA, DVDRW drive and Radeon HD 4650 GFX card.

@Tuxedo
Quote:

Can I include the script in LoView archive?

Yes.

Quote:

The script can be modified to send the image list to last LoView running instances like LoViewThumb does?

Probably. Give me some time to try it and I'll post the result in this topic if I succeed.

_________________
X1000 with 2GB memory & OS4.1FE

@Xenic

Thank you :)

_________________
Simone"Tuxedo"Monsignori, Perugia, ITALY.

@Tuxedo

/*
** $VER: FilesToLoview.dopus 1.1 (23.03.1012) xenic
** based on SelectedFilesToFilelist.dopus 1.03 (21.05.2005)
** by Opi
**
** write all selected filenames in the active lister to a file
** defined in the lines "destdir = ..." & "file = ..."
** after writing the filelist all selected entries are unselected
**
** If any LoView windows are open, pictures will be sent to the last
** opened LoView window. If no LoView windows are open then the
** pictures will be sent to a new LoView window. The argument "NEW"
** will force a new LoView window to open.
**
** Use this Program at your own risk !!!
**
** Installation:
**
** Copy the Script to DirOpus arexx directory (DOpus:Rexx/),
** configure a Menu-item/Button/Hotkey in DirOpus and give it
** an appropriate name.
**
** Name: FilesToLoView (or what you want)
**
** Command: AREXX DOpus:Rexx/FilesToLoView.dopus
** Sends pictures to last opened window
** or a new one if none are open.
** Command: AREXX DOpus:Rexx/FilesToLoView.dopus NEW
** Sends pictures to a new LoView window.
** Flags..: No flags
*/

destdir = 'T:LoView/'
file = destdir||'ImgLst'

OPTIONS RESULTS
ADDRESS VALUE ADDRESS()

PARSE ARG option

'GetselectedFiles : -1'
files = RESULT

'Status 13 -1'
path = RESULT

IF files = 'RESULT' THEN DO
TOPTEXT "No files selected!!!"
EXIT
END

name = 'LoView0'
IF option = NEW THEN SIGNAL WriteFiles

IF EXISTS(destdir) THEN DO
SHELL COMMAND 'List >T:dopus4321 'destdir' PAT="LoView?" LFORMAT "%N"'
CALL OPEN(file,'T:dopus4321','R')
DO WHILE ~EOF(file)
temp = READLN(file)
IF temp > name THEN name = temp
END
CALL CLOSE(file)
SHELL COMMAND 'Delete >NIL: *>NIL: "T:dopus4321"'
END

WriteFiles:
IF ~EXISTS(destdir) THEN SHELL COMMAND 'Makedir 'destdir' >NIL: *>NIL:'

CALL OPEN(write,file,'w')

DO until files = ""
PARSE VAR files file ":" files
CALL WRITELN(write, path||file)
END

CALL CLOSE(write)
NONE

IF name > 'LoView0' THEN DO
ADDRESS VALUE UPPER(name)
MULTILOAD
END
ELSE
SHELL COMMAND 'Work:Viewers/LoView/LoView -multiload'

Last edited by Xenic on 25-Mar-2012 at 09:29 PM.
Last edited by Xenic on 24-Mar-2012 at 02:30 PM.
Last edited by Xenic on 24-Mar-2012 at 02:27 PM.

_________________
X1000 with 2GB memory & OS4.1FE

@Tuxedo
I wasn't happy with the script always sending the pictures to a LoView window if one was open. I added an argument "NEW" that will cause the script to always open a new window. Dopus4 has buttons behind the visible buttons. If you click a button with the left mouse button the front Dopus4 button is activated and if you click a button with the right mouse button the back Dopus4 button is activated. On my system I have the script with the "NEW" argument assigned to a front button and the script with no argument assigned to the button behind it. If I click the front button LoView will always open in a new window. If I click the back button the pictures are loaded into the last opened LoView window or if none are open it opens a new LoView window. You can change the script if you want to change the way it works, improve it or add more error checking.

_________________
X1000 with 2GB memory & OS4.1FE

@Xenic

So I assume that could be an option available in the program itself via settings for those not using Dopus?

_________________
SAM 460 with 2GB or RAM, 1000GB HD, 4 port SATA, DVDRW drive and Radeon HD 4650 GFX card.

@sicky
Quote:

So I assume that could be an option available in the program itself via settings for those not using Dopus?

What could be an option? I don't understand what you're asking. Just to make it clear that the script is for Dopus4 only I edited the name in my post to "FIlesToLoview.dopus". The script contains Dopus4 ARexx commands which will only work if started from Dopus4.

_________________
X1000 with 2GB memory & OS4.1FE

@Xenic


Quote:

What could be an option? I don't understand what you're asking

Sorry I thought it was something that could be implemented within a normal environment!

_________________
SAM 460 with 2GB or RAM, 1000GB HD, 4 port SATA, DVDRW drive and Radeon HD 4650 GFX card.

@Xenic

Thank you!
it works perfectly!

_________________
Simone"Tuxedo"Monsignori, Perugia, ITALY.