home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 117
/
af117a.adf
/
archives
/
af117a1.lzx
/
Fiasco_2.2
/
Databases
/
PictureDatabase
/
PicInfo.frx
< prev
next >
Wrap
Text File
|
2000-09-13
|
2KB
|
84 lines
/* picinfo.frx
* Info and control requester for Fiasco picture database
* Copyright © 1996-1997 Nils Bandener
* $VER: picinfo_frx 6.3 (13.9.97)
*/
Options Results
Parse Arg num
scriptname = "PictureInfo"
fiasco_port = address()
GetField "Name_" || num
name = result
GetField "Width_" || num
width = result
GetField "Height_" || num
height = result
GetField "Colors_" || num
colors = result
if name ~= "" then do
/*
* "__in_archive__" is a magic path component used
* by ScanDir.rexx to seperate the dos path and the path
* in an archive.
*/
archive = pos("/__in_archive__/", name)
if archive ~= 0 then
do
RequestChoice '"Archive: ' || left(name, archive - 1) || '*nFile: ' || substr(name, archive + 16) || '*nWidth: ' || width || '*nHeight: ' || height || '*nColors: ' || colors || '"' '"Display|Display with VT|Copy File|Cancel" Title "Fiasco Picture Database"'
end
else
do
RequestChoice '"File: ' || name || '*nWidth: ' || width || '*nHeight: ' || height || '*nColors: ' || colors || '"' '"Display|Display with VT|Copy File|Cancel" Title "Fiasco Picture Database"'
end
if result = 1 then
do
call display.frx num "multiview" "screen"
end
else if result = 2 then
do
call display.frx num "vt" " "
end
else if result = 3 then
do
RequestFile '"" Title "Select path to copy to" Drawersonly Savemode Noicons ProjectRelative'
if rc == 0 then
do
dest = result
if right(dest,1) ~= ":" & right(dest,1) ~= "/" then
do
dest = dest || "/"
end
archive = pos("/__in_archive__/", name)
if archive ~= 0 then
do
arcname = left(name, archive - 1)
nameinarc = substr(name, archive + 16)
Address Command 'lha e "' || arcname || '" "' || nameinarc || '" "' || dest || '"'
end
else
do
Address Command 'copy "' || name || '" "' || dest || '"'
end
end
end
end