ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
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
 Resize images in TImageEnMView on CTRL+MouseWhell		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

haya

7 Posts
Posted - Sep 15 2019 :  02:01:11  Show Profile  Reply
hello
how to increase or decrease the sizes of thumbnails in TImageEnMView by pressed CTRL and mouse wheel?

xequte

38613 Posts
Posted - Sep 15 2019 :  17:17:00  Show Profile  Reply
Hi

Please set ImageEnMView1.MouseWheelParams.Action or ImageEnMView1.MouseWheelParamsAlt.Action to iemwZoom.

https://www.imageen.com/help/TImageEnMView.MouseWheelParams.html

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

haya

7 Posts
Posted - Sep 16 2019 :  05:48:40  Show Profile  Reply
Thanks for answer! I trying to use this code:

ImageEnMView1.MouseWheelParams.Action:= iemwVScroll;
ImageEnMView1.MouseWheelParamsAlt.Action:= iemwZoomView;

But got this error messages:

[dcc32 Error] E2003 Undeclared identifier: 'iemwZoomView'
[dcc32 Error] E2003 Undeclared identifier: 'MouseWheelParamsAlt'

Which modules should I add in "uses" section?
Go to Top of Page

xequte

38613 Posts
Posted - Sep 16 2019 :  16:54:39  Show Profile  Reply
Hi

MouseWheelParamsAlt was added in a recent version. What version of ImageEn do you have?

You may want to extend at:

https://www.imageen.com/order/

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

haya

7 Posts
Posted - Sep 17 2019 :  17:00:16  Show Profile  Reply
Thanks, I will do so. One more question: how to set maximum (and minimum) allowed zoom sizing?
Go to Top of Page

xequte

38613 Posts
Posted - Sep 18 2019 :  03:24:14  Show Profile  Reply
Hi

Use the OnZoomIn/OnZoomOut events, and change the NewZoom value if it is invalid.

https://www.imageen.com/help/TImageEnView.OnZoomIn.html
https://www.imageen.com/help/TImageEnView.OnZoomOut.html

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

haya

7 Posts
Posted - Sep 18 2019 :  15:11:38  Show Profile  Reply
But OnZoomIn/OnZoomOut events available only in TImageEnView
The question is about TImageEnMView
Go to Top of Page

xequte

38613 Posts
Posted - Sep 18 2019 :  17:04:26  Show Profile  Reply
Yes, sorry.

Please email me for an update. You can use the OnViewChange event as follows:

procedure TMyForm.ImageEnMViewOnViewChange(Sender: TObject; Change: integer);
begin
  // Restrict zoom to range of 50 - 200
  if ( Change = 1 ) and ( Zoom < 50 ) then
    Zoom := 50
  else
  if ( Change = 1 ) and ( Zoom > 200 ) then
    Zoom := 200;
end;


Nigel
Xequte Software
www.imageen.com
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: