490857_fr-FR

liliconcom

Fenêtre qui fait défiler les images d'un dossier

 

J'ai besoin d'aide avec la syntaxe de script. J'utilise JMP 16.

 

J'ai le script pour lire tous les fichiers d'un sous-dossier et identifier les fichiers portant l'extension jpg.

 

Ce que je voudrais faire, c'est afficher une fenêtre, avec un bouton avant et arrière, qui permettrait à l'utilisateur d'afficher les images. Comment ferais-je pour créer ça ?

 

Toute aide serait appréciée.

 

folder = char(Get Default Directory()) || "images/"; //subfolder is "images"
names = Files In Directory( folder );

dtpicnames = New Table( "Filenames of Images",
 New Column( "filename", character ),
 New Column( "inspection result", character ),
 New Column( "path", character )
);
dtpicnames << move window(800, 0);

for( ii = 1, ii <= N Items(names), ii++,
 if( Ends With( names[ii], ".jpg"),
  dtpicnames << Add Rows(1);
  dtpicnames:filename = names[ii];
  dtpicnames:path = folder || names[ii];
 );
);

img = new image(dtpicnames:path[1]);
 img << scale(0.5);

w = New Window( "Image", pb = Picture Box( img ) );
w << move window(0, 0);

 

 

Script