| Author |
 Topic  |
|
|
wesleybobato
Brazil
367 Posts |
 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. |
|
|
xequte
38608 Posts |
|
|
wesleybobato
Brazil
367 Posts |
Posted - Dec 18 2014 : 05:38:58
|
| Thank you Nigel is very attentive. |
 |
|
|
w2m
USA
1990 Posts |
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 |
|
|
|
xequte
38608 Posts |
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
USA
1990 Posts |
|
|
spetric
Croatia
308 Posts |
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. |
|
|
|
wesleybobato
Brazil
367 Posts |
|
|
wesleybobato
Brazil
367 Posts |
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; |
|
|
|
w2m
USA
1990 Posts |
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
Brazil
367 Posts |
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. |
|
|
|
John@Field
United Kingdom
13 Posts |
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
Brazil
367 Posts |
Posted - Mar 16 2015 : 11:51:26
|
Please Upgrade to Version 6.
This problem was corrected.
Kind Regards. |
|
|
| |
Topic |
|
Search
ImageEn Zoom Not Work After Running OpenDialog
