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
 Magnify layer does not magnify DICOM image
 New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

yeohray2

Malaysia
5 Posts

Posted - Sep 09 2020 :  06:48:13  Show Profile  Reply
Sample code below, with sample image attached. The image is loaded, and magnification layer is displayed. I can move the layer around, but the moment I resize the layer, the magnification disappears i.e. the layer becomes empty. Is there something I'm missing?

Thanks in advance.

procedure TfrmMainTestMagnify.FormShow(Sender: TObject);
begin
  viewMain.IO.LoadFromFileDICOM('f:\temp\sample.dcm');
  viewMain.Fit;

  viewMain.LayersAdd;
  viewMain.Layers[1].Magnify.Enabled := True;
  viewMain.Layers[1].Magnify.Rate := 2;
  viewMain.Layers[1].Magnify.Style := iemRectangle;
  viewMain.Layers[1].Width := 200;
  viewMain.Layers[1].Height := 200;

  viewMain.LayersCurrent := 1;
  viewMain.MouseInteract := [miMoveLayers, miResizeLayers];
end;


attach/yeohray2/20209964749_sample.zip
454.37 KB

xequte

5500 Posts

Posted - Sep 09 2020 :  17:21:51  Show Profile  Reply
Hi

I cannot reproduce that, and it looks like you are using an older version of ImageEn. Presumably that version did not cope with magnification of gray-scale images.

Please email me for an updated version of ImageEn.



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