924752_de-DE

liliconcom

In das Bildfeld hineinzoomen

Ich habe ein Fenster mit einem Bild, das sich öffnet. Ich möchte, dass die Benutzer in das Bild hineinzoomen können, um mehr Details zu sehen, aber ich finde keine Zoomfunktion im Fenster. Wie kann ich das realisieren?

dt = Current Data Table();<BR />// Plot bitmap
bitmap = New Window( (dt << Get Name()) || " Bit Map",
	pic_file = Open( file_path, png);
	pic_file << Set Size( {500, 500} );
	pb = Picture Box( pic_file );
);

Automatisierung und SkripterstellungBetreff: Zoomen in das Bildfeld

Das Anbieten von Bildern über Graph Box ist eine Möglichkeit, die es den Benutzern erlauben würde, das Vergrößerungswerkzeug aus der Symbolleiste zu verwenden.

Nachtrag: Beispielskript vergessen.

Names Default To Here(1);

imgBox = Graph Box(frameSize(500, 500), SuppressAxes);
win = New Window("Image", imgBox);

img = Open("$SAMPLE_IMAGES/tile.jpg", "jpg");
img << Set Size({500,500});

fb = win[framebox(1)];
fb << AddImage(Image(img));
img_seg = fb<< FindSeg(PictSeg(1));

img_seg << Fill Graph;
img_seg << lock(1);

Write();

Betreff: Vergrößern des Bildfelds

Wow, eine sehr kreative/nützliche Lösung!

Betreff: Vergrößern des Bildfelds

Nach der Definition von imageZoom kann man es überall dort verwenden, wo es benötigt wird:

PictureBoxZoom = Function( {filename},
	window:img = Open( filename, "jpg" );
	Graph Box(
		frameSize( 300, 300 ),
		SuppressAxes,
		<
     <ADDIMAGE></ADDIMAGE>