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
 How to properly configure My App to View Dicom Files (Single and Multipages)?		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

has75

Iraq
1 Posts
Posted - Apr 29 2023 :  06:46:58  Show Profile  Reply
Hello,
Please I needs help on properly configure and choose ImageEn controls to correctly view and navigate through Dicom Files of both types (Single and Multi-pages).

I use ImageEnMFolderView to view all dicom files in one folder and attached it to an ImageEnView to view each file in a big screen, this is working fine in many occasions, But when some Dicom files were Multi-page, this solution will not work!

I try to use an ImageEnMView with Single style (Not Grid) instead of the ImageEnView but now I missed the working functionality when the Dicom files where of single Type ( Not Multi-page).

In another way to clarify the issue:

Suppose we have an ImageEnMView1 with its AttachedImageEnView is an ImageEnView1.

The ImageEnView1 is configured so that on Mouse-wheel event we can Navigate through the Images of ImageEnMView1 by setting the ImageEnView1.IEMouseWheelParams Action to iemwNavigate

Now how to make the ImageEnView1 to Navigate by Mouse-Wheel its embedded images when the its loaded image is of Multi-page type such as in Dicom and also regain its previous behavior and Navigate through the other images of the ImageEnMView1 when its loaded image is a single-Page image.

Please what did you suggest to use? and How?
Thanks.


Hassan Eesa

xequte

38610 Posts
Posted - Apr 30 2023 :  22:15:24  Show Profile  Reply
Hi Hassan

If an ImageEnView is attached to an ImageEnMView then scrolling the mouse wheel will navigate the ImageEnMView files.

So, you either need to disconnect the ImageEnView from the ImageEnMView (by removing it from ImageEnMView.AttachedImageEnView) and handle the ImageEnMView selection event yourself to load the image into the TImageEnView.

Or you need to override the OnMouseWheel event to make it call ImageEnView1.Seek().


procedure TMainForm.ImageEnView1MouseWheel(Sender: TObject; Shift: TShiftState;
    WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  if WheelDelta < 0 then
    ImageEnView1.Seek( ieioSeekPrior, True )
  else
    ImageEnView1.Seek( ieioSeekNext, True );

  Handled := true;
end;


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