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