How do add text to a cell that has an image loaded?

[#1]

Is it possible to add text to a cell that has already loaded images?

Thanks!

[#2]

You could use set each value to re-create the image with text

Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class Families.jmp");


Column(dt, "picture") << Set Each Value(
	H List Box(align("center"),
		Text box(:name),
		:picture
	) << Get Picture
);

[#3]

If I want to add more than one cell of text, I try to add it left and right.

Can I add text below?It looks like this down here.

Column(dt, "picture") << Set Each Value(
	H List Box(align("center"),
		Text box(:name),
		:picture
	) << Get Picture
);
Column(dt, "picture") << Set Each Value(
	H List Box(align("center"),
		Text box(:sports),
		:picture
	) << Get Picture
);

Thanks Experts!

[#4]

Using proper display functions (h list box, v list box, lineup box...) and display boxes should help you to organize the elements

[#5]

JSL can add text to a screenshot and then place it on the image.

Thanks!

dt = Open( "$SAMPLE_DATA/Big Class Families.jmp" );
rp = New Window( "", dt << Get As Report );
rp << Set Cell Height( 250 );
pic = rp << Get Picture;

[#6 · Accepted solution]

Add Text to a Picture 

Use a graphics frame box to add text and lines on top of a picture.

[#7]

Thank Craige!

I copied the following JSL, just to achieve the simplest function.
But I still don't know the code.Text is not added where it should be.
Consult experts to help modify, with the simplest code implementation.

Thanks Experts!

dt = Open( "$SAMPLE_DATA/Big Class Families.jmp" );
dt << delete columns( 3 :: N Col( dt ) );
dt << delete rows( 6 :: N Row( dt ) );
dt << Set Cell Height( 100 );
rp = New Window( "", dt << Get As Report );
original = rp << Get Picture;
{xSize, ySize} = original << size;

gb = Graph Box(
	<<backgroundcolor( "orange" ),
	FrameSize( xSize + 1, ySize + 1 ),
	X Scale( 0, xSize + 1 ),
	Y Scale( 0, ySize + 1 ),
	<<Add Image( image( original ), bounds( top( 0 ), Left( 1 ), bottom( ySize ), Right( xSize + 1 ) ) ),
	Text( Center Justified, { 50, 10}, "KATIE" )
);
updated = gb[framebox( 1 )] << getpicture;
updated << crop( Left( 1 ), top( 1 ), Right( xSize + 1 ), bottom( ySize + 1 ) );
originalMatrix = original << getpixels;
newMatrix = updated << getpixels;
diff = (originalMatrix - newMatrix != 0);
New Window( "bitmaps", V List Box( gb ) );

[#8]

Text( Center Justified, { 50, 10}, "KATIE" )

• How can this code be modified to fit inside the original image?

[#9]

text size function; 5 points is a little too small for my eyes.

[#10]

Wait. You are using a picture of the whole data table, but I'm pretty sure you want to work on one picture at a time.

Just grab the image from dt:picture[iRow] rather than loading it from a file, then replace it when done. Approximately like this:

original = dt:picture[iRow];
...existing jsl...
dt:picture[iRow] = updated;