ImageEn Forum - miSelectZoom save

Profile Join Active Topics Forum FAQ

Forum membership is Free! Click Join to sign-up
Username:	Password:
Save Password
Forgot your Password?

All Forums

ImageEn Library for Delphi, C++ and .Net

ImageEn and IEvolution Support Forum

miSelectZoom save

New Topic

Reply to Topic

Author

Topic

peberhardt

Germany
21 Posts

Posted - Jan 14 2017 : 13:08:57

Hello,

is possiple to save the miSelectZoom.

i want jump to differenz position with mouse click

thanks
Peter

w2m

USA
1990 Posts

Posted - Jan 14 2017 : 13:14:46

TImageEnView.SaveSelection

Declaration
procedure SaveSelection;

Description
Adds the current selection to the stack (selections list).

Example

ImageEnView1.Select(10, 10, 100, 100);
ImageEnView1.SaveSelection;
ImageEnView1.Select(200, 200, 150, 150);
ImageEnView1.SaveSelection;
ImageEnView1.Deselect;

ImageEnView1.RestoreSelection; // reload 200,200,150,150
..
ImageEnView1.RestoreSelection; // reload 10,10,100,100

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development

peberhardt

Germany
21 Posts

Posted - Jan 14 2017 : 13:36:47

Hello,

thanks for your extrem fast answer.

but i have a problem

i want this:

miSelectZoom := '10, 10, 100, 100'

ImageEnVect1.MouseInteract := ImageEnVect1.MouseInteract + [miSelectZoom];

thanks
peter from Germany

w2m

USA
1990 Posts

Posted - Jan 14 2017 : 13:43:30

TImageEnView.ZoomSelection

Declaration
procedure ZoomSelection(AspectRatio: Boolean);

Description
The ZoomSelection method zooms to a rectangular area specified with Select method. If AspectRatio is true then the zoom respects the aspect ratio of the image, otherwise the image area is stretched to match the size of the component.

Example

ImageEnView1.Select(10, 10, 100, 100);
ImageEnView1.ZoomSelection; // fill client area (if possible) with rectangle 10,10,100,100

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development

peberhardt

Germany
21 Posts

Posted - Jan 14 2017 : 14:00:29

hello,

ok, this is ok.

but: how i can read the 4 values when i make a rectangle with the mouse

thank you
peter

w2m

USA
1990 Posts

Posted - Jan 14 2017 : 14:05:02

Please read the help file in the TImageEnView Selections subheading...
TImageEnView.SelX1
TImageEnView.SelX2
TImageEnView.SelY1
TImageEnView.SelY2

If you haven't already study the help file.

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development

peberhardt

Germany
21 Posts

Posted - Jan 15 2017 : 13:29:18

Hello,

my solution:

-------
first:
---------------------------------------------------------------

first button caption: 'make a selection'
code: MouseInteract := MouseInteract + [miSelect];

---------------------------------------------------------------

--------
secound:
---------------------------------------------------------------
code in ImageEnVect1MouseUp

var_start_x := ImageEnVect1.SelectedRect.x;
var_start_y := ImageEnVect1.SelectedRect.y;
var_end_x := ImageEnVect1.SelectedRect.x + ImageEnVect1.SelectedRect.width;
var_end_y := ImageEnVect1.SelectedRect.y + ImageEnVect1.SelectedRect.height;

var_view_x := ImageEnVect1.ViewX;
var_view_y := ImageEnVect1.ViewY;

var_zoom := ImageEnVect1.Zoom;

// save all var* in Database

ImageEnVect1.DeSelect;

--------
Thirdly:
---------------------------------------------------------------
ImageEnVect1.Zoom := var_zoom;

ImageEnVect1.SetViewXY(var_view_x, var_view_y);

ImageEnVect1.Select(var_start_x, var_start_y, var_end_x, var_end_y);
ImageEnVect1.SaveSelection;
ImageEnVect1.ZoomSelection;

thank you Bill for help.

PS. is possible i can Reading a part from your e-book as test?

my e-mail: info@peter-eberhardt.de

best regards
peter

Topic

New Topic

Reply to Topic