Re: Would like wallpaper-sized images to stand out...
Posted: 02 Oct 2019 10:13
Forum for XYplorer Users and Developers
https://www.xyplorer.com/xyfc/
Code: Select all
"_Initialize";
if(get("shift") == '1') {sub ghost_off; end 1;}
unset $rmb;
" [L]click selects - [R]click filters||"
" IMAGE ASPECT RATIO|D:\Graphics\Icons\crop_02.ico";
" ● 16:9";
sub _details;
" ● 8:5";
sub _details;
" ● 3:2";
sub _details;
" ● 4:3";
sub _details;
" ● 1:1";
sub _details;
-
" CAMERA MODEL SELECTION|D:\Graphics\Icons\photo_camera_03.ico";
" ● X100S";
sub _details;
" ● DSC-RX100M5";
sub _details;
" ● DMC-ZS100";
sub _details;
" ● iPhone X";
sub _details;
" ● Pixel 3 XL";
sub _details;
" ● DMC-ZS8";
sub _details;
-
"Ghost Filter off : ghost_off";
ghost("", 0);
end 1;
"_details";
global $title_info;
$title_info = substr(caller("caption"),7,,); //$title_info = (gettoken(caller("caption"), -1," ", "t"));
if(exists(<curitem>) == 2) {$path = <curitem>;} else {$path = <curpath>;}
$images = quicksearch("*.jpg /n",,"|");
end gettoken($images, "count", "|") < 1, "There are no JPG files in this folder.";
if !(gettokenindex(':', $title_info)) {
sub _camera; end 1;}
if($rmb == 1) { // or use modifier key control if(mod == '2') {
// *** filter images
$selected = quicksearch("prop:#AspectRatio: != $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
ghost($selected, '1');
end 1;}
else {
// *** selection of images
$selected = quicksearch("prop:#AspectRatio: == $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
selectitems $selected;
end 1;}
"_camera";
global $title_info;
if($rmb == 1) { // or use modifier key control if(mod == '2') {
// *** filter images
$selected = quicksearch("prop:#image.cameramodel: != $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
ghost($selected, '1');
end 1;}
else {
// *** selection of images
$selected = quicksearch("prop:#image.cameramodel: == $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
selectitems $selected;
end 1;}
"_Terminate";
unset $rmb;
Code: Select all
"_Initialize";
if(Get('Trigger', 'CTBIndex') > '0' AND get("shift") == '2') {sub filter_off; end 1;}
" [L]click filters - [Ctrl-L]click selects||"
" IMAGE ASPECT RATIO|:vfset";
" ● 16:9";
sub _details;
" ● 8:5";
sub _details;
" ● 3:2";
sub _details;
" ● 4:3";
sub _details;
" ● 1:1";
sub _details;
-
" CAMERA MODEL SELECTION|:select";
" ● X100S";
sub _details;
" ● DSC-RX100M5";
sub _details;
" ● DMC-ZS100";
sub _details;
" ● iPhone X";
sub _details;
" ● Pixel 3 XL";
sub _details;
" ● DMC-ZS8";
sub _details;
-
"Filters && selections cleared : filter_off";
filter; sel;
status "Filters and selections cleared."; end 1;
"_details";
global $title_info, $mod;
$mod = get("shift");
$title_info = substr(caller("caption"),7,,); //$title_info = (gettoken(caller("caption"), -1," ", "t"));
$images = quicksearch("/types={:Image} /n",,"|");
end gettoken($images, "count", "|") < 1, "There are no image files in this folder.";
if !(gettokenindex(':', $title_info)) {
sub _camera; end 1;}
if($mod == '2') {
// *** selection of images
$selected = quicksearch("prop:#AspectRatio: $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
selectitems $selected;
end 1;}
else {
// *** filter images
filter "prop:#AspectRatio: $title_info", 4;
end 1;}
"_camera";
global $title_info, $mod;
text $title_info;
if($mod == 2) {step;
$selected = quicksearch("prop:CameraModel: $title_info /n",,"|");
end gettoken($selected, "count", "|") < 1, "There are no $title_info images in this folder.";
selectitems $selected;
end 1;}
else {
filter "prop:CameraModel: $title_info", 4;
end 1;}