Interactive Labeling of Images
Here is a beginning :
imageList=Take[Flatten[ImagePartition[ExampleData[{"TestImage","House"}],{50,50}]],7];
Table[
With[{i=i},
Button[
Dynamic[If[i===start || i===stop || (NumericQ[start] && NumericQ[stop] && start <= i <= stop), Framed[#,Background->Red], #]& @ imageList[[i]]],
If[CurrentValue["ShiftKey"]===True,stop=i,start=i]
]],
{i,1,Length[imageList]}]
Left-click on the first image of the sequence you want to select.
Shift-left-click on the last image.
The variables start
and stop
get the indexes of the selection.
Of course, you can apply Row
, Column
, MultiColumn
... on the list of button-images above and the buttons will still work.