| T O P I C R E V I E W |
| wesleybobato |
Posted - Dec 17 2014 : 05:54:11
Hello Nigel.
You can check because Imageen Zoom with Scrool Mouse Does Not Work After Running this code.
if OpenImageEnDialog1.Execute then
ImageEnVect1.IO.LoadFromFile(OpenImageEnDialog1.FileName);
Thank you Nigel. |
| 12 L A T E S T R E P L I E S (Newest First) |
| wesleybobato |
Posted - Mar 16 2015 : 11:51:26
Please Upgrade to Version 6.
This problem was corrected.
Kind Regards. |
| John@Field |
Posted - Mar 16 2015 : 11:49:01
I have just had the same problem. The way I got round it was to replace OpenImageEnDialog with the standard OpenPictureDialog.
I am using ImageEn Ver 5.2
JWA |
| wesleybobato |
Posted - Dec 18 2014 : 15:06:57
Hello William.
Thanks for your attention.
I believe this error, affects only some versions of Delphi.
Let's wait for the correction by Nigel.
Thank you all for your posts and Testing.
Have a Wonderful Day. |
| w2m |
Posted - Dec 18 2014 : 14:58:37
Wesley,
The second time you open a file in your project zooming does not function. However, in my own XE7 project with exactly the same code, I can open many files in succession and each has zoom and scroll. Go figure. I have no idea what is causing this problem or the difference between your project and mine but it looks like Nigel does.
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development |
| wesleybobato |
Posted - Dec 18 2014 : 14:36:37
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_MOUSEWHEEL) then
begin
ImageEnVect1.Perform(Msg.message, Msg.wParam, Msg.lParam);
end;
end; |
| wesleybobato |
Posted - Dec 18 2014 : 14:30:06
Hello William.
please download this example.
press 2 times in the open button and try using the mouse scrool.
please post the results.
the executable in this folder.
have a wonderful afternoon.
https://www.dropbox.com/s/q4nhut6q0chz6ju/Mouse%20Scrool.zip?dl=0 |
| spetric |
Posted - Dec 18 2014 : 14:07:38
I had the same problem. Besides mouse wheel zoom, OnKeyDown and OnKeyUp event
on ImageEnVect/View did not trigger. I thought it was because I've done something wrong when porting my application to XE5...too many parameters in project option :(
As I didn't have too much time for investigation, I have added TApplicationEvents on main form and now I redirect WM_MOUSEWHEEL, WM_KEYDOWN, WM_KEYUP messages to ImageEnVect (of course when Classname is TImageEnVect).
Now it works Ok. |
| w2m |
Posted - Dec 18 2014 : 13:41:27
What did you do to make it stop working?
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development |
| xequte |
Posted - Dec 18 2014 : 13:19:32
Hi Bill
Thanks for investigating. I have done a test and was able to make the Mouse wheel stop working after use of OpenImageEnDialog1.Execute.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
| w2m |
Posted - Dec 18 2014 : 08:08:35
Wesley,
I created a simple demo with a button and imageenvect and set mouseinteract to mizoom.
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenImageEnDialog1.Execute then
ImageEnVect1.IO.LoadFromFile(OpenImageEnDialog1.FileName);
end;
When an image is loaded with if OpenImageEnDialog1.Execute then
ImageEnVect1.IO.LoadFromFile(OpenImageEnDialog1.FileName), the image zooms with the mouse wheel and there are scrollbars and the scrollbars are functional, so you must have some properties set incorrectly or have code elsewhere that you do not describe that causes zoom and scrolling not to function.
Are you sure that the Scrollbars property is ssBoth and you have zooming enabled?
Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development |
| wesleybobato |
Posted - Dec 18 2014 : 05:38:58
Thank you Nigel is very attentive. |
| xequte |
Posted - Dec 17 2014 : 16:16:42
Thanks, we will investigate.
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
|
Search
